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

Question

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

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

    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

现在它完美导出！