ID非公開

2021/4/27 15:02

22回答

複数のテキストファイルをエクセルに取り込むVBA

画像

Excel | Visual Basic29閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

その他の回答(1件)

0

・フォルダはこのマクロと同じフォルダ ・データは全て 800から.5刻み  ・メモ帳のコードはAnsi、数字のみ としました。違っていたら変身して下さい。 Workbooks.OpenTextを使っていないので早いと思います。 Option Explicit ' Sub Macro1()     Dim FileData As Variant     Dim IBook As Workbook     Dim ROut As Long     Dim Colu As Integer '     ActiveSheet.CheckBoxes.Delete     FileData = Dir(ThisWorkbook.Path & "\*.txt")     [B1:XFD1048576].ClearContents     Colu = 2 '     Do While FileData > ""         Cells(1, Colu) = Replace(FileData, ".txt", "")         Open FileData For Input As #1         ROut = 2                  Do While Not EOF(1)             Line Input #1, FileData             FileData = Split(FileData & vbTab, vbTab)             Cells(ROut, "A") = FileData(0)             Cells(ROut, Colu) = FileData(1)             ROut = ROut + 1         Loop         Close         FileData = Dir         Colu = Colu + 1     Loop End Sub