Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35084 / 76732 ←次へ | 前へ→

【46851】Re:テキストファイルを順次読み込ませたい
発言  かみちゃん  - 07/2/18(日) 21:41 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>まず一個目のテキストファイル全文をコピーアンドペーストでシートに貼り付け、
>間を空けずにすぐ下のセルに二個目のテキストファイル全文を貼り付け、
>また次のテキストファイルを間を空けずにすぐ下のセルに貼り付け…
>
>を繰り返させたい

とりあえず、以下のような感じでできると思います。

Sub Sample()
 Dim FSO As Object
 Dim Fl As Object
 Dim buf As String
 Dim vntData As Variant
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 For Each Fl In FSO.GetFolder(ThisWorkbook.Path).Files
  '拡張子がTXTの場合
  If UCase(FSO.GetExtensionName(Fl.Path)) = "TXT" Then
   With FSO.GetFile(Fl.Path).OpenAsTextStream
    buf = .ReadAll
    vntData = Split(buf, vbCrLf)
    Cells(Rows.Count, 1).End(xlUp).Offset(1) _
     .Resize(UBound(vntData)) = Application.Transpose(vntData)
    .Close
    Erase vntData
   End With
  End If
 Next
 'スペース区切り
 Columns("A:A").TextToColumns Range("A1"), xlDelimited, True, True, False, True, True, True
End Sub

0 hits

【46846】テキストファイルを順次読み込ませたい モスキート 07/2/18(日) 20:47 質問
【46847】Re:テキストファイルを順次読み込ませたい かみちゃん 07/2/18(日) 21:09 発言
【46851】Re:テキストファイルを順次読み込ませたい かみちゃん 07/2/18(日) 21:41 発言
【46853】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 8:04 質問
【46859】Re:テキストファイルを順次読み込ませたい neptune 07/2/19(月) 10:22 発言
【46864】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 12:13 質問
【46867】Re:テキストファイルを順次読み込ませたい neptune 07/2/19(月) 13:07 回答
【46876】Re:テキストファイルを順次読み込ませたい モスキート 07/2/19(月) 15:19 お礼
【46877】Re:テキストファイルを順次読み込ませたい Kein 07/2/19(月) 15:22 回答

35084 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free