为什么这样？宏代码生成的新表格文件非要手工重新命名才能发送给好友~~~

卡门kamen

Sub QQ()
Windows("汇总数据.xls").Activate
    ActiveSheet.Range("$A$1:$J$3000").AutoFilter Field:=5, Criteria1:="簇桥中通新"
    Range("A1:J500").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 12
    Columns("B:B").ColumnWidth = 10
    Application.CutCopyMode = False
    ChDir "C:\Users\Administrator\Desktop\汇总"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\汇总\" & " 簇桥中通新" & Right(Year(Date), 2) & Format(Month(Date), "00") & Format(Day(Date - 1), "00") & ".xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub



代码是这样的，表格文件 簇桥中通新150802，发送给qq好友就提醒打开文件错误，把文件名称重新改一下，就能正常发送了，这是为什么呢?
求老师指导…………

卡门kamen

刚刚发现 。。。复制到桌面也可以发送出去，怎么的呢

shenghua8

扩展名与文件格式不匹配。

既然扩展名是xls，那么就用
FileFormat:=xlNormal

如果扩展名是xlsx，才可以用
FileFormat:=xlExcel8

卡门kamen

shenghua8 发表于 2015-8-3 18:07
扩展名与文件格式不匹配。

既然扩展名是xls，那么就用

按照您的提醒，更改了代码，但是生成的文件发送时候还是提醒打开文件错误呢………
头都大了~~~

shenghua8

那就把Excel工作簿全部关闭，Excel程序退出，再发。