作者hallfive (sigh)
看板Visual_Basic
标题[VB6 ] 开启excel的档案後进行编辑，并另存新档的问题
时间Wed May 13 23:51:57 2009
各位版上的高手
想请问一下
我今天想用VB开启xls档案(例如FileA)，然後新增或删除sheet後
另存成新的xls档(FileB)，请问有可行的方法吗?
因为目前写的方式(如下)，会出现系统警告音，也不会把sheet删除
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks."C:\FileA.xls"
xlApp.Sheets("Sheet1").Delete
xlApp.ActiveWorkbook.SaveAs "C:\FileB.xls"
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp = Nothing
请问有比较好的作法吗@@? 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.195.202.61