1237456224 エクセルのVBAでお聞きします。

バージョンは2003です。

■パターンA
添付画像の通り、EXCELに入力されているデータを
       ↓
サーバーに保存されている”集計シート”に書き込みしたいです。


書き込みが難しい場合は
■パターンB

アクティブシートを別ブックにしてサーバー上のフォルダに支店番号のファイル名で保存するVBAは作成できますか?

色々申し訳ありません。

宜しくお願い致します。

回答の条件
  • 1人2回まで
  • 登録:
  • 終了:2009/03/26 18:55:02
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答3件)

id:airplant No.1

回答回数220ベストアンサー獲得回数49

ポイント60pt

質問の意図を認識間違っていたらすみません。

ファイルを共有すればVBAで書かなくても要望のことは実現できます。

http://www.atmarkit.co.jp/fwin2k/win2ktips/410excelshare/excelsh...

「集計シート.xls」をサーバに置いて共有するだけでできます。

各支店の人は、各支店番号の列だけを変更するという前提です。


なお、一気に集めてその後で集計するのであれば、「集計シート.xls」の各セルに支店のデータを示すリンクを貼っておけば、共有しなくてもできます。

id:bu77

すいません。共有ではないのでした。VBAで構築したいです。

2009/03/20 08:46:30
id:hennzutuu No.2

回答回数14ベストアンサー獲得回数0

ポイント10pt

マクロの記録を使って、記録されたマクロを応用すれば出来ます。

VBAを使えば大抵の事は可能です。

id:hennzutuu No.3

回答回数14ベストアンサー獲得回数0

ポイント10pt

下記の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

'上記のソースをファイル名分繰り返し行う(この処理の後にコピーして使う。)

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません