このマクロなんですが、Sent_88310.emlを1列で表示したいのですが、ここにあるように
myFields = Split(inRec, ",") カンマで区切られて、2列になってしまいます1列にしたく、
いろいろ、やってみますが、構文エラーになったり、うまく動きません。
どんなふうに、修正したらいいのでしょうか?
---------------------
Public Sub ReadCSV()
'CSVファイルの読み込み
Dim n As Long
Dim myFields As Variant
Dim inRec As String
Dim r As Long
Dim c As Long
n = FreeFile
Open ThisWorkbook.Path & "\Sent_88310.eml" For Input As #n
r = 1
Do While Not EOF(n)
Line Input #n, inRec
myFields = Split(inRec, ",")
For c = 0 To UBound(myFields)
Cells(r, c + 1).Value = myFields(c)
Next c
r = r + 1
Loop
Close #n
End Sub
---------------------------
No.1ベストアンサー
- 回答日時:
こんばんは
>カンマで区切られて、2列になってしまいます1列にしたく、~
そのまま1セルに入れたいってことでしょうか?
それなら、カンマで分割しなければよいだけでは?
Do While Not EOF(n)
Line Input #n, inRec
'myFields = Split(inRec, ",")
'For c = 0 To UBound(myFields)
'Cells(r, c + 1).Value = myFields(c)
'Next c
Cells(r, 1).Value = inRec
r = r + 1
Loop
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) VBA 毎日取得するデータを反映させる方法 の応用 2 2023/09/05 16:32
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBA
Visual Basic(VBA)
-
Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したい
Visual Basic(VBA)
-
エクセルファイルのデータ転記について
Visual Basic(VBA)
-
-
4
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
5
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
6
Cellsのコードが打てません
Visual Basic(VBA)
-
7
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
8
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
9
【マクロ】プルダウンが設定してあるセルにコピペできますか?
Visual Basic(VBA)
-
10
VBAで特定のシート以外のシート名を変更したい
Visual Basic(VBA)
-
11
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
12
VBA ファイル名取得
Visual Basic(VBA)
-
13
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
14
VBAのコードを教えてください
Visual Basic(VBA)
-
15
VBAコードについて
Visual Basic(VBA)
-
16
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
-
17
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
18
FileCopy時のエラー
Visual Basic(VBA)
-
19
【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい
Excel(エクセル)
-
20
VBAに関して
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
matlabで、平均値を求める方法...
-
MATLAB(マトラボ)とcsvファ...
-
ポインター引数の関数でコンパ...
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
バイナリとBCDコード
-
stable diffusionのエラー
-
エクセルシート名の制限を変更...
-
char str[256]の256の意味は?
-
COBOLのCOMP形式について
-
Excel VBA メール作成について ...
-
Excel 1セル当りの文字数が2...
-
DataGridViewの特定列に入力さ...
-
ビットスワップとバイトスワッ...
-
1KBが1024byteな理由
-
ピクセル,dpiから容量(バイト...
-
ビットデータのチェック方法
-
SQLで1バイト、2バイト混在...
-
VBAでUnicodeしか存在しない文...
-
エクセルVBA:日付データの変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA エクセルで1列で表示したい。
-
matlabで、平均値を求める方法...
-
MATLAB(マトラボ)とcsvファ...
-
文字型変数を使って2進数表示す...
-
いつどこゲームのようなテキス...
-
VBScripの2次元動的配列
-
UTF-8で5~6バイトになる文字コ...
-
10Mバイトて文字数に すると何...
-
Excel VBA メール作成について ...
-
stable diffusionのエラー
-
DataGridViewの特定列に入力さ...
-
エクセルシート名の制限を変更...
-
なんでブラウザでPHPを動かすた...
-
COBOLのCOMP形式について
-
ポインター引数の関数でコンパ...
-
char str[256]の256の意味は?
-
メールの件名をデコードしたい
-
バイナリとBCDコード
-
Excel 1セル当りの文字数が2...
-
異なるドメインのサイトでcooki...
おすすめ情報