|
▼Hirofumi さん:
Hirofumi さん、おはようございます。
なりました、なりました、バッチリです。
で、欲が出てきたとたん、いきなり壁に激突です、助けて下さい。
というのは、読み込むファイル名が固定なので、せっかくGetReadFile関数でファイル名を取得するので、そこで指定できればと思い下記の変更をしましたら、Dir関数の行で'52'(ファイル名または番号が不正です)の実行時エラーが出ます。
Help等で調べたのですが、原因が判りません。
'ディフォルトのファイル名を指定
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
|
|