バージョンは2003です。
■パターンA
添付画像の通り、EXCELに入力されているデータを
↓
サーバーに保存されている”集計シート”に書き込みしたいです。
書き込みが難しい場合は
■パターンB
アクティブシートを別ブックにしてサーバー上のフォルダに支店番号のファイル名で保存するVBAは作成できますか?
色々申し訳ありません。
宜しくお願い致します。
質問の意図を認識間違っていたらすみません。
ファイルを共有すればVBAで書かなくても要望のことは実現できます。
http://www.atmarkit.co.jp/fwin2k/win2ktips/410excelshare/excelsh...
「集計シート.xls」をサーバに置いて共有するだけでできます。
各支店の人は、各支店番号の列だけを変更するという前提です。
なお、一気に集めてその後で集計するのであれば、「集計シート.xls」の各セルに支店のデータを示すリンクを貼っておけば、共有しなくてもできます。
下記のVBAソースを修正すれば使えます。
実行するプロシージャやボタンのイベントにコピーして使ってください。
'ファイル名をフルパスで指定してください(\\xxx\xxx.xls)みたいな感じで
'\\192.168.2.1用
Workbooks.Open Filename:="C:\Documents and Settings\MXS2\デスクトップ\book1.xls" 'ファイルパスにファイル名を入れる。
Windows("book1.xls").Activate 'xxx.xlsのように
'セルデータのコピー
Range("B2:B15").Select
Selection.Copy
'集計シートのファイル名を指定
Windows("集計シートのファイル名").Activate 'xxx.xlsのように
'データの貼り付け
'ここは貼り付け先のセル番地を指定 (C2,D2,E2,F2)のように
Range("B2").Select
ActiveSheet.Paste
'上記のソースをファイル名分繰り返し行う(この処理の後にコピーして使う。)
すいません。共有ではないのでした。VBAで構築したいです。