从 Excel 到 csv 的导出标题和每两行的宏问题

Question

我想将数据从主 Excel 导出到 CSV 文件。

如您所见，第一行是标题，每两行将被复制到新的 CSV 文件中。 CSV 文件按城市（从没有变音符号的行）和预定义的单词命名。 这是我的宏：

    Sub Macro1()

Dim newWB As Workbook
Dim myWS As Worksheet
Dim lastRow As Long

Set myWS = ThisWorkbook.Worksheets("ExportSamospravy")

With myWS

    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For x = 2 To lastRow
    
        Set newWB = Workbooks.Add

        newWB.Sheets("Hárok1").Rows(1) = myWS.Rows(1).Value
        newWB.Sheets("Hárok1").Rows(2) = myWS.Rows(x).Value
        newWB.Sheets("Hárok1").Rows(3) = myWS.Rows(x).Value

        
        newWB.SaveAs Filename:="C:\Users\andre\OneDrive\prispevky\smart-cities\data\1-2021\Export\EconomySamospravy\" & Range("I2").Value & "EconomySamospravy", FileFormat:=xlCSV

        Columns(9).EntireColumn.Delete
        Columns(9).EntireColumn.Delete

        newWB.Close True
        
    Next x
    
End With

End Sub

我的问题是只有第 2019 行乘以第二行。保存也有问题。

Answer 1

我找到了解决办法

    For x = 2 To lastRow Step 2
n = x + 1
    Set newWB = Workbooks.Add

现在完美导出！