昨日も質問させていただいたVBA初心者です。
いろいろ調べましたが解決しなかったので、
またまた質問させていただきます。
ファイルを読み込んで、それを別ファイルに保存したいのですが、
下記ですと、1行のみ保存されるだけでした。
この方法ですと、すべて保存されるはずと書かれていたのですが。
全くどこが悪いのか分かりません、よろしくお願いします。
Private Sub cmd_Click()
On Error GoTo Err_cmd_Click
Dim ReadFileName As String
Dim Contents As String
Dim WriteFileName As String
ReadFileName = "P:\dl_engine\logs1\service\20020223"
' ファイルを読み込む
Open ReadFileName For Input As #1
Input #1, Contents
Close #1
WriteFileName = "C:\Contents\data\Melody.csv"
' ファイルに保存
Open WriteFileName For Output As #2
Write #2, Contents
Close #2
'正常終了
Exit_cmd_Click:
Exit Sub
'エラー処理
Err_cmd_Click:
Beep
Select Case Err.Number
Case Else
MsgBox Err.Number & ":" & Err.Description
End Select
Resume Next
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。読み込むところで、Doループでファイルの終端まで繰り返さないといけないですよ。
あと、Line Inputではダメですか?
Dim temp As String '1行のデータの仮置き
Open ReadFileName For Input As #1
Do Until EOF(1)
Line Input #1, temp
Contents = Contents & temp & vbCrLf
Loop
Close #1
※Line Inputの場合はWriteではなくPrintを使用
それから、ファイル番号は1とか2とか自分で付けずに、FreeFile関数を使った方がいいですよ。
では。
さっそく試したところ、バッチリでした。
> ファイル番号は1とか2とか自分で付けずに、
> FreeFile関数を使った方がいいですよ。
そのようにしたいと思います。
よろしければ、理由など教えていただきますと助かります。
今回は本当にありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL、上書き保存したは...
-
Excelで勝手に保存画面に飛びま...
-
txt ファイル (テキストフ...
-
拡張子のないファイルの作成
-
ZIPファイル内のファイルを...
-
PUBファイルをパブリッシャー以...
-
mdfファイルの変換について
-
Lファイルという画像をマイピク...
-
wordの「docx」ファイルを「tex...
-
one driveでデスクトップを共有...
-
拡張子tmpファイルを開く方法
-
【Access】テーブルをエクスポ...
-
csvファイルで作成したグラフ
-
文書内の表が破損しています、...
-
メールで送られてきたエクセル...
-
Wordで最初の行が 字下げ さ...
-
XLSXファイルをExcelファイルに...
-
VBAファイルの保存先について
-
複数あるテキストボックス中の...
-
Webページ完全で保存した関連付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL、上書き保存したは...
-
txt ファイル (テキストフ...
-
Excelで勝手に保存画面に飛びま...
-
拡張子のないファイルの作成
-
ZIPファイル内のファイルを...
-
文書内の表が破損しています、...
-
拡張子tmpファイルを開く方法
-
auのスマフォでPDFを見るには・...
-
PUBファイルをパブリッシャー以...
-
one driveでデスクトップを共有...
-
閲覧したwebページの画像が自動...
-
【Access】テーブルをエクスポ...
-
Lファイルという画像をマイピク...
-
共有フォルダの件
-
エクセルのファイル名が「開く...
-
複数あるテキストボックス中の...
-
wordの「docx」ファイルを「tex...
-
Wordの保存形式でwebページの意...
-
メールで送られてきたエクセル...
-
エクセルで同時に二箇所にファ...
おすすめ情報