VBAでデータ更新作業自動化

質問

エクセルで、シート１に顧客データ（会員番号、氏名、住所等）が有り、シート２の入力セルに会員番号を入力すると、シート１の顧客データがＶＬＯＯＫＵＰ関数により呼び出されるというエクセルファイルがあります。シート１の顧客データは、別システムでデータ更新しており、ＵＳＢメモリにＣＳＶファイルとして定期的に抽出しています。このＣＳＶファイルのシート１の最新顧客データを元のエクセルファイルのシート１にすべてコピー＆ペーストすることで最新の顧客データを更新しています。

このたび、その作業の自動化を図るにあたり、元のエクセルファイルのシート２で作成したボタンを押下することにより、自動実行したいのです。

お忙しいところ大変申し訳ないですが、そのような他ファイルに及ぶＶＢＡの記述を教えていただけたらありがたいです。よろしくお願いします。

回答No.1

shut0325 · ベストアンサー

どこで躓いているのか具体的にわかりませんが、他ファイルを開いて参照したい場合でも、やることは手作業ですることとほぼ同じです。

注意点が一つだけあって、「今アクティブなワークブックか」「今作業対象としたいワークブック/シートはどれか」というのをわかりやすくするための「目印」をつけることだけです。

以下のような感じだと思います。

'現在のブックと作業シート（Sheet1)をセット
Set MyBook = ActiveWorkbook
Set Mysheet = MyBook.Worksheets("Sheet1")

Set Acsheet = ActiveSheet: 'アクティブシート（=フォームのボタンがあるシート）

'CSVのブックと対象シートをセット。

Set SubBook = Workbooks.Open("C:\test.csv"): 'ファイル/ディレクトリはダミー
Set Subsheet = SubBook.Worksheets(1): 'CSVをExcelで開いた場合はシートは一つしかない=インデックスは1

'Sheet1のセルの値を全クリア
Mysheet.Cells.Clear

'CSVのデータをSheet1に全コピー
Subsheet.Cells.Copy Mysheet.Cells

'CSVを閉じる。
SubBook.Close

'ターゲットをボタンのあるシートに戻す。
Acsheet.Activate

以上ですが、テストはコピーしたファイルで行ってください。

お礼

早速のご回答ありがとうございます。

出来ましたので、ありがとうございました(^^)