|
▼ちゃっぴ さん:
早々の回答ありがとうございます!
助かります〜〜。。
>VBAなら、Dir関数かFileSystemObjectで再帰
Dir関数を検索してみたのですが、初心者には少しわかりづらく、、
こういうプログラムでしょうか??(いろんなものを切り貼りしてます。。)
Dim varRet As Variant
Dim strPath As String
strPath = "C:Data\"
ChDrive strPath
ChDir strPath
varRet = Application.GetOpenFilename("CSVファイル (*.csv),*.csv")
If VarType(varRet) = vbBoolean Then
MsgBox "キャンセルされました"
Else
Workbooks.Open filename varRet As Workbook ←
End If
←でファイルを開きたいのですが、どうすればよいのでしょうか。。プログラム弱いんです。。
>> また、一度開いたファイルを全て閉じるには
>>(アプリケーションを終了させないで)どうすればよいですか?
>
>For Each〜NextステートメントでWorkBooksをループ
>各オブジェクトに対し、Closeメソッドを実行すればいいのでは?
同じく何かサンプルがあると大変助かります!!
|
|