close

2064

VBA編寫匯出TXT檔

實用性

●○○

難易度

●○○○

範本檔

2064.XLSX

If Range("L2") = Range("L3") Then

Dim bs As String

Open "H:\0327.txt" For Output As #1

bs = Range("L2")

Print #1, bs

Close #1

End If

目前動態匯出L2數據可以，但是我想多新增卻無法，例如：L2=ABC B2=XYZ，TXT檔案內容顯示ABC,XYZ

這只須要將公式更改為：

If Range("L2") = Range("L3") Then

Dim bs As String

Open "H:\0327.txt" For Output As #1

bs = Range("L2") & "," & Range("B2")

Print #1, bs

Close #1

End If

 


arrow
arrow
    文章標籤
    range txt dim if string 匯出 output print xyz abc then close open xlsx vba 難易度 for 編寫
    全站熱搜
    創作者介紹
    創作者 錦子老師 的頭像
    錦子老師

    錦子老師

    錦子老師 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄