當我將資料從我的 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
uj5u.com熱心網友回復：
如果您.SaveAs還需要FileFormat:=根據您的情況指定XlFileFormat 列舉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"
uj5u.com熱心網友回復：
在代碼中，您只是指定檔案以 ".csv" 結尾。但是，這并不適用 CSV 檔案的“格式”。
為此，您需要始終指定何時執行 .SaveAs Name - FileFormat 您可以執行 FileFormat:=xlCSV 或 FileFormat:=6
或者，您始終可以執行 FileFormat:=xlTextWindows 來獲取 .txt 檔案，然后使用替代方法將其轉換為 .csv。
希望能幫助到你！
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/484697.html
上一篇：更改excel中的列和行