| |
教えて下さい。
フォルダＡの中にマクロ.xlsというファイルを作り、
STARTボタンから下記のマクロを呼び出しています。
同じくフォルダＡの中にＤａｔａフォルダをつくり、
Ｄａｔａフォルダの中に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
------------------------------------------------------------------------
- やりたいこと -
Ｄａｔａフォルダのなかの100件のエクセルファイルのＡ1のセルに入っている文字を
マクロ.xlsのSheet2のA列に書き出す
- 困っていること -
☆☆のところで止まり、値の更新ボックス（ファイルを開くに似たボックスですが、左上の文言は『値の更新：1.xls』）が出て
ファイルを選択しないといけない状態です
（"'Workbook_path\Data\[" & File & "]Sheet1'!R1C1"）
このあたりのパスがうまく通っていないようなのですが、
どんな風に書けば良いのでしょうか。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
