少毛 發問時間: 電腦與網際網路軟體 · 5 年前

EXCEL,每三格匯入一個TXT檔案?

查了許多文章,沒有看到類似EXCEL每三格匯入一個TXT檔案的解答。

假設:

我需要A1~C1三格匯出一個d1.txt

接著A2~C2也會出一個d2.txt

A3~C3也會出一個d3.txt

依此類推。

有嘗試使用VBA,但我寫出來都是要先建立txt檔案再進行EXCEL匯入,但我data量很大,無法手動工程。

1 個解答

評分
  • Lopez
    Lv 5
    5 年前
    最佳解答

    Sub output_my_file()

    U = [A65536].End(xlUp).Row

    For i = 1 To U

    My_File = "C:\d" & i & ".txt "

    Open My_File For Output As #1

    For j = 1 To 3

    Write #1, Cells(i, j)

    Next

    Close #1

    Next

    End Sub

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