批量csv转excel（VB宏）

作者：森眺
链接：https://www.zhihu.com/question/39234324/answer/284625834
来源：知乎
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

Sub CAVToXLSX()Dim fDir As StringDim wB As WorkbookDim wS As WorksheetDim fPath As StringDim sPath As StringfPath = "C:\Users\Micro\Desktop\source\"sPath = "C:\Users\Micro\Desktop\target\"fDir = Dir(fPath)Do While (fDir <> "")If Right(fDir, 4) = ".csv" Or Right(fDir, 5) = ".csv" ThenOn Error Resume NextSet wB = Workbooks.Open(fPath & fDir)'MsgBox (wB.Name)For Each wS In wB.SheetswS.SaveAs sPath & wB.Name & ".xlsx" _, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseNext wSwB.Close FalseSet wB = NothingEnd IffDir = DirOn Error GoTo 0Loop
End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！