Excel VBA優化

Question

我被一個用戶要求在他們創建的Excel書中運行一個宏，以便自動執行一個過程。我通過cscript從Java調用宏。我不是任何想象力的VBA程序員，但代碼效率低下，並且簡單地複製/粘貼一遍又一遍。

當我從Java運行宏，我得到以下錯誤：

運行時錯誤「1004」：範圍類的 CopyPicture方法失敗

當我進入工作簿不會發生此錯誤並手動點擊啓動這個宏的按鈕。

我一直在閱讀如何使用.Activate/Selection/.Select/etc可以真正減慢代碼並導致這種類型的問題。

這是一個連續使用的代碼塊（而不是在過程/函數調用中）。它不斷在「Selection.CopyPicture」行上拋出錯誤。

任何援助優化這個塊將不勝感激。

ActiveSheet.ChartObjects("Chart 9").Activate 
ActiveChart.Pictures.Delete 
Range("InvGrid").Select 
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 

ActiveSheet.ChartObjects("Chart 9").Activate 
ActiveChart.ChartArea.Select 
ActiveChart.Paste 
Application.CutCopyMode = False 
ActiveSheet.ChartObjects("Chart 9").Activate 
ActiveChart.ChartArea.Select 
ActiveChart.Export "C:\ABC.gif", "GIF", False 

VBS通過csript從Java推出

Dim xlsWorkbook 
Dim objExcel 
Set objExcel = CreateObject(\"Excel.Application\") 
objExcel.Application.DisplayAlerts = False 
Set xlsWorkbook = objExcel.WorkBooks.Open(\"" + xlsmFilepath + "\", 3) 
objExcel.Application.Run(xlsWorkbook.Name & \"!ExportCharts\") 
xlsWorkbook.Save 
xlsWorkbook.Close 
objExcel.Quit 

Answer 1

事情是這樣的，也許：

Dim cht As Chart 
Set cht = ActiveSheet.ChartObjects("Chart 9").Chart 
ActiveSheet.Range("InvGrid").CopyPicture Appearance:=xlScreen, Format:=xlPicture 
With cht 
    If .Pictures.Count > 0 Then .Pictures.Delete 
    .Paste 
    .Export "C:\ABC.gif", "GIF", False 
End With