VBA读取excel文件

Option Explicit

Sub 筛选并合并至新表格()
    Dim wb As Workbook
    Dim tongji As Workbook
    Dim shaixuan As Worksheet
    Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\CheckResult_200_NR参数核查导入模板_V3运营商基线_泉州网管_20200922151142.csv")
    Set tongji = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输出报表\SA参数核查统计-0922.xlsx")
    
    Set shaixuan = wb.Worksheets(1)
    MsgBox (shaixuan.Cells(2, 2))
    '如果满足条件，则
    'If shaixuan.Cells(2,5)=tongji.Cells(5,3) and (shaixuan.Cells(2,6)<-108 OR shaixuan.Cells(2,6)>-100)
    'Then 对应的地市+1
    End If
    
    
End Sub