错误报告1004：无法对合并单元格执行此操作

philipyeah

不知道为什么 发表于 2018-6-12 14:40
你定义了 fil 为 string，那肯定要报错啊

Sub saveas()
Dim Fil, FileName As String, Filter As String, Tile As String
FileName = "Pressure Holding Data Compare"
Filter = "Excel工作簿,*.xls;*.xlsx;*.xlsm,Word文档,*.doc;*.docx;*.docm"
Tile = "Save As"
Fil = Application.GetSaveAsFilename(InitialFileName:=FileName, filefilter:=Filter, FilterIndex:=2, Title:=Tile)
If Fil = True Then
  ActiveSheet.SaveCopyAs FileName
Else
  Exit Sub
End If

End Sub

我把fil类型改了，然后我觉得是这段代码出了问题 你知道该怎么改吗

不知道为什么

philipyeah 发表于 2018-6-12 14:49
Sub saveas()
Dim Fil, FileName As String, Filter As String, Tile As String
FileName = "Pressure  ...

dim fil  删除
ActiveSheet.SaveCopyAs FileName
修改为：
ActiveWorkbook.SaveCopyAs Filename:=fil

philipyeah

不知道为什么 发表于 2018-6-12 14:57
dim fil  删除
ActiveSheet.SaveCopyAs FileName
修改为：

大神 我试了一下 好像不行哎

不知道为什么

philipyeah 发表于 2018-6-12 15:56
大神 我试了一下 好像不行哎

供参考               

philipyeah

不知道为什么 发表于 2018-6-12 16:55
供参考

万分感谢！！！