Excel VBA質問箱 IV

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

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


66697 / 76734 ←次へ | 前へ→

【14599】Re:フォルダー内の全てのファイルを選択する方法
回答  ちゃっぴ  - 04/6/2(水) 17:46 -

引用なし
パスワード
   >  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

GetOpenFileNameですと、引数MulitiSelectを指定することにより、
フォルダ直下のファイルを全選択できますが、サブフォルダに格納されているファイルは対応できません。

ヘルプを調べてみましょう!


>    Workbooks.Open filename varRet As Workbook 
ちなみにこれは何でしょう?
Workbooks.Open filename:=varRet
の間違いでは?

VBAの基本構文わかっていらっしゃらないようなので、
入門書を購入し、基礎から勉強されることをお勧めします。

近道はありませんよ。
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 お礼

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