以下のコードにてテキストファイルを読み込むと最後のデータだけデータ+改行が含まれてしまい2行となってしまいます。
テキストデータの最終行は以下の例のように改行が入っているのですが、ファイル数が多く現状のまま対応したく、改善案がないかアドバイスをお願いします。
・テキストデータ例(以下例ですと、5Gのしたに改行が入っています。
2A
D4
5G
・コード
Sub
Dim SaveDir As String
Dim text As String
Dim i As Integer: i = 1
Sheets("Sheet1").Activate
SaveDir = Range("D3") & "\" & Range("D4")
If Dir(SaveDir, vbDirectory) = "" Then
MkDir SaveDir
End If
Open "C:\テキストファイルパス.txt" For Input As #1
Do Until EOF(1)
Line Input #1, text
Cells(11 + i, 3).Value = text
i = i + 1
Loop
Close #1
End Sub
No.2ベストアンサー
- 回答日時:
こんにちは
>データ+改行が含まれてしまい2行となってしまいます。
「セル内改行」が含まれているってことでしょうか?
通常のテキストファイルでは、セル内改行(=Chr(10))が含まれることはなさそうに思いますが、何かの出力なのでしょうかね。
全行とも改行コードを削除しても良いのであれば、読み込んだ際に改行を削除しておけば宜しいかと。
変更前
Cells(11 + i, 3).Value = text
変更後
Cells(11 + i, 3).Value = Replace(text, Chr(10), "")
※ 意味が違っている場合は、無視してください。
意味がわかりにくくてすみません。
仰る通りなぜか最終セルのみセル内改行が含まれてしまうようになっておりました。
いただいたコードにて解決できました、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
wordの何も書かれていない2ペー...
-
Chr(13)とChr(10)の違いは?
-
TeraPadで改行が
-
VBA フォームのテキストボック...
-
履歴書の志望動機の所で、「ま...
-
Access2003で特定列の改行コー...
-
パワーポイントのテキストボックス
-
棒グラフ 横軸の縦書き2列にし...
-
【エクセル】セル最後にある無...
-
excelで勝手に改行されます
-
Excel セル内の最初と最後の改...
-
EXCEL(VBA) 末尾の改行のみ削...
-
Excel、VBA、1行中複数セルに...
-
イミディエイトウインドウの最...
-
パワーポイントのリンク管理に...
-
短歌が1行で収まらない場合、...
-
GIFアニメのコマ数とループ回数...
-
VBA セル内改行禁止
-
エクセルVBAのテキストボックス...
-
エクセルでの組み文字は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordの何も書かれていない2ペー...
-
Chr(13)とChr(10)の違いは?
-
【エクセル】セル最後にある無...
-
wordで均等割り付けをするとき...
-
履歴書の志望動機の所で、「ま...
-
PDFの改行URLを有効にす...
-
Accessにインポートしようとす...
-
excelで勝手に改行されます
-
EXCELで"-"で勝手に自動改行し...
-
棒グラフ 横軸の縦書き2列にし...
-
Tera Term のマクロでの改行コ...
-
PCの表示の文書をコピーすると?
-
イミディエイトウインドウの最...
-
EXCEL(VBA) 末尾の改行のみ削...
-
バッチで指定ファイルの文末に...
-
Excel セル内の最初と最後の改...
-
パワーポイントのテキストボックス
-
パワーポイントのリンク管理に...
-
Word 途中で勝手に改行してしま...
-
エクセルでセル内改行の複数行...
おすすめ情報