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