【原】EXCEL VBA对应导入外部工作表数据代码

Sub 对应导入外部表数据()

' 上行的宏名称可自行修改

' 以下三行先清空基础数据工作表的C2:C15区域数据

    Sheets("基础数据").Select '要清空的工作表名称，"基础数据"为工作表名称

    Range("C2:C15").Select '"C2:C15"为单元格区域

    Selection.ClearContents

   '以下导入项目名称

  Dim myApp As New Application, wkSht As Worksheet

  '隐藏Excel

  myApp.Visible = False

  '按路径打开EXCEL文件，以下代码为要导入的外表路径，并指定工作表对象 0通用汇总模（禁）为EXCEL文件名"基础数据"为工作表名称，

  '可按需求自行修改

  Set wkSht = myApp.Workbooks.Open(ThisWorkbook.Path & "\0通用汇总模（禁）.xls").Sheets("基础数据")

[C2] = wkSht.[C2] '=左边为要导入的单元格地址，右边为外表单元格地址，目的是确定两个对应关系，下同

[C3] = wkSht.[C3]

[C4] = wkSht.[C4]

[C5] = wkSht.[C5]

    Range("C4").Select

  '以下三行关闭Excel，不能省略，否则不能完全退出Excel程序

  myApp.Quit

  Set wkSht = Nothing

  Set myApp = Nothing

  Sheets("目录").Select

End Sub