perfect_bug的博客

直接上代码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

简单粗暴，直接上代码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")