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을 참조하십시오.