VBA excel尝试创建从文件导入数据的宏时，如果数据等于特定值，则将一个单元格放入新文件的工作表中

Sub ImportData()
    Dim filePath As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim cellValue As Variant
    
    ' 设置文件路径
    filePath = "C:\path\to\source\file.xlsx"
    
    ' 打开源文件
    Set wbSource = Workbooks.Open(filePath)
    Set wsSource = wbSource.Worksheets(1)
    
    ' 设置目标工作表
    Set wsDestination = ThisWorkbook.Worksheets.Add
    
    ' 导入数据
    For Each cellValue In wsSource.Range("A1:A10")
        If cellValue = "特定值" Then
            wsDestination.Cells(wsDestination.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = cellValue
        End If
    Next cellValue
    
    ' 关闭源文件
    wbSource.Close SaveChanges:=False
End Sub