人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのVBAでお聞きします。
バージョンは2003です。

■パターンA
添付画像の通り、EXCELに入力されているデータを

サーバーに保存されている”集計シート”に書き込みしたいです。


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

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

色々申し訳ありません。

宜しくお願い致します。



1237456224
●拡大する

●質問者: bu77
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel VBA アクティブ エクセル サーバー
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● airplant
●60ポイント

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

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

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

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

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


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

◎質問者からの返答

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


2 ● hennzutuu
●10ポイント

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

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


3 ● hennzutuu
●10ポイント

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ