老潘 發問時間: 電腦與網際網路軟體 · 4 年前

關於txt檔、excel檔程式問題?

各位大哥大姐好,我是在做鐵路數據分析的研究生,想在這邊提問一些程式問題

1、將巨集(60x24x30個)的txt檔轉成excel檔的程式。

{我自己知道如何巨集開起,再分別存excel,不過覺得還是太慢,總希望有個程式能讓他一直run存檔。

2、將每個excel的data 14x22大小(B2~W15),匯至1個excel,並轉成 1x308大小的data(B2起始)。

1 個解答

評分
  • 4 年前
    最佳解答

    可以利用這個來改

    Sub get_file()

    DirPath = ThisWorkbook.Path

    fs = Dir(DirPath & "\*.txt")

    Do Until fs = ""

    r = r + 1

    Cells(r, 1) = fs '''執行程序

    fs = Dir

    Loop

    End Sub

    找個參考自行取用修改

    Sub test()

    DirPath = ThisWorkbook.Path

    fs = Dir(DirPath & "\*.txt")

    Do Until fs = ""

    r = r + 1

    FilNm = DirPath & "\" & fs

    ''''資料剖析程序

    With ActiveSheet.QueryTables.Add(Connection:= _

    "TEXT;" & FilNm, Destination:=Range("$A$1"))

    .AdjustColumnWidth = True

    .TextFileSemicolonDelimiter = True

    .Refresh BackgroundQuery:=False

    End With

    ''''抓筆數命名

    xn = Replace(fs, ".txt", "") & "_" & [A65536].End(xlUp).Row & ".xlsx"

    ActiveWorkbook.SaveAs Filename:=DirPath & "\" & xn, _

    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks(xn).Close False

    fs = Dir

    Loop

    MsgBox "轉檔完畢"

    End Sub

    • 老潘4 年前檢舉

      先謝謝大大幫忙解答
      不過現在只剩下 大量txt檔轉excel 這問題了
      請問能用matlab撰寫轉檔程式嗎
      或是用上面哪一段改就好
      小的程式基礎差 有點看不懂大大所提供的程式

還有問題?馬上發問,尋求解答。