こんにちは
昨日質問させていただいた、コードを修正して
開かれるファイル名が可変である場合にも対応させたいのですが、"*"をもちいてみてもうまく行きません。
どの様に指定するのかご存知の方教えてください。
"\Fuji.txt"これを\****.txt
\*.txtとやってみましたがダメでした。
なお、041221_fuji.txtのように日付を6桁と"_"を入れてfujiとしたく、日付の6桁の数字のみ変えたいのです。
それを下記のコードに盛り込みたいのですが、何が足りないのかうまく行きません。
宜しくお願いします。
Sub ReadTxt()
Dim myTxtFile As String
Dim myBuf As String, wkdt() As String
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
myTxtFile = ActiveWorkbook.Path & "\Fuji.txt"
Worksheets("郵便番号").Activate
Open myTxtFile For Input As #1
Do Until EOF(1)
Line Input #1, myBuf
wkdt = Split(myBuf, vbTab)
'データをセルに展開する
i = i + 1
For j = 0 To UBound(wkdt)
Cells(i, j + 1) = wkdt(j)
Next j
Loop
Close #1
End Sub
No.3ベストアンサー
- 回答日時:
Dirを使ったら如何でしょう。
>myTxtFile = ActiveWorkbook.Path & "\Fuji.txt"
これを
myTxtFile = Dir(ActiveWorkbook.Path & "\*Fuji.txt")
if myTxtFile = "" then exit sub
myTxtFile = ActiveWorkbook.Path & "\" & myTxtFile
No.2
- 回答日時:
方法としてソースをそのまま使い修正追加するなら。
Sub ReadTxt()
Dim myTxtFile, Fn As String
Dim myBuf As String, wkdt() As String
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
Fn=inputbox("ファイル名は?")
myTxtFile = ActiveWorkbook.Path & "\" & Fn & ".txt"
Worksheets("郵便番号").Activate
Open myTxtFile For Input As #1
Do Until EOF(1)
Line Input #1, myBuf
wkdt = Split(myBuf, vbTab)
'データをセルに展開する
i = i + 1
For j = 0 To UBound(wkdt)
Cells(i, j + 1) = wkdt(j)
Next j
Loop
Close #1
End Sub
アドバイス有難うございます。
ボックスが出てきてファイル名を入れないと動かないので、完全オートと行かないのが残念です。
でもこんなやり方もあるんですね。
参考になりました。
有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで○○:○○と表示させたいのに...
-
昔のテレビっておっぱいが出て...
-
参照設定は2.8と6.0 6.1とどち...
-
韓流好き妻の行動に怒り…私は狭...
-
パソコンのインカメラに不意に...
-
韓流女と別れたい
-
動画が緑のモザイクのような画...
-
BTSがたまに口ずさむ、「ナナナ...
-
TWICEのライブについてです 母...
-
韓国
-
複数のテキストファイルをエク...
-
水に映った月明かりを表す言葉
-
【バッチファイル】ホスト名を...
-
バンタンのDOPEの最初って ラプ...
-
韓国のCDショップ
-
GoToRecord の使い方
-
確率の問題です。 10人を4人、4...
-
デスクチェア―のガスシリンダー...
-
SED等で文字列を抽出したい
-
twiceのツウィちゃんの、この卒...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
昔のテレビっておっぱいが出て...
-
複数のテキストファイルをエク...
-
【バッチファイル】ホスト名を...
-
バンタンのDOPEの最初って ラプ...
-
TextBoxコントロールを引数とし...
-
VBAで○○:○○と表示させたいのに...
-
Adobe Acrobat と Adobe Reader...
-
参照設定は2.8と6.0 6.1とどち...
-
水に映った月明かりを表す言葉
-
TWICEのライブについてです 母...
-
デスクチェア―のガスシリンダー...
-
韓流女と別れたい
-
imac2012ってまだ使えますか?...
-
韓流好き妻の行動に怒り…私は狭...
-
減少率の計算方法
-
PCの不具合について
-
東京ドームのコンサート、一番...
-
角度の求め方
-
latestの対義語
-
KPOP女性4皇
おすすめ情報