VBA excel 宏跳过最后一列

Question

我必须从 excel 表（范围）创建 csv。 仅将其保存为 csv 文件不是解决方案，因为我的应用程序需要 csv 并在每个单元格处设置引号。 我的表的范围是 A1:P9998，其中 A1:P1 是带有标题的行。

我有以下代码来完成这项工作：

Dim DstFileName As String, DstPfad As String
     Dim Delimiter As String
     Dim strZe As String
     Dim lRow As Long, lCol As Integer
     Dim Ze As Long, Sp As Integer
     Dim ff As Integer
   
     On Error GoTo ErrorHandler
   
     Range("A1").Select
   
     DstPfad = "C:\Temp\" 'Anpassen, muss bereits existieren
     DstFileName = DstPfad & "LCMPartnerImport.csv" 'Anpassen
     Delimiter = ","
     With ActiveSheet
     lRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
     lCol = .Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
     ff = FreeFile
     Open DstFileName For Output As #ff
     'Zeile für Zeile lesen und schreiben ...
     For Ze = 1 To lRow
     For Sp = 1 To lCol - 1
         strZe = strZe & Chr(34) & .Cells(Ze, Sp) & Chr(34) & Delimiter
         Next Sp
     strZe = strZe & .Cells(Ze, Sp)
     Print #ff, strZe
     strZe = ""
     Next Ze
   
     End With

这不能正常工作，完整的 P 列没有引号，我不知道为什么。 这里有人有什么想法可以帮助我吗？ 谢谢并恭祝安康

Answer 1

使用分隔符时，我喜欢这种模式：

Dim sep
'...
For Ze = 1 To lRow
     sep = ""
     strZe = ""
     For Sp = 1 To lCol
         strZe = strZe & sep & Chr(34) & .Cells(Ze, Sp) & Chr(34)
         sep = Delimiter
     Next Sp
     Print #ff, strZe
Next Ze