VBA編寫匯出TXT檔

vba編寫匯出txt檔

tkoper963 2019-03-23 20:54:08 ‧ 1185 瀏覽

分享至

If Range("L12") = Range("L13") Then
Dim bs As String
Open "H:\test.txt" For Output As #1
bs = Range("L12")
Print #1, bs
Close #1
End If

目前動態匯出L12數據可以，但是我想多新增卻無法
例如L12=000 B12=111
txt檔內容顯示000,111

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-03-23 21:16:15

最佳解答

If Range("L12") = Range("L13") Then
    Dim bs As String
    Open "H:\test.txt" For Output As #1
    bs = Range("L12") & "," & Range("B12")
    Print #1, bs
    Close #1
End If

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙

VBA編寫匯出TXT檔

If Range("L12") = Range("L13") Then Dim bs As String Open "H:\test.txt" For Output As #1 bs = Range("L12") Print #1, bs Close #1 End If

1 個回答

我要發表回答

標記使用者

If Range("L12") = Range("L13") Then
Dim bs As String
Open "H:\test.txt" For Output As #1
bs = Range("L12")
Print #1, bs
Close #1
End If