[求助]另存为不含宏的数据文件的VBA代码

yangtf

各位专家老师：       在一个含宏的excel文件中已通过VBA实现了数据处理，这时要将此文件另存为一个不含宏的纯数据文件给最终用户使用，如何编写代码实现？

zhaogang1960

如不合题意，请上传附件：
Sub 宏1()
    Dim sFullName$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With ActiveWorkbook
        sFullName = .FullName
        .SaveAs Filename:=Replace(.FullName, ".xlsm", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'        另存为后处理进行数据处理
        Workbooks.Open sFullName '打开原来的文件
        .Close True '保存关闭新文件
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

yangtf

zhaogang1960 发表于 2012-4-5 16:06
如不合题意，请上传附件：
Sub 宏1()
    Dim sFullName$

非常感谢赵老师，你的代码解决了我的问题，只是我用的文件格式为.xls，程序运行后是得到了纯数据文件，但原含宏文件也不存在了。做了一点修改（将with语句后两行移到外边）就ok了。
   Sub 宏1()
     Dim sFullName$
     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
       With ActiveWorkbook
         sFullName = .FullName
         .SaveAs Filename:=Replace(.FullName, ".xls", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'        另存为后处理进行数据处理
       End With
     Workbooks.Open sFullName '打开原来的文件
     ActiveWorkbook.Close True '保存关闭新文件
     Application.DisplayAlerts = True
     Application.ScreenUpdating = True
End Sub

popicture

zhaogang1960 发表于 2012-4-5 16:06
如不合题意，请上传附件：
Sub 宏1()
    Dim sFullName$

找了很久，请教一下，怎么写，在新另存的文件中，添加固定的后缀名？

htl36907697

问题描述
我有一个xslm文件。我想将文件另存为xlsx并发送电子邮件。
我可以将其另存为XLS文件。如果我尝试将其另存为xlsx，它确实会被保存，但当我打开它时，它给出一个错误。
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "MyFileName - " & Format(Date, "mm-dd-yyyy") & ".xlsx"
Excel无法打开文件‘...pathMyFileName.xlsx’，因为该文件格式或文件扩展名无效。验证文件是否已损坏以及文件扩展名是否与文件格式匹配





推荐答案
SaveCopyAs不更改文件类型。
您无法通过SaveCopyAs将.xlsm保存为.xlsx。

解决办法是保存一份副本，然后更改其类型，同时删除旧副本，如下所示：
Dim wb As Workbook, pstr As String
pstr = ActiveWorkbook.Path & "MyFileName - " & Format(Date, "mm-dd-yyyy") & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=y
Set wb = Workbooks.Open(pstr)
wb.SaveAs Left(pstr, Len(pstr) - 1) & "x", 52
wb.Close False
Kill pstr


原文链接：https://www.daicuo.cc/biji/2638621


wb.SaveAs Left(pstr, Len(pstr) - 1) & "x", 52，其中的52，改为51后，我这就能成功了。
思路：
先用SaveCopyAs把原件方便快速的备份（saveAs在备份时原文件被关闭不能编辑），这时备份好的文件格式是xlsm。然后再用saveAs更改文件格式。用2个步骤和方法，完成快速备份和修改文件格式问题。