vbs操作excel
2015-06-22 23:19
239 查看
航天金税系统升级,导出的Excel文件格式与原来有的差异,老的数据导入程序识别不了该文件,对比了新老文件后,发现新文件在专票和普票的“份数”行前增加了一行,同时增加了“单据号”列,通过脚本 把这些删除。
但是把脚本加入windows计划任务后发现无法执行,第次运行进程里面会多出一个wscript.exe和Excel32.exe进程。实际上脚本 在执行
SetNewFormat("C:\Users\gukajie\Desktop\增值税专普发票数据导出20150619.xls") Function SetNewFormat(filename) Dim Ex, Wb, Sht Dim LastRow, r Dim name3 Set Ex = CreateObject("Excel.Application") Set Wb = Ex.Workbooks.Open((filename)) Set Sht = Wb.Sheets("Sheet1") '删除第2到第5行 'Sht.Rows("2:5").Delete LastRow = Sht.UsedRange.Rows.Count 'MsgBox LastRow For r = 2 To LastRow Step 1 name =Sht.range("A"&r).Value name2 =Sht.range("J"&(r-1)).Value If (left(name,2)="份数" and name2="") Then Sht.Rows(r-1).Delete 'MsgBox r End If If (r=6) Then name3 =Sht.range("H"&(6)).Value End If Next If (name3="单据号") Then Sht.Columns(8).Delete End If Ex.ActiveWorkbook.Save 'MsgBox "操作完成" Ex.Quit End Function
但是把脚本加入windows计划任务后发现无法执行,第次运行进程里面会多出一个wscript.exe和Excel32.exe进程。实际上脚本 在执行
Set Ex = CreateObject("Excel.Application") 后就没有再执行。 google了一下,发现
CreateObject("Excel.Application") 需要有交互要求,有交互要求的脚本不能在计划任务中直接运行。 只有在用户登录的情况下才能执行,所以,计划任务属性中需要勾选:
相关文章推荐
- 【机房重构】—上机&订餐
- 【机房收费个人版】触发器与存储过程
- 移除VBA编码保护
- VBA取得EXCEL表格中的行数和列数
- vbox安装mac os x
- vbox安装mac os x
- Devexpress中Tdxnavbar的使用
- 【机房收费个人版】DataTable 与泛型集合的较量
- vb.net controls集合
- 【VB.NET机房重构】DataGridView导出Excel
- 管理的网路设备较多,今天借助SNMP++ 编写了一个SNMP的COM控件,可以用VBS脚本批量查自己想要的数据了
- 【VB.NET机房重构】时间格式
- 在VBA中调用winsock控件
- VBA创建文件夹
- Vbox全屏问题
- 【请教】VLC 0.9.4中的VLCPlugin1控件为什么不显示视频?
- 如何通过VB6.0编程的方式获取百度贴吧帐号的BDUSS
- Excel VBA TextBox控件的滚动条不能刷新
- powerdesigner vba 创建表和列
- 运行vb写的程序,有些电脑上会弹出一个与office相关的窗口