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轉寄