以下代码我电脑可以不报错运行，别人不可以！

邓先森林公园

Private Sub CommandButton5_Click()
Sheets("Sheet1").Activate
Dim biaoming1, biaoming2 As String
biaoming1 = chengshi & "-异常盒子返厂登记-"
biaoming2 = biaoming1 & Date
If Range("a3").Value = "" Then
MsgBox ("当前表格无数据，无法导出！")
GoTo jieshu1
Else
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.ActiveSheet.Copy wb.Sheets(1)
wb.ActiveSheet.Name = "异常登记"
wb.ActiveSheet.Shapes("Button 1").Cut
Application.DisplayAlerts = False
wb.Sheets("sheet1").Delete
wb.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & biaoming2 & ".xlsx"    '报错是这一样代码！
wb.Close
MsgBox ("已导出文件，请前往***桌面***查看标准文件！")
jieshu1:
End If
End Sub
以上的代码，我自己的电脑可以在桌面生成一个以我要求命名的文件，不会报错。但是其他人运行这个表格，只会把表格复制进wb，不会自己存储到桌面，也不会自动命名成指定文件名。

看见星光

别人的电脑日期格式和你不一样的吧。 系统不允许使用\/等特殊字符对文件进行命名。如果别人的电脑是2019/1/1的日期格式，自然就不允许了。最好把DATE格式化成2019-1-1的形式。

邓先森林公园

看见星光 发表于 2019-9-6 09:13
别人的电脑日期格式和你不一样的吧。 系统不允许使用\/等特殊字符对文件进行命名。如果别人的电脑是2019/1/ ...

好的，大佬，我去试试。大佬的论坛尾巴好靓！

opel-wong

这样试试：

1. Private Sub CommandButton5_Click()
   
2.     Sheets("Sheet1").Activate
   
3.     Dim biaoming1, biaoming2 As String
   
4.     biaoming1 = chengshi & "-异常盒子返厂登记-"
   
5.     biaoming2 = biaoming1 & Date
   
6.     If Range("a3").Value = "" Then
   
7.         MsgBox ("当前表格无数据，无法导出！")
   
8.         GoTo jieshu1
   
9.     Else
   
10.         Dim wb As Workbook
    
11.         Set wb = Workbooks.Add
    
12.         ThisWorkbook.ActiveSheet.Copy wb.Sheets(1)
    
13.         wb.ActiveSheet.Name = "异常登记"
    
14.         wb.ActiveSheet.Shapes("Button 1").Cut
    
15.         Application.DisplayAlerts = False
    
16.         wb.Sheets("sheet1").Delete
    
17.         wb.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & biaoming2 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    
18.         wb.Close
    
19.         MsgBox ("已导出文件，请前往***桌面***查看标准文件！")
    
20. jieshu1:
    
21.     End If
    
22. End Sub

复制代码

邓先森林公园

看见星光 发表于 2019-9-6 09:13
别人的电脑日期格式和你不一样的吧。 系统不允许使用\/等特殊字符对文件进行命名。如果别人的电脑是2019/1/ ...

大佬，牛逼呀。嘿嘿!解决！

邓先森林公园

opel-wong 发表于 2019-9-6 09:17
这样试试：

按照楼上大楼分方法已确定原因了，感谢大佬热心帮助，小白无限感激。