VBA 打开excel
摘要：
Sub openExcelFile(ByVal filePath$)Set xls = CreateObject("Excel.Application")Set xlbook = xls.Workbooks.Open(filePath)'xls.Visible = TrueSet xlsheet = xlbook.Worksheets(1)Application.ScreenUpdating = False With xlsheet MsgBox .[a2] End With Application.ScreenUpdating = Truexlbook.Close 阅读全文
posted @ 2013-09-12 00:37 鱼东鱼 阅读(869) 评论(0) 推荐(0) 编辑
