我有一个excel文档,我正在尝试将一行中的所有单元格都放入txt文档中。
Sub ExportTxt()
Dim CheminFichierTxt As String
Dim Tablo() As Variant
Dim nombreligne As Integer
nombreligne = Sheets("Operation sab").Range("E2").Value
Tablo = Worksheets("Génération fichier SAB").Range("E2:E" & nombreligne).Value
CheminFichierTxt = "C:\Users\GB4678\Documents\fichier excel\fichiersab.txt"
NumFichier = FreeFile()
Open "C:\Users\GB4678\Documents\fichier excel\fichiersab.txt" For Output As #NumFichier
'tu parcours le tableau
For i = 1 To UBound(Tablo)
For j = 1 To UBound(Tablo, 2)
Print #NumFichier, Tablo(i, j)
Next j
Next i
Close #NumFichier ' Ferme le fichier.
End Sub
但是由于我要复制的行很大,像这样:
=",{
"&$C$1&"date"&$C$1&": "&$C$1&'Création login'!$F$3&"-"&'Création login'!$E$3&"-"&'Création login'!$D$3&$C$1&",
"&$C$1&"extraction"&$C$1&": "&$C$1&'Création login'!$F$3&"-"&'Création login'!$E$3&"-"&'Création login'!$D$3&"T15:13:24.000+0100"&$C$1&",
"&$C$1&"description"&$C$1&": "&$C$1&A4&B4&$C$1&",
"&$C$1&"movement"&$C$1&": "&$C$1&SI(A4="REMCBP";"credit";"debit")&$C$1&",
"&$C$1&"currency"&$C$1&": "&$C$1&"EUR"&$C$1&",
"&$C$1&"amount"&$C$1&": "&ALEA.ENTRE.BORNES(10;99)&"."&ALEA.ENTRE.BORNES(10;99)&",
"&$C$1&"status"&$C$1&": "&$C$1&"posted"&$C$1&",
"&$C$1&"custom_fields"&$C$1&": [ {
"&$C$1&"name"&$C$1&": "&$C$1&"POSTING_DATE"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&'Création login'!$F$3&"-"&'Création login'!$E$3&"-"&'Création login'!$D$3&$C$1&"
},{
"&$C$1&"name"&$C$1&": "&$C$1&"FEES_NUMBER"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"0"&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"LIB3"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"EUR"&$C$1&"
}, {
"&$C$1&"name"&$C$1&": "&$C$1&"LIB2"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"20,00 FR"&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_TYPE"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&A4&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_TAG"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&B4&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_NATURE"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"CBP"&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"LIB2"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"Paiement carte n°1234XXXXXX"&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"CARD_ALIAS"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&'Création login'!$C$3&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_DATE"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&'Création login'!$F$3&"-"&'Création login'!$E$3&"-"&'Création login'!$D$3&$C$1&"
}, {
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_NOM"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"Test "&A4&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_ADR"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&"Vincennes"&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_CB_AVIS"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&ALEA.ENTRE.BORNES(1000000000000;9999999999999)&$C$1&"
}, {
"&C1&"name"&$C$1&": "&$C$1&"TNX_SABID"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&ALEA.ENTRE.BORNES(1000000000000;9999999999999)&$C$1&"
},
{
"&$C$1&"name"&$C$1&": "&$C$1&"TNX_CB"&$C$1&",
"&$C$1&"value"&$C$1&": "&$C$1&ALEA.ENTRE.BORNES(1000000000000;9999999999999)&$C$1&"
}
]
}"
他无法复制它们,前三行得到了很好的解释,但其余三行却没有,我不知道为什么。 我尝试了很多事情,但是用一些数字或某些文本可以执行此代码,但是使用这些单元格总是会出错,并且不能正确复制行中包含的单元格。
有人知道原因吗?预先谢谢你。
最好的问候。 马甸