宏在 excel 2010 中无法按预期工作

问题描述

我接管了一个包含多个宏的 Excel 文档。我不太了解它的工作原理，但直到现在才能够更新和修复它。下面的脚本是用excel文档中的文本作为文件名做一个文件SaveAs。当我运行宏时，我收到运行时错误“1004”：找不到具有指定名称的项目。我被困在它正在寻找的东西上，而没有找到。任何反馈表示赞赏。

Sub save_file()
Application.ScreenUpdating = False
Application.displayAlerts = False
    Sheets("QUOTE").Select
    ActiveSheet.Shapes("Option Button 1").Select
    Selection.Delete
    ActiveSheet.Shapes("Option Button 6").Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.Delete
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Rows("8:11").Select
    Selection.copy
    Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=False
    Range("D13").Select
    Selection.copy
    Selection.PasteSpecial Paste:=xlPasteValues,Transpose:=False
    Application.CutcopyMode = False
    Range("E3").Select
    Selection.copy
    Selection.PasteSpecial Paste:=xlPasteValues,Transpose:=False
    Application.CutcopyMode = False
    Sheets(Array("Main","S","H","AP","SE","DC","UI","LX","TS","SS","ALL NOTES","Customer List","SHIPPING","SING","COSTS","BOM's")).Delete
Application.displayAlerts = True
Application.ScreenUpdating = True
If Range("c17").Characters.Count < 25 Then
ActiveWorkbook.SaveAs Application.GetSaveAsFilename(Range("E3") & " (" & Range("C17") & ")","Excel files (*.xlsm),*.xlsm"),Password:=""
Else
ActiveWorkbook.SaveAs Application.GetSaveAsFilename(Range("E3"),Password:=""
End If
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel-2010 vba