在Excel 2010中编写的宏在Excel 2013中不工作

我写了一个简单的宏以强制最终用户查看EULA，然后单击命令按钮接受这些条款。单击打开工作簿的选项卡，允许用户浏览本书。这工作正常，在Excel 2010和所有以前的版本，但不是在Excel 2013年在Excel 2010中编写的宏在Excel 2013中不工作

我得到这个错误：

这是代码：

Sub OpenSheets() 
' 
' OpenSheets Macro 
' 

' 
    Sheets("EULA").Select 
    Sheets("Infection_Worksheet").Visible = True 
    Sheets("Infection_Worksheet").Select 
    Sheets("Exit_Site_Infection_Chart").Visible = True 
    Sheets("Exit_Site_Infection_Chart").Select 
    Sheets("Peritonitis_Chart").Visible = True 
    Sheets("Exit_Site_Infection_Chart").Select 
    Sheets("%_Pts_peritonitis_free").Visible = True 
    Sheets("%_Pts_peritonitis_free").Select 
    Sheets("Pt_numbers").Visible = True 
    Sheets("Pt_numbers").Select  
    Sheets("Results").Visible = True 
    Sheets("Results").Select 
    Sheets("Instructions").Visible = True 
    End Sub

有没有人有什么建议？

来源

2017-04-03 Mark Penno

哪里错误？ – 3vts

在xl2016中，如果我尝试取消隐藏具有受保护结构的工作簿中的工作表，我会得到[this]（https://i.stack.imgur.com/UcIjZ.png）错误。 – Jeeped

你以某种方式处理工作区？当MS移动到独立应用程序窗口（在单个应用程序实例内）时，工作区在xl2013被放弃。 – Jeeped

下划线表示VBA中下一行的延续。

试试这个Sheets("Infection" & Chr(97) & "Worksheet").Visible = True

等等等等

来源

2017-04-03 01:05:48 Jaberwocky

下划线只有在以空格开头时才是连续字符，而不是在字符串文字中。 – YowE3K

那么他的工作表就好像没有任何东西在下划线之前那样是我的第一个嫌疑犯:)我过去也遇到过类似的问题。这通常是错误的报价或使用续行，我不应该！ – Jaberwocky

我没有注意到被投诉的“对象”是'_Worksheet'，所以你可能碰到了一些东西，但并不是因为下划线字符。这可能是某种腐败行为（我最近看到另一个问题，我的解决方案是让OP重新输入该行）。 @MarkPenno - 尝试删除并重新输入“Sheets（”Infection_Worksheet“）。Visible = True'行。 – YowE3K

在Excel 2010中编写的宏在Excel 2013中不工作

回答

相关问题