|
教えて下さい。
フォルダAの中にマクロ.xlsというファイルを作り、
STARTボタンから下記のマクロを呼び出しています。
同じくフォルダAの中にDataフォルダをつくり、
Dataフォルダの中に100件程のエクセルデータ(ファイル名:1.xls・2.xls…)を入れています。
--------------------------------------------------------------------
Public Sub SubModule1()
Dim Workbook_path As String
Dim File As String
Dim i As Currency
Workbook_path = ActiveWorkbook.Path
File = Dir(Workbook_path & "\Data\*.xls")
Do Until File = ""
'/// 作業 ///
☆☆ Sheet2.Cells(1,i) = ExecuteExcel4Macro("'Workbook_path\Data\[" & File & "]Sheet1'!R1C1")
'//////////////
i=i+1
File = Dir
Loop
End Sub
------------------------------------------------------------------------
- やりたいこと -
Dataフォルダのなかの100件のエクセルファイルのA1のセルに入っている文字を
マクロ.xlsのSheet2のA列に書き出す
- 困っていること -
☆☆のところで止まり、値の更新ボックス(ファイルを開くに似たボックスですが、左上の文言は『値の更新:1.xls』)が出て
ファイルを選択しないといけない状態です
("'Workbook_path\Data\[" & File & "]Sheet1'!R1C1")
このあたりのパスがうまく通っていないようなのですが、
どんな風に書けば良いのでしょうか。
|
|