Private Sub CommandButton2_Click()
Dim myFso
Dim myTxt
Dim brr(), Arr, tim, dah, i, zdh, dh
dh = Range("c400000").End(xlUp).Row
If dh < 3 Then MsgBox "運行錯誤：" & Chr(13) & "表中無資料！": End
tim = Timer
zdh = Range("c400000").End(xlUp).Row
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myTxt = myFso.CreateTextFile(Filename:=ThisWorkbook.Path & "\運算結果.txt", OverWrite:=True)
With myTxt
dah = Range("c400000").End(xlUp).Row
Arr = Range("b1:g" & dah)
ReDim brr(1 To dah)
For i = 3 To UBound(Arr)
brr(i) = Arr(i, 1) & "," & Arr(i, 2) & "," & Arr(i, 3) & "," & Arr(i, 4) & "," & Arr(i, 5)
Next
For i = 1 To dah
.WriteBlankLines 1
.Write brr(i)
Next
.Close
End With
[q1] = "計時 " & Format(Timer - tim, "0.00") & " 秒"
MsgBox "運算完畢" & Chr(13) & " “運算結果”保存E:\test！"
Set myTxt = Nothing
Set myFso = Nothing
End Sub
問題：
1/不改變For i = 3這個代碼，因為EXCEL表前2行有資料，如何讓匯出的TXT沒有3行空格？新手學習ING
2/匯出路徑設定為 E:\test\運算結果.txt, 如果匯出檔案 [運算結果.txt] 存在的話，匯出的資料就繼續添加到這個運算結果.txt中。如何修改代碼，如果不能這樣添加資料，那么第二次的匯出檔案就不要覆寫原來的匯出檔案，新建立一個序號為1.TXT,下一個匯出檔案為2.TXT.。。。。。。檔案名是1，2，3，4.。。。檔案名為自然數遞增。如何修改代碼？新手學習ING
uj5u.com熱心網友回復：
在匯出功能上。可以匯出順序txt檔案。每次匯出新建一個TXT，檔案名自動增加，TXT前3行不能是空格,
請問如何修改代碼？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/283670.html
標籤：VBA