vbsript和excel刪除除最後一個之外的所有工作表

Question

我想刪除excel exept最後一個工作表中的所有工作表並保存它，然後移動它的位置。我無法完成這項工作，因爲它會刪除所有其他工作表，但出錯和超出範圍錯誤。

Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible = True 
objExcel.DisplayAlerts = False 

Set objWorkbook = objExcel.Workbooks.Open("C:\M-tek 10-31-12_Tony.xlsx") 
i = objWorkbook.Worksheets.Count 

Do while i = i 
i = i - 1 
objWorkbook.Worksheets(i).Delete 
Loop 

Answer 1

你的循環將是無限的，因爲你的狀態永遠是假的（i將總是等於i）。所以你需要改變你的循環從最後一個工作表開始，然後回到第一個工作表。你快到了。

count = objWorkbook.Worksheets.Count - 1 

For i = count To 1 Step -1 
    objWorkbook.Worksheets{i}.Delete 
Next 

這應該做到這一點（事實上，它只是測試它）。