作者oxpretaa (贪睡猪)
看板Visual_Basic
标题Re: [VB6 ] 开启excel的档案後进行编辑，并另存新쀠…
时间Sun May 17 23:46:17 2009
※ 引述《hallfive (sigh)》之铭言：
: 各位版上的高手
: 想请问一下
: 我今天想用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
: 请问有比较好的作法吗@@? 感谢
试试看以下的
Dim xlapp As Object
Dim xlBook As Object
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open("C:\FileA.xls")
xlBook.Sheets("Sheet1").Delete
xlBook.SaveAs "C:\FileB.xls"
xlBook.Close
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.110.176.17