VBA转换csv文件夹中的文件到xlsx文件 [英] VBA converting csv Files in a folder to xlsx Files

问题描述

我有这个代码。

此代码转换为xlsm文件。

This code converts to xlsm files.

我要转换为xlsx文件。

I want to convert to xlsx files.

如何？

我尝试通过更改

I tried by changing

wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormatTO
wBook.SaveAs XlsFolder & Replace(fname, ".csv", ".xlsx")

它没有工作。

It didn't worked.

Private Sub CommandButton2_Click()
Dim CSVfolder As String
 Dim XlsFolder As String
 Dim fname As String
 Dim wBook As Workbook

 CSVfolder = "C:\csv\"
 XlsFolder = "C:\Charts\"

 fname = Dir(CSVfolder & "*.csv")

 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat
    wBook.Close False
 fname = Dir
 Loop
End Sub

推荐答案

使用宏重新编码器，文件格式为 xlsx workbook是 FileFormat：= xlOpenXMLWorkbook

Using the macro recoder, the file format for an xlsx workbook is FileFormat:=xlOpenXMLWorkbook

所以这里是你的代码：

Private Sub CommandButton2_Click()
Dim CSVfolder As String, _
    XlsFolder As String, _
    fname As String, _
    wBook As Workbook

 CSVfolder = "C:\csv\"
 XlsFolder = "C:\Charts\"

 fname = Dir(CSVfolder & "*.csv")

 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), xlOpenXMLWorkbook
    wBook.Close False
    fname = Dir
 Loop
End Sub

这篇关于VBA转换csv文件夹中的文件到xlsx文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！