|
>どうしても実行エラー75
>パス名が無効です となります。
>
>デバッグ
>Open vntFileName For Input As dfn
>
>原因が分かりますでしょうか?
>またdfn の役割は何でしょうか?
>
>申し訳ありません。
そりゃ、そうなるでしょ?
書き換えている「Function GetReadFile」が、出鱈目だもの
何故、言う通りに直さないの?
何か都合が悪いの?
「Sub 商品()」の中を次の様に変更して下さい
'Textファイルの有るフォルダを指定
' strPath = ThisWorkbook.Path '★変更
strPath = "C:\Program Files\KEYENCE\BT-500\DATA"
'「ファイルを開く」ダイアログを表示
If Not GetReadFile(vntFileName, strPath, False) Then
strProm = "マクロがキャンセルされました"
GoTo WayOut
End If
「Function GetReadFile」を元に戻す
Private Function GetReadFile(vntFileNames As Variant, _
Optional strFilePath As String, _
Optional blnMultiSel As Boolean _
= False) As Boolean
Dim strFilter As String
'フィルタ文字列を作成
strFilter = "CSV File (*.csv),*.csv," _
& "Text File (*.txt),*.txt," _
& "CSV and Text (*.csv; *.txt),*.csv;*.txt," _
& "全て (*.*),*.*"
'読み込むファイルの有るフォルダを指定
If strFilePath <> "" Then
'ファイルを開くダイアログ表示ホルダに移動
ChDrive Left(strFilePath, 1)
ChDir strFilePath
End If
'もし、ディフォルトのファイル名が有る場合
If vntFileNames <> "" Then
SendKeys vntFileNames & "{TAB}", False
End If
'「ファイルを開く」ダイアログを表示
vntFileNames _
= Application.GetOpenFilename(strFilter, 2, , , blnMultiSel)
If VarType(vntFileNames) = vbBoolean Then
Exit Function
End If
GetReadFile = True
End Function
尚、dfnは、ファイルバッファ番号で、ファイルをOpenした後は、この番号で
開いているファイルを認識します
ただ、今回のエラーは、此れじゃ無いよ
「Function GetReadFile」を書き換えた為、
vntFileName変数にファイル名(フルパスの)が返って着て無い為に起こっています
vntFileName変数の中は""が返っています
|
|