VBA - 將文本行打印到.txt文件

我在文本文件中打印值時遇到問題。每當我有一個日期或數字，我會得到一個「錯誤13」......我想它與我的變量有關，但我不明白問題出在哪裏。VBA - 將文本行打印到.txt文件

Sub SX_Externe_Generate_TXT() 
Dim WsCib As Worksheet 
Dim LastCol, LastRow, i, j As Byte 

Application.ScreenUpdating = False 

Set Ws = ThisWorkbook.Sheets("Externe") 
Set WsCib = ThisWorkbook.Sheets("SX_Externe") 
LastCol = WsCib.Cells(1, 1).SpecialCells(xlCellTypeLastCell).Column 
LastRow = WsCib.Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row 

WsCib.Activate 

Open "C:\Users\xizx692\Desktop\SX_Externe_Temp.txt" For Output As #1 'Tu crées le fichier text 

i = 1 

For i = 1 To LastRow 
j = 1 
    For j = 1 To LastCol 
     Print #1, WsCib.Cells(i, j).Value + ";"; 'Séparateur = ; 
    Next j 
    Print #1, WsCib.Cells(i, j + 1).Value 'pas de séparateur (Saut de ligne) 
Next i 

Close #1 

Ws.Activate 

Application.ScreenUpdating = False 

End Sub

的錯誤出現在這個線路印刷＃1，WsCib.Cells（I，J）。價值+ 「;」; 'Séparateur=;每當單元格（i，j）.value是日期或數字格式。

感謝您的幫助提前。

BR，

讓

來源

2017-06-19 Jean-FIC

Print #1, WsCib.Cells(i, j).Value + ";"; 'Séparateur = ;

VBA中連接運算符是&，不+。如果兩個操作數都是字符串，後者有時會起作用。

號碼+字符串引發運行時錯誤13除非字符串轉換爲數字，但VBA永遠不會數轉換爲字符串時使用+，只會試圖在這種情況下，算術加法。

Print #1, WsCib.Cells(i, j).Value & ";"; 'Séparateur = 
'        ^^^

這將解決手頭的問題，但還有其他一些事情應該改變。

Dim LastCol, LastRow, i, j As Byte這個語句聲明J所示字節和所有其他的變種。將它們全部變暗，並使用long而不是Byte，因爲Long應始終是整型變量的自然選擇，除非有特定原因。
```
 `Dim LastCol as Long, LastRow As Long, i as Long, j As Long` 
```
i=1和j=1是多餘的，讓For語句來完成初始化工作
聲明Print #1, WsCib.Cells(i, j + 1).Value也是多餘的，因爲該小區是空白。要打印空行，只需要Print #1, ""。儘管它的確如此，但它的代碼的可讀性是錯誤的。

來源

2017-06-19 18:54:21

灰，非常感謝您的回答。它幫助我解決我的問題，而且：它教會了我很棒的東西。我之所以使用「字節」是因爲我知道將有不到250行，我認爲我的代碼會更快......對我感到羞恥嗎？我不知道j，我會在循環結尾回到「1」，這就是爲什麼我要強制j = 1！你想參加我提出的另一個問題嗎？ [去這裏]（https://stackoverflow.com/questions/44592776/action-when-linked-cell-of-option-button-changes/44593266#44593266）如果是！ **需要解決所有問題; D ** –

想過，爲什麼將LastCol，LastRow和我定義爲變體？謝謝！ –

@ Jean-FIC我的意思是你的初始聲明將它們聲明爲Variant，而不是Byte。對所有的整型變量使用'Long'，因爲它是32位的，所以它會最快，並且不易發生溢出。唯一可以考慮'Integer'或'Byte'的地方是當你有*巨大的數組*可能會導致內存問題。 –

VBA - 將文本行打印到.txt文件

回答

相關問題