| |
▼ちゃっぴ さん：
早々の回答ありがとうございます！
助かります〜〜。。
>VBAなら、Dir関数かFileSystemObjectで再帰
Ｄｉｒ関数を検索してみたのですが、初心者には少しわかりづらく、、
こういうプログラムでしょうか？？（いろんなものを切り貼りしてます。。）
Dim varRet As Variant
Dim strPath As String
strPath = "C:Ｄａｔａ\"
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メソッドを実行すればいいのでは？
同じく何かサンプルがあると大変助かります！！
|
|
初心者１号
- 04/6/2(水) 17:35 -
