重命名另一个工作簿中的工作表时出现错误9
错误9是指在重命名另一个工作簿中的工作表时出现的错误。这个错误通常是由于以下原因之一引起的：
- 工作簿或工作表不存在：确保要重命名的工作簿和工作表存在，并且路径和名称都是正确的。
- 工作表被锁定：如果工作表被锁定，你可能无法重命名它。请确保工作表没有被其他用户或程序锁定。
- 工作表名称无效：工作表名称可能包含无效字符或超过了允许的长度。请确保工作表名称只包含字母、数字和下划线，并且长度不超过31个字符。
- 文件被其他程序占用：如果工作簿正在被其他程序占用，你可能无法重命名工作表。请关闭其他程序或重启计算机后再尝试重命名。
如果你使用腾讯云的云计算服务，可以考虑使用腾讯云的对象存储服务 COS（Cloud Object Storage）来存储和管理工作簿文件。COS提供高可靠性、高可扩展性的存储服务，可以方便地上传、下载和管理文件。你可以使用COS的API来操作文件，包括重命名工作表。具体的产品介绍和文档可以参考腾讯云COS的官方网站：腾讯云COS
另外，为了避免出现错误9，建议在重命名工作表之前先进行一些检查，如检查文件是否存在、工作表是否被锁定，并确保工作表名称有效。如果问题仍然存在，可以尝试使用其他方法或工具来重命名工作表，或者咨询相关技术支持人员获取帮助。
相关·内容
当使用.xla()方法关闭“外接程序”工作簿(Workbook.Close)时，我会收到此错误：
error 1004:
"This workbook is currently referenced by another workbook and cannot be closed."
我关闭了从VBA编辑器中可见的所有其他工作簿。现在，“外接程序”工作簿是唯一打开的工作簿，但我仍然收到ThisWorkbook.Close()的错误。用“停止按钮”重置VBA编辑器中的项目没有帮助。
为什么Excel认为此工作簿当前由另一个工作簿引用？(编辑:没有其他工作簿，我全部关闭了。此时，只
浏览 1提问于2016-11-17得票数 1
当打开两个工作簿时(虽然不是必须的)，我想运行一个宏，将原始数据从第一个工作表复制到同一工作簿的另一个工作表中，并将另一组原始数据从第一个工作表复制到来自另一个工作簿的第三个工作表中。 第一部分(从一张工作表复制到同一工作簿的另一张工作表)很好。但是，当我键入要复制到另一个工作簿的新代码时，就会出现问题。当前错误是“运行时错误'13‘类型不匹配” Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set rawData = Workbooks.Open("D:\Work\Framas\CrusherRoom_V10
浏览 6提问于2019-08-28得票数 0
回答已采纳
我有一个带有userform的工作簿，其中包含用于填充工作表数据的列表框。
如果打开了多本工作簿，并从一个工作簿直接单击另一个工作簿中的userform上的列表框，则在Activeworkbook更改以反映包含该用户名的工作簿之前，将触发ListBox_Change事件。因此，当代码到达Set EqDataSht = ActiveWorkbook.Worksheets("Equipment-Data")时，就会出现下标超出范围的错误，因为我来自的工作簿不包含名为“设备-数据”的工作表。
将ActiveWorkbook设置为用户表单的父级的最佳方法是什么？我的想法是在workbo
浏览 0提问于2017-04-19得票数 1
回答已采纳
我在Excel中选择了一定数量的加载项，以便在启动时加载，但打开Excel时会出现以下错误：
此工作簿当前由另一个工作簿引用，无法关闭。
浏览 0提问于2018-06-21得票数 2
回答已采纳
我有一个excel工作簿，它包含多个工作表。在此工作簿中，偶尔会删除、重命名或添加工作表。此工作簿具有一个工作表(Sheet1)，该工作表应该用作在工作簿中打印其他工作表副本的命令中心。不幸的是，此打印命令中心无法正常工作。
命令中心只有两列。在A栏中有一个列表，上面有其他纸张的名称。在B栏中，用户可以在A栏中指定打印各个工作表的份数。
这是当前的代码：
Sub PrintSheets()
Dim mysheets As Range
For Each mySheets In Sheet1.Range("A2:A100")
If mySheets.Offs
浏览 0提问于2018-02-20得票数 0
回答已采纳
在python中可以重命名活动的工作簿和工作表吗？目前，我正在使用xlwing "view“命令在excel中打开我的数据帧，这很好，但希望在不将其保存到指定目录的情况下命名活动工作簿/工作表。
import xlwings as xw
xw.view(df)
当我试图重写活动工作簿的全名时，我会得到一个属性错误。
xw.books.active.fullname = "Report"
AttributeError:无法设置属性
浏览 3提问于2021-10-18得票数 0
回答已采纳
我有一个excel工作簿，它在三个用户定义函数中使用Application.Volatile。下面是其中一个函数的示例，其他两个函数非常相似。它们所做的全部工作就是在指定的工作表上查找一个值，然后将该值返回到摘要工作表。 Function estimated_commission(client As Range) As Double
Application.Volatile
Name = CStr(client.Value)
pull_value = Worksheets(Name).Range("A500").End(xlUp).Offset(0
浏览 69提问于2019-02-07得票数 1
回答已采纳
我有大约50本工作簿，每个工作簿都有两个选项卡。我想用与工作簿名称相同的名称重命名第一个工作表。当工作簿中只有一个工作表选项卡时，我知道如何执行此操作。但它不适用于多个选项卡。如何使用VBA动态重命名与工作簿同名的工作表？
浏览 3提问于2015-03-26得票数 0
我正在尝试将PivotTable从另一个工作簿复制到另一个工作簿。我可以复制PivotTable，但粘贴时出现问题。 以下是错误的屏幕截图 ? 下面是我的代码 Dim previous As Workbook
Dim latest As Workbook
Application.CutCopyMode = False
previous.Activate
Sheets("PD").Select
ActiveSheet.PivotTables("PivotTable2").Ta
浏览 60提问于2020-07-13得票数 0
我的工作簿似乎有点问题。当我将工作表类复制到新文件夹或重命名时，出现运行时错误'1004‘工作表类的选择方法失败。代码很简单。我是VBA新手，不知道如何正确地将工作簿或工作表设置为活动状态。
Private Sub Workbook_Open()
Sheets("QUOTE SETUP").Visible = True
Sheets("QUOTE SETUP").Select
Range("F6").Select
End Sub
浏览 1提问于2018-06-23得票数 0
全,
我刚刚升级到Excel 2013，遇到了一个奇怪的问题。我有一个启用宏的工作簿，它已经成功地工作了相当一段时间。我正在更新一些代码，并在试图写入特定工作表时遇到了这个错误(32809)。在故障排除中，我尝试了这一点。
Sheets("Summary").Range("G8").Value = "Test"
这导致了同样的错误。然后我试过这个。
Debug.Print ActiveSheet.Name
同样的错误。因此，我在工作簿上选择了另一个工作表，在名称上选择了debug.print。工作得很好。
然后我试过这个。
Debug.Print
浏览 2提问于2015-09-26得票数 0
当我尝试将工作表从另一个工作簿导入到当前工作簿时，出现error 9。 这是我的代码。它始终以黄色突出显示最后一行。我正在尝试将名为sheet1的工作表从名为MB_OP Report_Today'sDate的工作簿复制到工作簿AEM_WK_current week。 Sub InQltyMB_1()
' InQlyMB Macro
' Imports the MB sheet
For WeekNum = 40 To 2500
szToday = Format(Date, "MM.D.YYYY")
浏览 18提问于2020-11-19得票数 0
对象所需
代码中的CheckBox9值行出现错误。当用户对各种工作表进行编辑时，我希望关闭工作簿中单个工作表的计算。
我似乎不知道我的错误在哪里。谢谢你的帮忙
Sub StopCalc()
If CheckBox9.Value = True Then
Sheets("Sheet1").EnableCalculation = False
Else
Sheets("Sheet1").EnableCalculation = True
End If
End Sub
浏览 5提问于2017-12-15得票数 0
1回答
我有一个excel工作表，它引用同一个工作簿的另一个工作表的公式。目前，我正在第1页上，并试图使用cell.setFormula(Sheet2[#All])为单元格设置公式。
当我这样做时，我遇到了以下错误：
指定的命名范围“Sheet2”在当前工作簿中不存在。org.apache.poi.ss.formula.FormulaParseException at org.apache.poi.ss.formula.FormulaParser.parseNonRa nge(FormulaParser.java:569) at org.apache.poi.ss.formula.FormulaPa
浏览 4提问于2014-11-10得票数 0
1回答
活动工作表名称按顺序更改
、、、
我有一个工作簿，它有两个电子表格，名为"WT-1“和"CL-1”(可以用diff更多)。姓名)。
当."WT-1“是活动的，我希望能够(通过使用分配给它的宏的按钮)复制这个当前(活动)电子表格，并按顺序重命名它，如WT-2、WT-3、WT-4等等。
我猜更改只需要应用于包含"WT-“的电子表格，因为名称更改应该只针对新的表。不应触及所有其他现有的工作表。这里是- Pls help :)它更改了一个新电子表格的名称。如果我的工作簿中只有一个以上的工作表，它就不能工作。
Sub changeWSname()
Dim ws As Worksheet
Dim shtN
浏览 0提问于2018-03-09得票数 1
回答已采纳
1回答
我正在尝试引用另一个工作表中的ActiveX checkbox控件的值。我的目标是使当前工作簿中复选框的值与另一个打开的工作簿中的值相同。
我可以在同一工作簿的不同工作表上的两个复选框之间执行此操作：
Private Sub CommandButton1_Click()
If Sheets("Sheet2").Box2.Value = True Then
Box1.Value = True
Else: Box1.Value = False
End If
End Sub
但是当我运行以下代码时，我收到运行时错误'9‘"Subscript out of
浏览 3提问于2014-05-17得票数 0
1回答
社区
我需要帮助处理ListBox错误。
我在工作表中有两个ListBoxes (单选择)&而不是在用户表单中
ListBox1 -包含主要项目
ListBox2 -包含与主项关联的子项
当选择主要项目时-
如果不存在子项，则ListBox2.Visible = False
如果存在子项，则ListBox2. .ListIndex = True和.ListIndex= -1 (为子项选择做好准备)
使用工作簿时，代码运行良好。
打开工作簿时，链接到ListBox1的宏将自动运行，错误将弹出，并以蓝色“.ListBox2”突出显示。
Error =“编译错误:未找到的方法
浏览 5提问于2018-04-11得票数 1
回答已采纳
我正在尝试将现有列从工作表复制到新工作簿中的列。
我试过的密码：
Set NewBook = Workbooks.Add
Sheets("Sheet1").Columns(1).Copy Destination:=NewBook.Sheets("Sheet1").Columns(2)
这是创建一个工作表，但没有值被复制！如果我将同一工作簿中的另一个工作表复制到另一个工作表，则此代码可以工作。
如何在NewBook中创建新工作表以及在该sheet中创建目标列
浏览 1提问于2015-04-25得票数 1
回答已采纳
我在向新创建的工作表中添加事件代码时遇到问题。
问题似乎只有在我打开Excel工作簿之后才会出现。我使用
Dim codemod As Object
codemod = ActiveWorkbook.VBProject.VBComponents(Worksheets("Sheet4").CodeName).CodeModule
来将代码添加到创建的工作表模块中，但是当我试图在打开Excel工作簿之后立即运行此代码时，它给出了一个错误:运行时错误'9‘子脚本超出范围。调试程序指向codemod行。
奇怪的是，当我只对代码稍作更改，然后将其更改回原始状态时，此错误不会再次
浏览 0提问于2011-06-23得票数 0
在工作簿中，我试图打开另一个工作簿，复制该工作簿中的主工作表并将其重命名。问题是，无论我尝试什么，当我复制主表时，它似乎都不起作用。
尝试一个--使用复制方法.
Sub individualStats()
'Initialize
Dim app As New Excel.Application
app.Visible = False
Dim objWorkbook As Excel.Workbook
Set objWorkbook = app.Workbooks.Add("S:\MH\Stats\Jordan Individual Stats.xlsm&#
浏览 1提问于2016-02-19得票数 0
回答已采纳
当我尝试将范围(“A1:Q20”)中的合并单元格从工作簿的一个工作表粘贴到单元格"F20“中的另一个工作表中时，出现此错误，如下面的代码所示。 With ActiveWorkbook.Sheets("Data")
Range("A1:Q20").Copy
dataworkbook.Close
End With
With ActiveWorkbook.Sheets("Destination Data")
Range("F20").PasteSpecial xlPasteAll
End With 但是，这只粘贴不是我想要的
浏览 107提问于2021-02-08得票数 0
回答已采纳
我有一个工作簿，我需要创建150份。我有要保存每个新工作簿的列表，如在另一个工作簿中的单元格A1到A150中。
我四处看看，但找不到任何代码来满足我的需要。如果这样做更容易，我可以将列表放入模板工作簿，但在保存和关闭该工作表之前，需要从每个新工作簿中删除该工作表。
浏览 0提问于2018-07-04得票数 0
1回答
我一直在创建一个包含各种版本的.xlsm工作簿。它只需将其他两个工作簿中的数据复制到表中，然后刷新基于这些表的PivotTables，以更新主工作簿上的图表。我以前在不同的工作簿上做过的所有事情都没有问题。在操作工作簿时，我自然地打开、保存了工作簿，然后在几天内多次关闭了工作簿。
通常情况下，现在我相信工作簿要完成了，它在打开时出现了一个小故障。最初，我根本无法打开文件，因为它会立即崩溃。只有将文件保存到onedrive并再次下载回来，我才能打开文件查看发生了什么(由于某种原因，我不知道为什么！)
我立刻怀疑VBA中有什么东西，所以在Alt+F11的一个媒体之后，我遇到了这个问题(上
浏览 1提问于2017-09-13得票数 1
因此，我知道如何使用vba将工作表复制到另一个工作簿的问题的答案。下面是我使用的代码：
wb.Worksheets(1).Copy Before:=activeWB.Worksheets("Sheet1")
因此，从这个名为"wb“的工作簿中，我将"wb”中的工作表复制到一个名为“activeWB”的新工作簿中。前面的函数把这张纸放在"Sheet1“前面。
然而，我想把纸张从"Wb“到"Sheet1"，而不是在它之前或之后。我尝试了很多方法，但都没能成功。:(
浏览 5提问于2016-02-02得票数 0
回答已采纳
1回答
我正在通过另一个工作簿中的VBA子例程(比如工作簿1 )打开excel工作簿(比如工作簿2)，然后尝试从excel工作簿中找到一个表( ListObject )。
我试过的代码如下，
Sub B()
Dim TBL_EMP As ListObject
Dim strFile As Variant
Dim WS_Count As Integer
strFile = "File Path"
Set WB_TRN = Workbooks.Open(strFile)
浏览 14提问于2021-12-13得票数 1
回答已采纳
我在ThisWorkbook中有以下内容：
Private Sub workbook_open()
msgbox ActiveSheet.Name
End Sub
当工作簿打开时，msgbox行将出现以下错误：
Run-time error '32089':
Application-defined or object-defined error
尝试从即时窗口调用工作表时：
?Sheets("problemSheetName").Name
也会产生同样的错误。然而，其他纸张：
?Sheets("someOtherSheet").Name
不要
浏览 4提问于2015-03-24得票数 0
回答已采纳
3回答
我正在将工作表从另一个工作簿导入到当前工作簿。完成导入工作表后，我想关闭另一个工作簿。我使用的代码给出了错误运行时错误9'：下标超出范围。
Sub ImportWorksheet(MyPath As String, wbName As String)
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=MyPath
Sheets(1).Copy After:=Workbooks(ControlFile).Sheets(1)
ActiveSheet.Name = wbName
Workbooks(MyPath).Clos
浏览 0提问于2018-07-24得票数 3
回答已采纳
2回答
我有三个工作表，我有数据。主工作表有一个名为Lists的工作表，它包含各种组合框列表。我试图使列表具有动态性，即能够添加条目，并让它们在用户下次进入用户表单的组合框时显示出来。
我有以下代码，只有在正确工作簿的Lists表中才能正常工作：
ThisWorkbook.sheets("Lists").Range("I1", Range("I" & Rows.Count).End(xlUp)).Name = "DriverList"
但是，如果我在另一个工作表或另一个工作簿中(都在同一个目录中)，则会得到一个
运行时错误#1
浏览 6提问于2015-04-10得票数 1
我正在尝试从另一个工作簿中捕获复制到工作簿中的工作表。
从其他工作簿复制工作表时，不会触发Workbook_NewSheet事件。只有当用户手动插入它们(Insert->Worksheet菜单选项)或通过VBA作为ThisWorkbook.Worksheets.Add添加新工作表时，才会触发它。
我试图捕捉的基本上是一个粘贴操作，它正在产生一个新的工作表。
这可能来自以下任何用户操作：
用户通过拖动现有工作表，保持控制键(这将添加新工作表)，用户从另一个工作簿复制工作表/s，用户从另一个工作簿中移动工作表
或以下任何一个VBA代码：
SourceWorkbook.Sheets(“Sour
浏览 10提问于2009-04-06得票数 3
回答已采纳
我有一个宏，通过在每个工作簿中创建图表来处理多个excel工作簿。它在我的电脑上运行得很好。
当我试图在另一台计算机上运行它时，它会给出1004错误。然而，当我在某一条线上放置一个断点时，宏运行良好。我只需对每个工作表按F5：
Dim c As Chart
Set c = Charts.add
c.ChartType = xlXYScatterLines
c.SetSourceData source:=Sheets("Data Tables").Range("D4:D9, G4:G9"), PlotBy:=xlColumns
最后一行是我的断点。当我这样做时，不
浏览 6提问于2017-08-31得票数 0
回答已采纳
1回答
下面的代码是在工作簿中移动工作表的函数。它从一个包含列表框的用户表单中调用，列表框列出了工作簿中的工作表。输入是一个整数，它给出了移动工作表的方向。工作簿中的Left/right在用户表单列表框中是向上/向下的，并且用户表单有向上和向下按钮，它们使用不同的输入调用函数(+1表示向右移动，-2表示向左移动)。
如果对象'_Worksheeet‘失败，此函数有时会给出错误方法'Move’，但不一致。大多数情况下，错误是在第二次移动工作表时出现的，因此我不能移动工作表多次。一旦发生错误，我就无法再次移动工作表。但是，我可以选择不同的工作表，并在相同的事情发生之前移动它一次。
如果我在
浏览 4提问于2017-08-07得票数 0
1回答
我正在尝试将数据从一个工作簿“输入工作表”移动到另一个工作簿“主工作簿”。两个工作表都在同一个文件中，如果两个文件不需要同时打开就可以传输数据，但一旦数据传输完毕，主工作簿就会自动保存。链接到下面文件的图像，以便更容易理解我正在尝试做的事情。
输入工作表中的数据在行6，列A-J，每个用户输入他们被要求完成的任务的详细信息。我希望当单击按钮时，输入工作表中的数据将传输到主工作簿的第2行、B-K列，以便每次输入和传输新任务时，它都会出现在下面的行中(以便以后可以旋转，等等)。
-输入表
-主页表
浏览 1提问于2016-09-19得票数 2
2回答
我使用另一个工作簿中的活动工作表在我的工作簿中创建宏。我现在想运行我的宏，但使用另一个不同的活动工作簿来获取数据。
这一行在我的宏中出现了20次...
Windows("IFS_round_1").Activate
...so我不想更改它(例如IFS_round_2)每次打开新工作簿以运行宏时。有没有什么我可以添加的东西，以便宏只使用我打开的任何活动工作簿？
谢谢!
浏览 3提问于2015-01-17得票数 0
这件事已经困扰我一段时间了。我想按名称访问工作表，而不是“工作表在Excel中的命名方式”。我还想在行中包括ThisWorkbook，以消除打开几本带有同名工作表的工作簿的可能性。但是，我得到了一个错误：
我已经将我的工作表命名为CalculationItem1。为什么跟随不起作用？
Sub TestTest()
ThisWorkbook.CalculationItem1.Range("A1:A2").Copy
End Sub
出现以下错误：
下面的工作，但有可能有一个相同的名字工作表在另一个打开的工作簿？那么错误就会出现吗？
Sub TestTest()
浏览 7提问于2020-07-22得票数 1
回答已采纳
我有一个工作簿，它包含多个用户定义的函数，有时会出现#VALUE错误。我已经确定，当另一个具有类似工作表名称/选项卡颜色的工作簿与带有UDF的工作簿同时打开时，这些UDF会给出一个#值错误。UDF引用其他工作表，使用工作簿中的选项卡颜色来计算其值。因此，我的猜测是，这些UDF给出了一个#值错误，因为它无法区分不同打开的工作簿中同名/颜色工作表的差异。
例如，两个打开的工作簿具有相同的选项卡颜色，会给这些UDF带来一个#VAULE错误。我通过打开一个带有通用工作表名和白色选项卡颜色的新工作表来确认这一点，并且UDF没有给出此错误。这些UDF在其他方面完全按照预期工作，除非出现这种情况。下面只是在
浏览 1提问于2018-04-04得票数 3
回答已采纳
2回答
我正在尝试将一些数据从一个excel工作簿复制到另一个excel工作簿，但我无法做到。我可能会收到一些无用的消息，比如“无法复制数据”
当我复制到同一工作簿中的新工作表中时，复制工作正常。我做错了什么？这将是非常有帮助的解决这个问题。
下面是我正在尝试做的事情的截图：
我重新启动了计算机两次，但这似乎并没有改变问题。我尝试复制整个工作表或只复制一个单元格，但得到了相同的错误。
有一次，“保持源代码格式”选项在粘贴时出现，但当我尝试粘贴时，我收到了这样的消息："Microsoft正在等待另一个应用程序完成OLE操作“。我的电脑上现在只有g
浏览 0提问于2014-04-01得票数 1
我使用下面的代码打开另一个工作簿并提取数据。
FileName = "F:\QA\CMM\CMM Job Results\2-08533R\Rev4\F103223\Excel Printouts\2- 08533R_Rev4_" & i & "1.xls"
Set arc(i) = Workbooks.Open(FileName, True, True)
当我这样做时，文件将打开，并出现以下错误消息：
无法找到ReportINI工作表。请确保ReportINI.xls位于-office-程序的-xlstart-子目录中.
这是由我试图打
浏览 1提问于2018-12-11得票数 1
回答已采纳
Problem：我发现了许多帖子(包括微软自己的支持站点)，其中包含了当某些单元格在Excel中发生变化时如何运行宏的信息。我可以让它工作，但我需要将它存储在我的Personal.xlsb工作簿中，并让它影响另一个工作簿中的命名工作表。
后台：我经常从第三方接收一个文件，并在它上运行一系列例程，所有宏都存储在我的Personal.xlsb隐藏工作簿中。该过程的一部分要求我“撤消”用户在特定单元格中输入日期时自动进行的许多格式更改。当用户在给定的5个工作表中指定的单元格中输入日期时，我想将这些subs称为5个单独工作表上的“撤销”subs。但是，我已经在线阅读过的所有关于这方面的帮助都让我将代码
浏览 13提问于2013-08-05得票数 1
当我试图保存、保存为或打开VBA编辑器时，特定的xlsm工作簿会崩溃。我尝试过禁用宏，删除自动计算等等。实际上，我无法通过代码查看是否有错误导致崩溃，原因是编辑器本身导致崩溃。
编辑:还忘了提到文件中还有其他工作簿的链接，但是删除保存时的自动更新/计算似乎没有帮助。而且，我能够修改工作簿，只是无法执行宏、保存或打开VBA编辑器。
Edit2:一些额外的信息。我尝试删除所有工作表，但仍然存在相同的问题，所以代码中肯定有错误。
寻找挽救工作簿的解决方案。
浏览 0提问于2015-12-08得票数 0
1回答
我使用的是带有32张工作表的excel工作簿。但是，当我试图使用工作表顺序将工作表32放在工作表1的前面时，就会出现错误。请查找下面所附的错误。
worksheetOrder(wb)<-c(32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
浏览 2提问于2021-12-12得票数 -1
我已经写了这段代码，当从一个工作表到另一个工作表时，它可以工作。(相同的工作簿)。但是，当我从一个工作簿循环到另一个工作簿时，我得到“运行时错误9”的子脚本超出范围。 我已经检查了几次文件名是否如代码中所述，似乎不是问题所在。另外，如果我在第一段中编写y.sheets("Tavledisplay")而不是工作表(“Tavledisplay”)，调试器会告诉我有问题。采用后一种方式，它会发送1个数据循环，并在y.sheets("Tavledisplay").Activate停止。 我的代码： Dim x As Workbook
Dim y As Workbook
浏览 12提问于2019-06-12得票数 0
回答已采纳
我有一个宏，它：
创建一个新的工作簿
导入.csv文件
格式化数据(将consol数据拆分为单个工作表和其他操作)
将各个工作表导出到不同的工作簿中。
宏运行非常好，直到第4步。
我得到一个编译错误*在步骤-4。
当我在step4之后将工作簿保存为另一个工作簿，然后只运行步骤-5。效果很好。
在创建手册时，我尝试了.xls和.xlsx两种格式，但是错误仍然存在。
我无法找到错误的根本原因。
附录：
用于创建新工作簿的代码
Sub AddNew()
Application.DisplayAlerts = False
Dim thisWb As Workbook
浏览 0提问于2018-05-17得票数 1
回答已采纳
2回答
我有一个VBA程序，它要求用户输入所需的范围，，它位于另一个打开的工作簿中。如果出现错误，即手动激活其他工作簿，但没有选择范围，或者出现错误，我希望程序显示带有错误消息的原始宏工作簿表。下面的代码在调试模式下工作，但是当运行VBA程序时，它会正确地显示错误，但不会显示原始的宏工作表。它保留在由用户手动激活的工作表上。我遗漏了什么？
在下面的代码中，"HMArea“是由获取用户输入的例程返回的范围变量。"Macro_Fname“是原始VBA程序的文件名的字符串变量。
HM_file = FileName(HMArea)
If HM_file = "Macro_Fna
浏览 2提问于2013-10-23得票数 1
所以我想做的是：
打开Excel工作簿并在单元格中输入一些值
使用Pandas读取Excel文件，将其转换为DataFrame
在DataFrame上执行一些操作
关闭工作簿(我想自动化这一步，当Excel文件仍然打开时，Pandas无法写入输出)
在另一个工作表中输出结果，但输出相同的工作簿。
重新打开Excel工作簿以检查结果
具体而言，步骤4出现了一些问题，必须关闭Excel，否则会出现错误(PermissionError: Errno 13)。我知道如何使用PyWin32打开并做任何事情，但是是否有方法将已经打开的Explorer(以前从文件资源管理器打
浏览 16提问于2020-04-13得票数 0
回答已采纳
我在Sheet2上有一个带有ActiveX复选框的带有某种目录的工作簿。
如果用户选择其中一个复选框，它将将该部分隐藏在另一个工作表上。
我需要这是一个受保护的工作簿。
单击复选框时，将收到以下错误：
“要更改的单元格或图表位于受保护的工作表上。要进行更改，请在”检查“选项卡中单击”取消保护工作表“。
保护工作簿的代码：
Private Sub Workbook_Open()
Dim wSheetName As Worksheet
For Each wSheetName In Worksheets
wSheetName.Protect Password:="pass&#
浏览 0提问于2019-04-29得票数 0
回答已采纳
我有一个工作簿，其中包含一堆数据透视表，这些表在我用作模板的单独工作簿中引用不同的工作表。
每周我都会添加到数据透视表工作簿中，并将其保存在单独的文件夹中。
当我每周尝试添加到数据透视表中时，我必须更新每个数据透视表的源数据，因为它引用了上周的模板。
例如:在文件夹"45“中，我有与我的公司有关的42-45周的透视表和与42-45周有关的信息的模板。(我一次运行四周的报告，有太多的数据来保存整个year...excel没有足够的行来处理我正在处理的信息)
我将该信息复制并粘贴到文件夹"46“中，并添加到模板中，因此现在它包含信息43-46，但数据透视表工作簿不会更新--我必须将
浏览 7提问于2020-11-19得票数 0
4回答
我有一个名为"C:\myfile.xlsm“的Excel工作簿。
它有一个叫做“销售”的工作表。
在另一个打开的工作簿中，我试图从该C:\myfile.xlsm工作簿中访问一个单元格值。
(顺便说一句: C:\myfile.xlsm没有打开。)
执行以下操作失败：
temp = Workbooks("C:\myfile.xlsm").Worksheets("sales").Range("C2").Value
我知道这个错误，我不知道为什么：
运行时错误9
下标超出范围
浏览 8提问于2016-04-24得票数 0
如何使用PowerQuery访问与PowerQuery关联的元数据？当您停留在右侧"Workbook查询“列表中的查询上，显示”最后刷新“等字段时，就会出现此数据。
应用程序:我有一个Excel工作簿，它汇集了来自不同来源的几十个输入文件，然后由其他下游工作簿使用。我想要创建的是此输入工作簿中的一个表，该表显示工作簿中每个输入表的Power查询的元数据，例如表上次刷新的时间、它有多少记录等，以便进行验证。例如，如果我知道某个文件应该有确切的64条记录，那么每当看到更多或更少的记录时，我就可以标记它。
我已经进行了广泛的搜索，包括许多博客、技术板、amazon.com和以下内容：
Po
浏览 0提问于2016-08-25得票数 2
2回答
我使用一个Counta函数来检索关闭的工作簿中表中的列数。该表是从同一个工作簿中的另一个表创建的，其中有超链接。函数返回零，即使有4列/标题。我需要这个数字来ReDim一个数组，但我得到‘运行时错误'9’。当我打开工作簿并从表右侧删除所有列和从表底部向下删除所有行时，保存和关闭，然后再试一次，它可以工作。有人经历过吗？谢谢你的帮助！
公式如下：
=COUNTA('" & FilePath & "[" & fileName & "]" & sheetName & "'!1:1)
浏览 0提问于2016-02-09得票数 1
回答已采纳
简单地说，我的问题如下:普通excel工作簿(.xlsx而不是.xlsm)中工作表上的按钮是否可能触发另一个文件中的宏，特别是已安装的excel加载项(.xlam)。
以下是我为什么要实现这一点的一些背景知识。我有一个工作簿，许多用户都需要能够查看，但只有一些用户需要能够通过在另一个工作表上填写表单并调用插件中的宏来进行更新。工作表不应包含任何宏，以避免在由普通用户打开时出现安全警告。我可以通过在add中有一个功能区按钮，用户单击它，然后在执行更新代码之前检查正确的工作簿是否打开，表单是否填写等来完成此操作。但是，如果按钮而不是出现在ribbon上的按钮位于工作表的表单下方，界面会更好。因此，
浏览 0提问于2011-05-12得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
云直播活动推荐
腾讯云开发者
