不打开EXCEL读取表格中的数据.doc

《不打开EXCEL读取表格中的数据.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、不打开EXCEL读取表格中的数据。比如读取D:税金.xls中sheet1中A1:B20的数据dimiasintegerapplication.screenupdating=falsefori=1to20activesheet.cells(i,1).formula="='D:[税金.xls]sheet1'!$A$"&iactivesheet.cells(i,2).formula="='D:[税金.xls]sheet1'!$B$"&inextiactivesheet.range("a1").currentregion.copyactiveshee

2、t.range("a1").PasteSpecialxlPasteValuesApplication.CutCopyMode=Falseapplication.screenupdating=true运行一下后，发现比打开、读取、关闭的操作快多了，特与大家分享。PrivateSubCommandButton1_Click()Columns(2).Formula="="&Columns(1).Address&"*2"EndSubPrivateSubCommandButton2_Click()DimstrAsStringstr="abc"Columns(

3、5).Formula="=IF("&Columns(4).Address&"=""abc"","&Columns(2).Address&","&Columns(3).Address&")"EndSubPrivateSubCommandButton3_Click()Columns(5).ClearEndSubPrivateSubCommandButton1_Click()DimnewappAsExcel.ApplicationSetnewapp=CreateObject("Excel.Application")newapp.AutomationSec

4、urity=msoAutomationSecurityForceDisable'更改为宏无效newapp.Visible=FalseDimwbAsWorkbookSetwb=newapp.Workbooks.Open("D:系统专用我的设置桌面book2.xls",,True)MsgBoxwb.Worksheets(1).Cells(2,3)newapp.DisplayAlerts=Falsenewapp.QuitEndSub