问题与保存活动工作表，以新的工作簿

Question

我尝试使用下面的VBA在Excel中保存活动工作表：

Application.CutCopyMode = False 
FName = "C:\Users\Public\Documents\DTMForGIS\DTMtoGIS" & Format(Now, "yyyy-mm-dd hh_mm_ss") & ".xls" 
ActiveWorkbook.SaveAs Filename:=FName, _ 
          FileFormat:=xlOpenXMLWorkbookMacroEnabled 
Activeworkbook.close 

但我这里有两个问题：当我想打开
1文件我有以下消息encountring：

手动打开文件是按是确定的，但我要使用GIS软件中的Excel文件，该文件造成，因为格式的误解的问题。正如你可以看到它具有.xls格式

2-Activeworkbook.close不起作用，因为我必须在自己运行代码后关闭应用程序！

第一部分对我很重要，要理解为什么会发生这种情况？你能告诉我为什么吗？

Answer 1

您正在使用错误的文件格式。

对于.xls它是xlExcel8。 xlOpenXMLWorkbookMacroEnabled是.xlsm

要么使用

FName = "C:\Users\Public\Documents\DTMForGIS\DTMtoGIS" & _ 
     Format(Now, "yyyy-mm-dd hh_mm_ss") & ".xls" 

ActiveWorkbook.SaveAs Filename:=FName, _ 
         FileFormat:=xlExcel8 

或使用该

FName = "C:\Users\Public\Documents\DTMForGIS\DTMtoGIS" & _ 
     Format(Now, "yyyy-mm-dd hh_mm_ss") & ".xlsm" 

ActiveWorkbook.SaveAs Filename:=FName, _ 
         FileFormat:=xlOpenXMLWorkbookMacroEnabled 

关于你的第二个问题。更改您的代码到这

Application.DisplayAlerts = False 

FName = "C:\Users\Public\Documents\DTMForGIS\DTMtoGIS" & _ 
Format(Now, "yyyy-mm-dd hh_mm_ss") & ".xls" 

ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlExcel8 

With ActiveSheet.UsedRange 
    .Copy 
    .PasteSpecial xlValues 
    .PasteSpecial xlFormats 
End With 

Application.Quit