匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 9 年前

EXCEL寫VBA程式將儲存格內容匯出成TXT格式檔案

有大大能敎我如何寫個VBA程式將下圖的東西呈現出來嗎?感激不盡QQ

圖片參考:http://imgcld.yimg.com/8/n/AC07677628/o/1611072005...

1 個解答

評分
  • Kathy
    Lv 4
    9 年前
    最佳解答

    假設你的檔案名稱要用 cells(1,"C") 的"123"命名。

    輸出的路徑為 C:\ 下面的 123.txt

    Private Sub CommandButton1_Click()

    Dim i As Integer

    Dim j As Integer

    Dim a As Object

    Sheet1.Activate

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set a = fs.CreateTextFile("c:\" & Cells(1, "C") & ".txt", True)

    i = Range("A65536").End(xlUp).Row

    j = Selection.SpecialCells(xlCellTypeLastCell).Column

    For x = 2 To i

    For y = 1 To j

    a.write Cells(x, y)

    Next

    a.write vbCrLf

    Next

    a.Close

    End Sub

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