Excel VBA質問箱 IV

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

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


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

50065 / 76732

←次へ　｜　前へ→


	【31563】Re:フォルダ内の資料を全て開いて閉じる方法

ちくたく

- 05/11/25(金) 15:48 -


	引用なし

	パスワード

▼まいさん：

Dirを使いましょう。

Sub データ書き写し()

　　Dim myFo As String
　　Dim fileStr As String
　　Dim myWb As Workbook
　　
　　myFo = "D:\Ki"　 'フォルダのパス
　　fileStr = Dir(myFo & "\", vbNormal)
　　i = 2
　　
　　Do While fileStr <> ""
　　　　Set myWb = Workbooks.Open(myFo & "\" & fileStr)

　　　　myWb.Close
　　　　fileStr = Dir
　　Loop
　　
End Sub

0 hits

▼

【31560】フォルダ内の資料を全て開いて閉じる方法 まい 05/11/25(金) 15:35