vbs操作excel

航天金税系统升级,导出的Excel文件格式与原先有的差别,老的多少导入程序识别不了该公文,比较了新老文件后,发现新文件在专票和普票的“份数”行前扩张了一行,同时扩充了“单据号”列,通过脚本
把这一个删除。

 

 1 SetNewFormat("C:\Users\gukajie\Desktop\增值税专普发票数据导出20150619.xls")
 2 
 3 Function SetNewFormat(filename)
 4 Dim Ex, Wb, Sht
 5 Dim LastRow, r
 6 Dim name3
 7 Set Ex = CreateObject("Excel.Application")
 8 Set Wb = Ex.Workbooks.Open((filename))
 9 Set Sht = Wb.Sheets("Sheet1")
10 '删除第2到第5行
11 'Sht.Rows("2:5").Delete
12     LastRow = Sht.UsedRange.Rows.Count
13     'MsgBox LastRow
14     For r = 2 To LastRow Step 1
15     name =Sht.range("A"&r).Value
16     name2 =Sht.range("J"&(r-1)).Value
17     If (left(name,2)="份数" and name2="") Then
18         Sht.Rows(r-1).Delete
19         'MsgBox r
20     End If
21 
22     If (r=6) Then
23         name3 =Sht.range("H"&(6)).Value
24     End If
25 
26     Next
27 
28     If (name3="单据号") Then
29     Sht.Columns(8).Delete
30     End If
31 
32 
33 Ex.ActiveWorkbook.Save
34 'MsgBox "操作完成"
35 Ex.Quit
36 End Function

航天科工,唯独把脚本出席windows布署职责后发觉不只怕推行,第次运转进度之中会多出3个wscript.exe和Excel32.exe进度。实际上脚本
在执行

Set Ex = CreateObject("Excel.Application")
后就没有再执行。

google了一下,发现

CreateObject("Excel.Application")
需要有交互要求,有交互要求的脚本不能在计划任务中直接运行。
只有在用户登录的情况下才能执行,所以,计划任务属性中需要勾选:

航天科工 1

发表评论

电子邮件地址不会被公开。 必填项已用*标注