不打开工作簿取得其他工作簿的数据3

来源：尚车旅游网

通过隐藏Application对象来模拟不打开工作簿取数，如下面的代码所示。

#001SubCopyData_3()#002

DimmyAppAsNewApplication

#003

DimShAsWorksheet#004

DimTempAs String#005Temp=ThisWorkbook.Path&\"\\数据表.xls\"#006

myApp.Visible=False#007

SetSh=myApp.Workbooks.Open(Temp).Sheets(1)#008With

Sh.Range(\"A1\").CurrentRegion

#009

Range(\"A1\").Resize(.Rows.Count,

.Columns.Count)=.Value#010

End With

#011

myApp.Quit

#012

SetSh=Nothing#013

SetmyApp= Nothing#014Sub

End

代码解析：

CopyData_3过程隐藏

Application对象来模拟不打开工作簿取数。

第2行代码使用New关键字隐式地创建一个Application对象。第6行代码将新创建的

Application对象的Visible属性设置为False，使之隐藏。

第7行代码使用Open方法打开“数据表”工作簿（关于Open方法请参阅技巧42，因为工作簿是使用新创建的、隐藏的Application对象打开的，所以在窗口中是不可视的。

第8行到第10行代码将“数据表”工作簿中的第1张工作表已使用区域的数据赋给本工作表的单元格。第11行代码使用Quit方法退出新打开的Excel程序。

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文