航天金税系统升级,导出的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计划任务后发现无法执行,第次运行进程里面会多出一个wscript.exe和Excel32.exe进程。实际上脚本 在执行
Set Ex = CreateObject("Excel.Application")后就没有再执行。 google了一下,发现
CreateObject("Excel.Application")需要有交互要求,有交互要求的脚本不能在计划任务中直接运行。只有在用户登录的情况下才能执行,所以,计划任务属性中需要勾选:
时间: 2024-10-16 22:42:06