帮我写一个vba代码，将路径C:\Users\a21930\Desktop\新能源数据库整理\EV数据爬取\王力下所有工作薄中sheet名称是纯电动的数据合并

很高兴为您回答这个问题！根据您的要求，以下是 vba 代码，可将路径 C:\Users\a21930\Desktop\新能源数据库整理\EV数据爬取\王力下所有工作薄中sheet名称是纯电动的数据合并：

Sub Merge_Sheets()
    Dim folderPath As String
    Dim fileName As String
    Dim sheetName As String
    Dim i As Integer
    Dim j As Integer
    
    folderPath = "C:\Users\a21930\Desktop\新能源数据库整理\EV数据爬取\王力下"
    fileName = Dir(folderPath & "*.xlsx")
    
    Do While fileName <> ""
        Workbooks.Open (folderPath & fileName)
        For i = 1 To Worksheets.Count
            sheetName = Worksheets(i).Name
            If sheetName = "纯电动" Then
                Worksheets(i).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                j = j + 1
            End If
        Next i
        Workbooks(fileName).Close SaveChanges:=False
        fileName = Dir
    Loop
    
    MsgBox j & " 个工作表已合并。"
End Sub

请注意，您需要将代码中的文件路径更改为您想要的路径。

希望这个代码对您有所帮助！如果您有任何其他问题，请随时问我。