Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62071 / 76732

←次へ　｜　前へ→


	【19270】Re:固定長のテキストをスマートに切りだしながら取り込みたい

ackkn - 04/10/27(水) 9:48 -


	引用なし

	パスワード

▼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

1 hits

▼

【19205】固定長のテキストをスマートに切りだしながら取り込みたい ackkn 04/10/25(月) 16:01