[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

請問有比較好的作法嗎@@?  感謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.195.202.61