将VBA代码转换为Vbscript

我正在宏中使用下面的代码删除excel中的空行。你能帮我把它转换成Vbscript吗

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

---

等待有价值的响应。

VBScript不像VBA运行时环境那样提供隐式父对象，因此需要将所有内容显式化：

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的详细信息，请参阅。

VBScript不像VBA运行时环境那样提供隐式父对象，因此需要将所有内容显式化：

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的详细信息，请参见