度々の質問申し訳ございません。
複数のテキストファイルが入ったフォルダ内のすべてのテキストデータをエクセルの1シートで開きたいです。
他の方の同じような質問の御回答に以下のようなマクロが有りました。
Sub macro1()
Dim myPath As String
Dim myFile As String
Dim n, c, s
'初期化
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "*.txt")
'受入準備
On Error Resume Next
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = Format(Date, "yyyymmdd")
On Error GoTo 0
'ファイルの巡回
Do Until myFile = ""
n = n + 1
Cells(n, "A") = myFile
'データの読み出し
Open myPath & myFile For Input As #1
c = 1
Do Until EOF(1)
Line Input #1, s
c = c + 1
Cells(n, c) = s
Loop
Close #1
myFile = Dir()
Loop
End Sub
これを利用させていただいて、テキストファイルを開いたのですが、こちらのマクロですとテキストデータの1列目しか開く事が出来ません。(図参照)
1列目2列目共に開くには何処を変更すれば良いですか?
マクロはまったく理解できないので、何卒宜しくお願い致します。
また、できればエクセルの横方向に開くのではなく、縦方向に開けるようにして頂けると非常にありがたいです。
何卒宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
>マクロはまったく理解できないので、何卒宜しくお願い致します。
なら、テキストファイルがいくつあるのかわかりませんが、先にひとつのファイルにしちゃうとか。
ただし、EXCELの扱える行数には制限があるので注意してください。
(だからお使いのOSやEXCELのバージョンは書いておくほうが良い)
1)お使いのOSが不明だけど、たぶんアクセサリの中にある「コマンドプロンプト」を開く。
2)黒地に白字の画面になるので、キー入力で右のカッコ内を打つ。 [cd /d ]
3)対象ファイルがあるフォルダのフォルダアイコンを2)へドラッグ&ドロップ。
4)[cd /d C:\xxxxx] みたいになるので、キーボードの[Enter]を押下
5)キー入力で右のカッコ内を打つ。 [copy /b *.txt TextAll.tx] ←最後はtxです
6)「1個のファイルをコピーしました」と表示されるはず。
7)キー入力で右のカッコ内を打つ。 [ren TextAll.tx TextAll.txt] ←最後はtxtです
8)EXCELで対象ファイルがあるフォルダのファイル[TextAll.txt]を開く。
例示のVBAを修正するのであれば
Do Until EOF(1)
Line Input #1, s
c = c + 1
Cells(n, c) = s
Loop
Close #1
を
Do Until EOF(1)
Line Input #1, s
n = n + 1
Cells(n, c) = s
Loop
Close #1
にしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- 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) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
batファイル処理でのテキストフ...
-
ファイル名の特定文字だけ削除...
-
複数のテキストファイルをexcel...
-
一気にずばっと複数のメールを...
-
テキストファイルを分割したい...
-
VBSでテキストファイルのタブ区...
-
バッチファイルが作成できない
-
テキストファイルの文字色に色...
-
WORD VBAでテキストファイルを...
-
携帯のアプリ
-
フォルダ名一括変更ツール
-
メモ帳(テキストエディタ)に...
-
ファイル名をリストにするソフト
-
テキストファイルを開かずに中...
-
Windowsのメモ帳に何かを書いた...
-
VBAでファイルパスが長すぎてコ...
-
Excel VBA シートを指定して...
-
Access2003で「オブジェクト'○○...
-
Refreshで落ちる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
Excelでdatファイルを作成??
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
ファイル名の特定文字だけ削除...
-
CDの曲名をテキストファイルで...
-
VBSでテキストファイルのタブ区...
-
CADでグラフ作成
-
KADOKAWA電撃文庫ってフォーマ...
-
文字の頭文字順に自動移動
-
windowsへscp
-
マクロでメモ帳に貼り付け
-
powershell で出力したテキスト...
-
Atokのユーザー辞書に、複数の...
-
ExcelVBA テキストファイルから...
-
複数テキストファイルをエクセ...
-
インデザインのテキスト流し込み
おすすめ情報