VBS-删除行

**

删除excel行

**
Dim excelPath

'excelPath=“C:\Users****\Desktop\test.xlsx”
'接收外部调用vbs的参数
excelPath=WScript.Arguments(0)

Set allExcel= CreateObject(“Excel.Application”)
allExcel.Visible = False
Set all = allExcel.Workbooks.Open(excelPath)
Set allSheet = allExcel.WorkSheets(1)

'根据获取参数判断列
get_column1 = “A”

'获取Excel行数及定义第一行开始
get_row = 2
count=1
rowCount = allExcel.ActiveSheet.UsedRange.Rows.Count
'MsgBox rowCount
'开始循环excel行数
rowCount = rowCount + 1
Do Until count = rowCount

'依次获取当前列数据进行判断
get_value1 = allExcel.Range(get_column1&get_row).Value
If StrComp(get_value1,“”,1) = 1 then
'MsgBox StrComp(get_value1,“”,1)&“当前值：”&get_value1
allExcel.ActiveSheet.Rows(get_row).Delete
Else
get_row = get_row+1
End If

count=count+1
Loop

'MsgBox “成功”
'关闭allExcel
all.Save
all.Close
allExcel.Quit
'WScript.StdOut.WriteLine(get_value)