无法将大的.csv行数传输到Excel 2007

我一直在使用下面的VBScript代码片段将每小时的.csv文件移动到Excel文件中。除了最近.csv突破了65536行限制之外，它的工作方式与时钟一样。这台机器充斥着来自兼容性检查器的弹出窗口，然后我意识到即使安装了Excel2007，它也在使用Excel2003。即使显式调用Excel.Application.12对象，也不确定为什么会发生这种情况：

Dim oExcel
Set oExcel = CreateObject("Excel.Application.12")
With oExcel
    .DefaultSaveFormat=51
    .Workbooks.Open sourceFile
    .Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True
    .ActiveWorkbook.SaveAs outputFile, xlNormal
    .Quit
End With

如何使此脚本在保留所有源行的同时，将大于65536的行数导入Excel 2007，而无需兼容性检查器提示

一些补充资料：

全新的机器 运行Windows 7 x64位操作系统 只安装了一个Office版本：Office 2007 尝试添加fileformat:=51，如建议的那样

以下摘自OP对问题的编辑：

下面的更改成功了！：

 Dim oExcel  
 Set oExcel = CreateObject("Excel.Application.12")  
 With oExcel  
    .DefaultSaveFormat=51  
    .Workbooks.Open sourceFile  
    .Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True  
    .ActiveWorkbook.SaveAs outputFile, 51  
    .Quit  
 End With    

另外，请确保文件扩展名为.xlsx

---

只是补充了一些信息。不，它不是多版本的，只安装了Office 2007没有问题。嗯，我尝试了使用默认格式和不使用默认格式，以及使用.xlsx扩展名。两者都没有帮助在Excel下添加键，而不是Word，没有骰子。这简直是胡说八道谢谢你的坚持。我把SaveAs改为outputFile，51，它成功了！