UC知道VBS 谁来帮我看看哦!
来源：百度知道 编辑：UC知道 时间：2024/07/05 02:11:43
下面这串代码能删除一些第4列为0的行,但不能全部删掉.
dim x,i
set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
Set objWorkbooks = objExcel.Workbooks.Open ("D:\报表\帐目备分\基础表\库存移动cx.xls",3,false)
for j= 2 to 210
x=objExcel.Cells(j,4).value
if x=0 and x<>"" then
objExcel.ActiveSheet.Rows(j).Delete
end if
for i= 2 to 210
x=objExcel.Cells(i,4).value
if x=0 and x<>"" then
objExcel.ActiveSheet.Rows(i).Delete
end if
next
msgbox("测试成功")
dim x,i
set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
Set objWorkbooks = objExcel.Workbooks.Open ("D:\报表\帐目备分\基础表\库存移动cx.xls",3,false)
for j= 2 to 210
x=objExcel.Cells(j,4).value
if x=0 and x<>"" then
objExcel.ActiveSheet.Rows(j).Delete
end if
for i= 2 to 210
x=objExcel.Cells(i,4).value
if x=0 and x<>"" then
objExcel.ActiveSheet.Rows(i).Delete
end if
next
msgbox("测试成功")
'======================================================
dim x,i,j
set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
Set objWorkbooks = objExcel.Workbooks.Open ("D:\报表\帐目备分\基础表\库存移动cx.xls",3,false)
for j= 2 to 210
x=objExcel.Cells(j,4).value
if cstr(x)="0" and x<>"" then
objExcel.ActiveSheet.Rows(j).Delete
end if
next
msgbox("测试成功")
'==============================================
测试通过。我只修改了判断是不是零的地方，将判断的字符转换为字符串，防止输入的0不是数字。