將.csv保存爲.xlsx

Question

我在將文件轉換爲其他格式時遇到問題。我有幾百個.csv格式的文件，需要轉換它們。我發現一個正在工作的sub（），但如果我首先打開文件然後手動保存，則格式看起來會有所不同。它來自哪裏？

下面是宏我不打開文件使用：

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

CSVfolder = "C:\Users\ja\Desktop\CSV\" 
XlsFolder = "C:\Users\ja\Desktop\XLSX\" 

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 

和宏觀與打開文件：

Sub open_csv_save_xlsx() 

Dim sciezka As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer 

Application.ScreenUpdating = False 
sciezka = ActiveWorkbook.Path & "\" 
fileName = Dir(sciezka & "*.csv") 
Do While fileName <> "" 
i = i + 1 
j = 2 
Cells(i, 1) = fileName 
fileName = Dir() 
Loop 
Application.ScreenUpdating = True 

Dim a As Integer, b As Integer, arkusz As String, XlsFolder As String, wBook As Workbook 
XlsFolder = "C:\Users\ja\Desktop\XLSX\" 
a = WorksheetFunction.CountA(Range("A:A")) 
b = 1 
For i = 1 To a - 1 
arkusz = Range("A" & b).value 
Range("C" & b).value = b 
b = b + 1 
Workbooks.Open (sciezka & arkusz) 
Set wBook = ActiveWorkbook 
wBook.SaveAs XlsFolder & Replace(sciezka & arkusz, ".csv", ""), xlOpenXMLWorkbook 
ActiveWorkbook.Close True 
Next i 

End Sub 

第一部分是使工作表的文件列表，並在線路wBook.SaveAs XlsFolder & Replace(sciezka & arkusz, ".csv", ""), xlOpenXMLWorkbook粉碎和我不知道原因。發生錯誤1004。

任何人有任何其他方式來轉換這個文件？爲什麼格式不同呢？

Answer 1

它看起來像你指定一個目錄兩次，在XlsFolder和scienka。

修改您的代碼這應該揭示問題：

MsgBox XlsFolder & Replace(sciezka & arkusz, ".csv", "") 
wBook.SaveAs XlsFolder & Replace(sciezka & arkusz, ".csv", ""), xlOpenXMLWorkbook 

我想你需要刪除scienka &。