一、检查是否你已经手动excel不能直接打开文件了c:\1.xls文件
二、在每次执行完xlApp对象,需要关闭它才可以再次用代码excel不能直接打开文件
如果不关闭代码excel不能直接打开文件的对象,也会像上面说的那样出现已经excel不能直接打开文件文件的错误提示。
处理 excel 工作表的语句因此应把关闭对象代码放到这句后面。即:
你沒有明白我的意思比如我有1.xls文件,并且我通过判断知道这个文件已经excel不能直接打开文件接下来根据Set xlApp = GetObject(, "Excel.Application")获取到已经excel不能直接打开文件的xlapp对潒,我的问题是如何获取1.xls的xlBook对象呢现在我的问题自己解决了,只需要Set xlBook = xlApp.Workbooks(“1.xls”)就可以了这样就能实现对已经excel不能直接打开文件的表格直接操作的目的了!不管怎么样,谢谢您的回答!
嗯~~不好意思。的确没弄明白。
如果是这个要求没必要那么多代码,全部代码只用下面兩行就可以了:
Windows("1").Activate ' 文件1.xls获得焦点
Sheets(1).Cells(1, 2) = "11111" ' 向第一张工作表的B1单元格写入数据