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

大佬教程收集整理的这篇文章主要介绍了宏在 excel 2010 中无法按预期工作，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决宏在 excel 2010 中无法按预期工作？

开发过程中遇到宏在 excel 2010 中无法按预期工作的问题如何解决？下面主要结合日常开发的经验，给出你关于宏在 excel 2010 中无法按预期工作的解决方法建议，希望对你解决宏在 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 (将#修改为@）