[已解决]代码保存工作簿

我心飞翔410

工作簿保存为xlsx格式  xlsm格式保存修改为xlsx格式 wb.Close True 这句代码怎么添加

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-27 18:26

文件名自己处理下

1.     Application.DisplayAlerts = False
   
2.     With ThisWorkbook
   
3.         .SaveAs Filename:="d:\a.xlsx", FileFormat:=xlOpenXMLWorkbook
   
4.         Application.DisplayAlerts = True
   
5.         .Close False
   
6.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

XLSM格式存为XLSX格式的话，工作簿中的代码就会全部丢失，不如存成XLS格式。

hwc2ycy

1. ActiveWorkbook.SaveAs Filename:="文件名.xls", FileFormat:=xlExcel8

复制代码

我心飞翔410

hwc2ycy 发表于 2013-7-27 13:32

要的就是代码全部消失  问题是我要原文件名直接保存为xlsx格式

hwc2ycy

文件名自己处理下

1.     Application.DisplayAlerts = False
   
2.     With ThisWorkbook
   
3.         .SaveAs Filename:="d:\a.xlsx", FileFormat:=xlOpenXMLWorkbook
   
4.         Application.DisplayAlerts = True
   
5.         .Close False
   
6.     End With

复制代码

hwc2ycy

replace(.fullname,".xlsm",".xlsx")