VB脚本操作Excel文件

最新推荐文章于 2019-07-02 22:44:02 发布

weixin_34413065

最新推荐文章于 2019-07-02 22:44:02 发布

阅读量394

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/wffger/blog/968373

使用VBScript脚本批量将多个XLSX文件转换为CSV格式，支持拖拽操作并自动处理文件名。该脚本还包含了删除指定列的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'Convert_To_CSV.vbs
'拖动多个xlsx文件到vbs文件上，自动生成csv文件
Set lstArgs = WScript.Arguments
Set fs = CreateObject("Scripting.FileSystemObject")
CurrentPath = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)

'创建Excel对象
  Set objWS = CreateObject("Excel.application")  
  objWS.application.visible=false
  objWS.application.displayalerts=false

For I = 0 to lstArgs.Count - 1 ' Loop through each file

  Source = lstArgs(I)
  FileName = fs.GetFileName(lstArgs(I))
  FileName = Left(FileName, InStrRev(FileName, ".") )
  Target = CurrentPath & "\" & FileName & "csv"

  set objWB = objWS.Workbooks.Open(Source)

'处理，删除指定列
  objWB.sheets("Sheet1").range("A:A,C:C,D:D,F:F,G:G").delete
  objWB.SaveAs Target, 6
  objWB.Close False

  set objWB = Nothing
    
Next

'销毁Excel对象
  objWS.Application.Quit
  objWS.Quit
  Set objWS = Nothing
'提示处理完毕
if err.number=0 then 
  msgbox "成功",vbinformation
else
  msgbox "失败",vbexclamation
end if

转载于:https://my.oschina.net/wffger/blog/968373