UC知道用VB新建的Excel文件，用Excel正常打开时报错“您尝试打开的文件的格式与文件扩展名指定的格式不一致。”
来源：百度知道 编辑：UC知道 时间：2024/06/19 03:50:15
代码如下：
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsCurrentSheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Add
Set xlsCurrentSheet = xlsBook.Worksheets("Sheet1")
xlsCurrentSheet.Cells(1, 1) = "测试"
xlsBook.SaveAs ("C:\tt1.csv")
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "文件输出完毕"
就是在打开的时候报错，但可以正常打开。
怎么回事呀。
偶现在用的是Office 2007，是不是这也有影响的。
我用xls后缀名也试过的，情况是一样的。
因为我家里用的2007，但公司是用2003甚至更低的版本，所以只能用xls格式。
谢谢大家了，帮帮忙吧。
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsCurrentSheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Add
Set xlsCurrentSheet = xlsBook.Worksheets("Sheet1")
xlsCurrentSheet.Cells(1, 1) = "测试"
xlsBook.SaveAs ("C:\tt1.csv")
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "文件输出完毕"
就是在打开的时候报错，但可以正常打开。
怎么回事呀。
偶现在用的是Office 2007，是不是这也有影响的。
我用xls后缀名也试过的，情况是一样的。
因为我家里用的2007，但公司是用2003甚至更低的版本，所以只能用xls格式。
谢谢大家了，帮帮忙吧。
EXCEL2007的默认格式是XLSX,如果不设置fileformat,你的文件名结果是tt1.csv.xlsx.所以应该改为如下:
ActiveWorkbook.SaveAs "C:\tt.xls", fileformat:=56
现在很少人用csv
Application.ScreenUpdating = True '屏幕刷新关闭
Application.DisplayAlerts = True '信息警告开启
因为打开Excel要显示是否更新
那上面两年把更新删除