| |
> 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
GetOpenFileNameですと、引数MulitiSelectを指定することにより、
フォルダ直下のファイルを全選択できますが、サブフォルダに格納されているファイルは対応できません。
ヘルプを調べてみましょう！
> Workbooks.Open filename varRet As Workbook
ちなみにこれは何でしょう？
Workbooks.Open filename:=varRet
の間違いでは？
VBAの基本構文わかっていらっしゃらないようなので、
入門書を購入し、基礎から勉強されることをお勧めします。
近道はありませんよ。
|
|
ちゃっぴ
- 04/6/2(水) 17:46 -
