將VBA代碼轉換爲Vbscript

Question

我在宏中使用下面的代碼來刪除excel中的空白行。你能幫我把它轉換成Vbscript嗎？

Columns("A:A").Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.EntireRow.Delete 

等待您的寶貴迴應。像VBA運行環境確實

Answer 1

VBScript不提供隱含的父對象，所以你需要做的一切明確：

Set xl = CreateObject("Excel.Application") 
Set wb = xl.Workbooks.Add 
Set ws = wb.Sheets(1) 

ws.Columns("A:A").Select 
... 

此外，VBScript不承認VBA命名常量，所以你需要或者使用的數值：

... 
xl.Selection.SpecialCells(4).Select 
... 

或腳本定義常量：

Const xlCellTypeBlanks = 4 
... 
xl.Selection.SpecialCells(xlCellTypeBlanks).Select 
... 

有關將VBA轉換爲VBScript的更多信息，請參閱here。