Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13899 / 76738

←次へ　｜　前へ→


	【68341】指定のシートへのパス

あや - 11/2/24(木) 17:20 -


	引用なし

	パスワード

教えて下さい。

フォルダＡの中にマクロ.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"）
このあたりのパスがうまく通っていないようなのですが、
どんな風に書けば良いのでしょうか。

0 hits

▼

【68341】指定のシートへのパス あや 11/2/24(木) 17:20

≪