|
▼Hirofumi さん:
Hirofumi さん、こんばんは。
返事が遅くなって申し訳ありません。
>もし、こう言う使い方をするなら以下の様にします
> 'ディフォルトのファイル名を指定
> vntFileName = "SinBHKaku*.txt" '←ここと
> If Not GetReadFile(vntFileName, ThisWorkbook.Path, False) Then
> Exit Sub
> End If
>' 'Openするファイル名を設定 '★要らない
>' 'vntFileName = ThisWorkbook.Path & "\" & "Test.txt" '★要らない
>' vntFileName = ThisWorkbook.Path & "\" & vntFileName '←ここ ★要らない
> If Dir(vntFileName) = "" Then '←ここでエラーが出ます。
> Beep
> MsgBox vntFileName & vbCrLf & "ファイルが有りません"
> Exit Sub
> End If
>尚、
>> それと、Function GetReadFile(vntFileNames As Variant, _
>> Optional strFilePath As String, _
>> Optional blnMultiSel As Boolean _
>> = False) As Boolean
>> 内の vntFileNames 全てを vntFileName に変えました。
>は、する必要が有りません
ご教示通り直しましたら、バッチリ思ったとおりに動きました。
本当に色々とありがとうございました。m(_ _)m
またお世話になると思いますので、その節はよろしくお願い致します。
|
|