![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
このマクロなんですが、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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
matlabで、平均値を求める方法...
-
Excel 1セル当りの文字数が2...
-
char str[256]の256の意味は?
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
エクセルシート名の制限を変更...
-
COBOLのCOMP形式について
-
DataGridViewの特定列に入力さ...
-
postで送られてきたパラメータ...
-
Excel VBA メール作成について ...
-
ファイルに書き込めない/ファ...
-
64bit対応
-
printfの%eで指数部分の桁数を...
-
:(コロン)のKeyCode
-
C++ Builderで文字列をバイトに...
-
【Excel VBA】10進数を2進数に...
-
URLは最高何文字まで可能なので...
-
機種依存文字をチェックしたい。
-
VBAでUnicodeしか存在しない文...
-
SQLで1バイト、2バイト混在...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6.0でMSChartをタイマーを使...
-
いつどこゲームのようなテキス...
-
MSDOSからワイルドカード指定で...
-
MATLAB(マトラボ)とcsvファ...
-
matlabで、平均値を求める方法...
-
エクセルシート名の制限を変更...
-
UTF-8で5~6バイトになる文字コ...
-
10Mバイトて文字数に すると何...
-
Excel VBA メール作成について ...
-
Excel 1セル当りの文字数が2...
-
DataGridViewの特定列に入力さ...
-
COBOLのCOMP形式について
-
char str[256]の256の意味は?
-
機種依存文字をチェックしたい。
-
バイト列とバイナリ列の違いが...
-
stable diffusionのエラー
-
ピクセル,dpiから容量(バイト...
-
SQLで1バイト、2バイト混在...
-
「1TB」のHDDに日本語は何字入...
-
64bit対応
おすすめ情報