Excel VBA質問箱 IV

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

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


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

61915 / 76738

←次へ　｜　前へ→


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

ackkn - 04/11/2(火) 18:35 -


	引用なし

	パスワード

▼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
またお世話になると思いますので、その節はよろしくお願い致します。

0 hits

▼

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