Excel VBA質問箱 IV

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

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


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

36870 / 76732

←次へ　｜　前へ→


	【45037】Re:複数の同一形式のブックのセルデータを別のブックシートにまとめたい

かみちゃん - 06/12/10(日) 18:40 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>>C:\C:\Documents ・・・・
>
>は、誤りでした
>
>"C:\Documents ・・・・
>として　実行しました。（コピーするとき間違えました。）

どうしても、フォルダの指定が怪しい感じがします。
以下のようにして、フォルダの存在チェックをしてみたらいかがでしょうか？

Sub Test()
　Const SFol As String = _
　　"C:\Documents and Settings\安部　義信\デスクトップ\授業料調査集計 \Exl_Files"
　If Dir(SFol, vbDirectory) = "" Then
　　MsgBox "フォルダが見つかりません" & vbCrLf & SFol
　Else
　　MsgBox "フォルダが見つかりました" & vbCrLf & SFol
　End If
End Sub

あとは、
01*.xls、02*.xls・・・94*.xlsのファイルと同じフォルダにマクロのブックを
入れて、
MyF = Dir(SFol & "\" & Format(i, "00") & "*.xls")
は、
MyF = Dir(ThisWorkbook.Path & "\" & Format(i, "00") & "*.xls")
としてみるといかがでしょうか？
ThisWorkbookを記述したマクロを実行するときは、新規ブックの場合は、一度保存しておく必要があります。

0 hits

▼

【44871】複数の同一形式のブックのセルデータを別のブックシートにまとめたい yosinobu 06/12/4(月) 23:16