數據從 Excel 導出到 CSV

Question

當我將數據從我的 excel 工作表中分離的列和行傳輸到 .csv 格式時，它不會以 .csv 格式分離數據。 我把我的代碼放在下面。

Private Sub CommandButton1_Click()
    Dim lastrow As Long, wb As Workbook, ws As Worksheet, wbDest As Workbook, _
        wsDest As Worksheet, path As String

    If ComboBox1.Value = "DENİZBANK - ALTUNİZADE ŞUBE" Then
        'Combobox isimli bir dosya aç
        Set wb = ThisWorkbook
        Set ws = wb.Sheets("TL")
        path = "C:\Users\emir.DEMTA\Desktop\Vahit Çağlayan Dosyalar\p. CSV\DENİZBANK - ALTUNİZADE ŞUBE\Deniz_Giden_Banka_HGS.csv"
        Set wbDest = Workbooks.Open(path)
        Set wsDest = wbDest.Worksheets("Deniz_Giden_Banka_HGS")
        n = 1

        For i = 13 To 50 'lastrow
            'Aşağıdaki verileri combobox isimli dosyaya yazdır.
            If ComboBox1.Value = "DENİZBANK - ALTUNİZADE ŞUBE" And _
               ComboBox5.Value = "1073196-389" And _
               TextBox5.Value <> "" And _
               ws.Cells(i, "A").Value = "DENİZBANK - ALTUNİZADE ŞUBE" And _
               ws.Cells(i, "I").Value = "Banka" Then
                wsDest.Cells(n + 1, 1) = ws.Cells(i, 9).Value
                wsDest.Cells(n + 1, 2) = ws.Cells(i, 4).Value
                wsDest.Cells(n + 1, 3) = ws.Cells(i, 6).Value
                wsDest.Cells(n + 1, 5) = "1"
                wsDest.Cells(n + 1, 6) = "'01"
                wsDest.Cells(n + 1, 7) = ws.Cells(i, 7).Value
                wsDest.Cells(n + 1, 8) = ws.Cells(i, 8).Value

                n = n + 1
            End If
        Next i

        wbDest.SaveAs Filename:="C:\Users\emir.DEMTA\Desktop\Vahit Çağlayan Dosyalar\p. CSV\DENİZBANK - ALTUNİZADE ŞUBE\" _
           & " D - HGS - " & Date & ".csv"
        wbDest.Close
        Set wbDest = Nothing

        Unload Me
    End If
End Sub

Excel 中傳輸到 .csv 的每條信息都同時出現在一個單元格中

MasrafHGS100

我想要的是在我的代碼中傳輸所有相同的數據

Masraf    HGS    100

Answer 1

如果您.SaveAs您還需要根據您的情況下的XlFileFormat 枚舉指定FileFormat:= ，可能是FileFormat:=xlCSV 。 然后在文本編輯器中打開 CSV 進行檢查！ 不在 Excel 中。

如果您在 Excel 中打開它，它會執行 CSV 到 Excel 導入（如果具有錯誤的屬性，它不會正確地將其導入到不同的列中）。 請注意，雙擊 .CSV 文件（在 Excel 中打開它）是幸運的，沒有正確導入！ 它可能會按預期顯示或不顯示。

wbDest.SaveAs FileFormat:=xlCSV, local:=True, Filename:="C:\Users\emir.DEMTA\Desktop\Vahit Çağlayan Dosyalar\p. CSV\DENİZBANK - ALTUNİZADE ŞUBE\" _ & " D - HGS - " & Date & ".csv" 

Answer 2

在代碼中，您只是指定文件以.csv結尾。 但是，這並不適用 CSV 文件的“格式”。

為此，您需要始終指定何時執行.SaveAs Name - FileFormat 您可以執行FileFormat:=xlCSV或FileFormat:=6

或者，您始終可以執行FileFormat:=xlTextWindows來獲取.txt文件，然后使用替代方法將其轉換為.csv 。