将某一行的单元格导出到.txt文档

时间:2018-08-29 13:00:54

标签: excel vba excel-vba

我有一个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&"
    }
   ]

  }"

他无法复制它们,前三行得到了很好的解释,但其余三行却没有,我不知道为什么。 我尝试了很多事情,但是用一些数字或某些文本可以执行此代码,但是使用这些单元格总是会出错,并且不能正确复制行中包含的单元格。

有人知道原因吗?预先谢谢你。

最好的问候。 马甸

0 个答案:

没有答案