Vba 用Excel 2010编写的宏在Excel 2013中不起作用
我编写了一个简单的宏,强制最终用户查看EULA,然后单击命令按钮接受条款。单击工作簿的选项卡后,将打开该工作簿,允许用户浏览该工作簿。这在Excel 2010和所有以前的版本中都可以正常工作,但在Excel 2013中则不行 我得到这个错误: 代码如下:Vba 用Excel 2010编写的宏在Excel 2013中不起作用,vba,excel,Vba,Excel,我编写了一个简单的宏,强制最终用户查看EULA,然后单击命令按钮接受条款。单击工作簿的选项卡后,将打开该工作簿,允许用户浏览该工作簿。这在Excel 2010和所有以前的版本中都可以正常工作,但在Excel 2013中则不行 我得到这个错误: 代码如下: Sub OpenSheets() ' ' OpenSheets Macro ' ' Sheets("EULA").Select Sheets("Infection_Worksheet").Visible = True
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
有人有什么建议吗?下划线表示VBA中下一行的延续 尝试此
工作表(“感染”&Chr(97)和“工作表”)。Visible=True
等高线表示VBA中下一行的延续 尝试此
工作表(“感染”&Chr(97)和“工作表”)。Visible=True
etc etc错误在哪里?在xl2016中,如果我试图取消隐藏具有受保护结构的工作簿中的工作表,则会出现错误。您是否以某种方式处理工作区?该工作区在xl2013年被放弃,当时MS移动到独立的应用程序窗口(在单个应用程序实例中)。宏运行并打开所有选项卡,并抛出我在上面列出的错误,然后xl2013崩溃。您能告诉我们在哪一行得到错误吗?错误在哪里?在xl2016中,如果我试图取消隐藏具有受保护结构的工作簿中的工作表,则会出错。您是否正在处理工作区?xl2013年,当MS移动到独立的应用程序窗口(在单个应用程序实例中)时,工作区被放弃。宏运行并打开所有选项卡,并抛出我在上面列出的错误,然后xl2013崩溃。您能告诉我们您在哪一行收到错误吗?如果前面有空格,下划线仅为连续字符,他的工作表的行为就像下划线前没有任何东西一样,所以这是我的第一个怀疑:)我过去也有过类似的问题。这通常是错误的引号或使用行继续,我不应该虽然!我没有注意到被投诉的“对象”是
\u工作表
,因此您可能偶然发现了一些东西,但不是因为下划线字符。这可能是行中的某种腐败(我最近看到另一个问题,我的解决方案是让OP简单地重新键入行)@MarkPenno-尝试删除并重新键入工作表(“感染工作表”)。Visible=True
行。如果下划线前面有空格,则下划线仅为连续字符,他的工作表的行为就像下划线前没有任何东西一样,所以这是我的第一个怀疑:)我过去也有过类似的问题。这通常是错误的引号或使用行继续,我不应该虽然!我没有注意到被投诉的“对象”是\u工作表
,因此您可能偶然发现了一些东西,但不是因为下划线字符。这可能是行中的某种腐败(我最近看到另一个问题,我的解决方案是让OP简单地重新键入行)@MarkPenno-尝试删除并重新键入工作表(“感染工作表”)。Visible=True
行。