
VBS
草根九一定律
这个作者很懒,什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
vbs解压文件
直接上代码Sub UnZip(ByVal myZipFile, ByVal myTargetDir) Set fso = CreateObject("Scripting.FileSystemObject") If NOT fso.FileExists(myZipFile) Then Exit Sub ElseIf fso.GetExtensionName(myZipFile) <> "zip" Then Exit Sub El原创 2021-02-21 17:09:34 · 1197 阅读 · 0 评论 -
vbs将csv转xlsx
简单粗暴,直接上代码Set oExcel= CreateObject("Excel.Application") Set xls = oExcel.WorkBooks.AddoExcel.ActiveWorkbook.SaveAs( "C:\Users\file.xlsx" )set xlsx = oExcel.Workbooks.Open("C:\Users\file.xlsx") Set csv = oExcel.Workbooks.Open("C:\Users\newfile.csv")原创 2021-02-21 17:06:30 · 904 阅读 · 0 评论