|
> 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の基本構文わかっていらっしゃらないようなので、
入門書を購入し、基礎から勉強されることをお勧めします。
近道はありませんよ。
|
|