Re: [VB6 ] 開啟excel的檔案後進行編輯，並另存新쀠…
※ 引述《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