Excel VBA質問箱 IV

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

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


66699 / 76734 ←次へ | 前へ→

【14597】Re:フォルダー内の全てのファイルを選択する方法
お礼  初心者1号  - 04/6/2(水) 17:35 -

引用なし
パスワード
   ▼ちゃっぴ さん:

早々の回答ありがとうございます!
助かります〜〜。。

>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メソッドを実行すればいいのでは?

同じく何かサンプルがあると大変助かります!!

2 hits

【14594】フォルダー内の全てのファイルを選択する方法 初心者1号 04/6/2(水) 16:28 質問
【14595】Re:フォルダー内の全てのファイルを選択す... ちゃっぴ 04/6/2(水) 16:45 回答
【14597】Re:フォルダー内の全てのファイルを選択す... 初心者1号 04/6/2(水) 17:35 お礼
【14599】Re:フォルダー内の全てのファイルを選択す... ちゃっぴ 04/6/2(水) 17:46 回答
【14600】Re:フォルダー内の全てのファイルを選択す... 初心者1号 04/6/2(水) 17:52 お礼

66699 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free