Question

我打开一个csv文件，需要将其保存为xlsx

set objExcel = createObject("Excel.Application")
objExcel.visible = True 
set objWb = objExcel.Workbooks.Open("C:\Users\xxx\test.csv") 
msgbox "make sure data is ok" 'Here I can see all data was read properly, now I need to save it 
objWb.saveas "C:\Users\xxx\test.xlsx"

所有保存，但文件已损坏，我无法打开它。当我更改为.xls然后它可以工作，但数据无法正确读取。我需要xlsx。我怎么能保存它。那么，如何将.csv转换为xlsx？

Answer 1

你必须使用Excel 2003才能做到这一点，是吗？

如果是这样，根据这个： http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/f305f427-af64-4d62-85b8-e0395161eadf/

您需要使用51的FileFormat：

试试这个

objWb.saveas "C:\Users\xxx\test.xlsx",51

如何在vbs中保存xlsx文件？

1 个答案: