将用户表单输入工作簿用作引用时，下标超出范围
当将用户表单输入工作簿用作引用时，下标超出范围意味着引用的索引超过了工作簿中的有效范围。这可能会导致数据访问错误或异常。
为了解决这个问题，可以采取以下措施：
- 检查索引范围：确保引用的索引在工作簿的有效范围内。通常，工作簿的索引从0开始，因此最后一个元素的索引是总元素数减1。
- 验证用户输入：在使用用户输入之前，进行输入验证以确保输入的索引在有效范围内。可以使用条件语句或异常处理来处理超出范围的情况。
- 错误处理：如果发现索引超出范围，可以选择向用户显示错误消息或采取其他适当的错误处理措施，例如重新提示用户输入正确的索引。
在腾讯云的解决方案中，可以使用腾讯云的云数据库MySQL来存储用户表单数据，并使用腾讯云的云函数（Serverless）来处理用户输入和验证。云函数可以与云数据库进行集成，以便在处理用户输入时进行索引范围的验证和错误处理。以下是相关产品和产品介绍链接地址：
- 腾讯云云数据库MySQL：提供高性能、可扩展的关系型数据库服务，适用于各种应用场景。详情请参考：腾讯云云数据库MySQL
- 腾讯云云函数（Serverless）：无需管理服务器，按需运行代码的事件驱动型计算服务。详情请参考：腾讯云云函数（Serverless）
通过以上解决方案，可以有效地处理用户表单输入工作簿时的下标超出范围问题，并确保数据的安全和可靠性。
相关·内容
我有一个包含许多工作表的MS Excel工作簿。
用户在其中一个工作表中输入数据，然后单击运行VBA代码的按钮。根据从用户输入的数据导出的条件，我需要创建一个新的工作簿，其中包含一些工作表的副本。
然后，代码迭代(循环)源工作簿中的工作表，并将相关工作表的名称添加到字符串中……
Dim worksheetsToCopy As String
worksheetsToCopy = worksheetsToCopy & """" & "Admin Tab" & """" & ",
浏览 56提问于2016-06-07得票数 1
1回答
目标:打开任何工作簿并运行一个宏，该宏将切换出所有名称，并将其替换为工作簿"NameToID“中引用的ID。
工作簿有两个列，一个是名称，另一个是它们相关的ID。工作簿、工作表和表具有相同的标签"NameToID“。
宏存储在我的个人文件夹中，所以我打开的每个文档都可以访问它。现在，我打开了我的NameToID工作簿，然后在我想要运行宏的地方打开工作簿--但是当我运行它时，我会得到一个运行时错误9 "Subscript超出范围“错误。我想不出怎么修好它。是否需要将NameToID工作簿存储在个人文件夹中，以便始终可以访问？任何帮助都是非常感谢的。
Sub Multi_F
浏览 0提问于2017-11-03得票数 0
我已经打开了一个工作簿，但正在从另一个工作簿运行宏。我想使用第一个工作簿的名称激活它。
代码：
FileName = input_path_1 & input_file_1
Workbooks(FileName.xls).Activate
当我尝试这样做时，它给我“下标超出范围”的错误。我该怎么解决呢？
浏览 0提问于2015-03-17得票数 6
回答已采纳
2回答
我需要一些帮助来更改另一个工作簿中的变量。
首先，我使用Workbooks.Open ("test.xlsx")打开工作簿
当我尝试用Workbooks("test.xlsx").Worksheets("Sheet").Cells(1, 1).Value = VariableX更改单元格值时，它给出了错误9:下标超出范围。我不明白为什么它不能工作。有人能帮我解决这个问题吗？
浏览 18提问于2017-06-29得票数 2
回答已采纳
我想从另一个工作簿复制几列到当前工作簿和当前工作表，但我得到一个下标超出范围错误。我想知道是否有问题 Sub CopyColumns()
Dim SourceRange As Range
Dim DestRange As Range
On Error GoTo myerror
Set SourceRange = Workbooks("Invoice.xlsx").Worksheets("working").Columns("A:G")
Set DestRange = ThisWorkbook.Worksheets("working&
浏览 15提问于2020-07-28得票数 0
我正在尝试在SharePoint 2010上创建一个具有Access数据库引擎的表单界面。我知道我已经看到MS Access 2013在这方面做得很好，我相信我读到过MS Access 2010也可以做到这一点。是否可以在MS Access 2007中使用此功能？我不仅仅想上载我的access工作簿，或者在SharePoint中处理列表。我希望用户在SharePoint 2010上实际有一个表单，并通过该表单输入数据。
提前谢谢你，
萨拉G。
浏览 1提问于2016-07-21得票数 0
3回答
这就是我现在的情况，
Dim mastertemp As Workbook
Dim testproject As Workbook
Set testproject = Workbooks("C:\Users\zzz\Documents\Test Project.xlsm")
Set mastertemp = Workbooks("C:\Users\zzz\Documents\MasterTemp.xlsx")
mastersheet.sheets("Sheet1").activate
第三行代码是给我下标超出范围，有什么想法吗？
我希望能够在
浏览 8提问于2016-06-28得票数 0
回答已采纳
我有一个带有userform的工作簿，其中包含用于填充工作表数据的列表框。
如果打开了多本工作簿，并从一个工作簿直接单击另一个工作簿中的userform上的列表框，则在Activeworkbook更改以反映包含该用户名的工作簿之前，将触发ListBox_Change事件。因此，当代码到达Set EqDataSht = ActiveWorkbook.Worksheets("Equipment-Data")时，就会出现下标超出范围的错误，因为我来自的工作簿不包含名为“设备-数据”的工作表。
将ActiveWorkbook设置为用户表单的父级的最佳方法是什么？我的想法是在workbo
浏览 0提问于2017-04-19得票数 1
回答已采纳
下面的代码有时起作用，但并不总是起作用。我看过类似的例子，但我需要以一种特殊的方式工作(将所有工作表从Master复制到活动工作簿)。
我正在尝试将工作表从“主”工作簿("MasterWorkbook.xlsm“电子表格)复制到我的活动工作簿(一个.xlsx文件)中。我正在从我的活动工作簿运行这个宏。我也打开了“硕士”工作簿。
Sub CopySheetsFromMaster()
Dim ToWorkbook As Workbook
Set ToWorkbook = ActiveWorkbook
Application.EnableEvents = False
Work
浏览 2提问于2020-06-04得票数 0
回答已采纳
1回答
通常带有下标超出范围的错误，某些东西拼写错误。这一次我可以保证它不会拼错。我将工作簿和工作表名称声明为变量，以便稍后用于简单的复制粘贴内容。但是，当我将其中一个工作表定义为Set main=wb.Sheets("Primary")时，就会得到错误，下标超出了范围。我不相信，所以我复制了我写的东西，贴在纸上的名字。同样的错误。因此，它们必须是我如何设置工作簿/工作表的问题。任何帮助都很感激。
Sub copyPaste()
Dim wb As Workbook
Dim main As Sheets
Dim hypo As Sheets
Set wb = ThisWorkboo
浏览 0提问于2018-04-20得票数 0
回答已采纳
我试图从工作簿中复制数据并将其粘贴到另一个工作簿中。我希望它复制一个特定的范围，直到包含数据的最后一个单元格。
这是我到目前为止的情况，但它给了我一个‘下标超出范围’的错误。
Sub BackLog()
With Workbooks("Backlog Query AHSI").Worksheets("Sheet1")
lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
End With
ThisWorkbook.Worksheets("Data").Range(&#
浏览 4提问于2014-02-18得票数 0
回答已采纳
2回答
我正在尝试使我的数组调整到我工作簿中工作表数的长度，但一直保持
下标超出范围
关于上下文，我的工作表名是“年份XXXX”。
Dim sheetsForCalendar() As Integer
For Each Worksheet In ThisWorkbook.Sheets
Dim i As Integer: i = 0
Dim calendarYear() As String: calendarYear() = Split(CStr(Worksheet.Name))
ReDim Preserve sheetsForCalendar(i)
浏览 7提问于2016-02-14得票数 3
回答已采纳
1回答
我一直在尝试编写一个宏来将"Sheet1“从一个工作簿复制到另一个工作簿中，但我一直收到运行时错误'9'：下标超出范围。
Sub CopySheetToOtherWbk()
Dim CopyFromBook As Workbook
Dim CopyToWbk As Workbook
Dim ShToCopy As Worksheet
Set CopyFromBook = Workbooks("AllBugs.xlsx")
Set ShToCopy = CopyFromBook.Worksheets("Sheet1")
Set Copy
浏览 0提问于2013-07-17得票数 0
回答已采纳
2回答
我想出了一个解决方案，可以绕过我最初的问题(在VBA代码下面找到，这样我就可以在没有额外信息的情况下保持简短和甜蜜)，但是我得到了一个运行时error9。我在两个基本工作簿上测试了这段代码，它运行得很好。LastRow行是调试时突出显示的行。由于文件名有空格，所以我试图将文件名单独包围，但这不能解决错误。
Sub MakeGSATable()
Dim LastRow As Long
LastRow = Workbooks("Reservation Activity Dashboard (RAD) CP.xlsm").Worksheets("GSR").Cell
浏览 3提问于2017-12-13得票数 0
回答已采纳
我有一本工作簿：“检查日志”。从哪里复制列"A“并将其粘贴到工作簿中：”单元测试模板“。在"A“栏。
我一直试图使用以下代码：
Private Sub CopyColumnsButton_Click()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Workbooks("Check for logging.xlsm").Worksheets("Parameters").Columns("A")
Set targetColumn = Wor
浏览 3提问于2017-08-25得票数 0
回答已采纳
我可以将通用查询导出到我笔记本电脑上的excel工作簿，然后刷新数据(数据-全部刷新)。出现一个带有Windows Security (excel.exe)的弹出窗口，要求输入acumatica用户和密码。我输入此选项并勾选“记住我的凭证”框并保存工作簿。但是，下次当我打开我的工作簿并尝试从云刷新时，需要凭据才能再次进入。有没有办法保存凭据，以便在不需要用户和密码的情况下刷新工作簿？
非常感谢
浏览 2提问于2015-01-28得票数 0
我正在运行下面的代码，并在工作簿关闭行上得到“下标超出范围”的错误：
Sub SaveFileAs()
With Workbooks.Open(path & "\" & filename).Worksheets("Sheet 1")
.SaveAs path & "\" & "test.woe", _
FileFormat:=xlTextWindows, _
CreateBackup:=False
End
浏览 11提问于2017-02-02得票数 0
当用户窗体关闭时，如何自动保存隐藏的excel工作簿？userform是用数据填充工作簿，这些数据也是在用户表单上填充组合框。我需要保存工作簿，这样当用户表单关闭时，添加的任何数据都不会丢失。
我希望用户将数据输入到userform中，当数据完成后，将关闭userform，并且所有数据都将保存到工作簿中，以便将来的use.The工作簿是隐藏的，因此不可能保存工作簿。
浏览 0提问于2019-11-01得票数 1
回答已采纳
我正在编写一个宏，以选择和使用已打开的工作簿。
在通过用户表单获取名称后，当我尝试设置工作簿或与之交互时，我得到一个下标超出范围的错误。
我已确认工作簿已打开，并且ExcelAp对象已连接到正确的Excel实例。
Option Explicit
....
Public Sub TerminalOpen()
Dim WorkbookOpen As VbMsgBoxResult
Dim ExcelAp As Excel.Application
Dim FedExWkbk As Excel.Workbook
....
Else
浏览 4提问于2013-09-16得票数 1
我想打开一个工作簿，并且只显示一个特定的用户表单(并隐藏包含该用户表单的工作簿)。我知道如何在工作簿打开时打开表单，但是我仅隐藏此特定工作簿的尝试失败了。我需要用户能够工作和/或打开其他Excel窗口，同时使用用户表单。有什么建议吗？谢谢你，JP 我尝试了以下方法： myUserform.show vbModeless
Application.WindowState = xlMinimized 上面的方法似乎不被接受，如果其他Excel窗口当前处于打开状态，它会表现得很滑稽。我也尝试过： myUserform.show vbModeless
Application.Visible = Fal
浏览 17提问于2019-04-04得票数 0
我需要人帮我完成这个项目。
我已经创建了一个充当数据输入表单并运行各种报告的userform，它运行得很好。userform在Workbook_Open事件上打开，我需要隐藏工作簿，因为用户有打破它的习惯！
Application.visible = false可以工作，但是当用户打开其他工作簿并关闭所有工作簿时，该用户表单的父工作簿也会关闭或向用户隐藏该用户表单，我不知道如何防止它。
我已经尝试了许多API调用，但我总是遇到相同的问题，工作簿关闭或结束隐藏(包括表单)。
是否有人设法找到使用户表单看起来或充当独立应用程序的正确API?例如，在工作簿不可见的情况下打开，允许其他工作簿/程序出现
浏览 3提问于2016-06-17得票数 1
回答已采纳
我使用ParamArray打开多个文件。
如何将工作簿分配给数组以单独访问它们？例如，获取每个工作簿的最后一行。
错误是
下标超出范围
Sub main()
Call COMBINED_FILES("wk1.csv","wk2.xlsx","wk3.xls","wk4.csv")
End Sub
Sub COMBINED_FILES(ParamArray SOURCE_FILE_NAME_WITH_EXTENTION() As Variant)
Dim MASTER_WORK_BOOK_PATH As String
浏览 2提问于2019-12-16得票数 1
回答已采纳
1回答
使用VBA输入用户表单
、、、
因此，我有一个用户表单，它在一个名为"A“的工作簿中包含以下内容-一个输入框、一个下拉列表、一个提交按钮和关闭(X)按钮。
我想在新的工作簿"B“中编写一个VBA代码，它将在A中打开用户表单，使用B中的值填写输入框和下拉列表，然后单击表单上的”提交“按钮。这个是可能的吗？
注意:我不想更改工作簿A中用户窗体后面已经编写的代码。
浏览 3提问于2018-08-19得票数 0
1回答
我正在编写一个工作簿，该工作簿具有一组模板计算，在复制的工作簿的范围内多次使用。创建了一个表单对象，其中用户要为满足特定格式的每个计算集输入一个标识符。它通常遵循"aaa-##0.00“，其中'aaa‘是一个1到3个字母的字符串。然后，表单具有一个组合框，该组合框在激活时被清除并填充，其中包含客户提供的258种文本可能性(以减少可能的用户错误)，与其相邻的文本框用于输入数字。单击"execute“按钮时，它将标识用户表单中所需的选定计算，将模板工作表复制到工作簿的末尾，并在内容页的列表底部填充标识符信息。以下是相关代码：
Dim prefix As String
Dim
浏览 1提问于2015-07-14得票数 2
回答已采纳
在我的代码中，我希望提示用户输入自定义工作簿名称，然后将该工作簿保存在桌面上。由于某些原因，当我尝试将工作簿设置为FilePath时，会收到运行时错误9-下标超出范围。我在其他帖子上做了一些调查，我不确定为什么我仍然得到这个错误。有比我更好的方法吗/我的错误在哪里？
Dim WB As Workbook
Dim WS As Worksheet
Dim WorkbookName As String
Dim FilePath As String
WorkbookName = InputBox("What Do you Want to Name the
浏览 3提问于2021-03-24得票数 0
假设我有一个启用宏的Excel工作簿Q.xlsm，其中包含两个用户定义的模块A和B，每个模块都有一个名为xyz()的公共函数，其中A::xyz()返回STRING对象，B::xyz()返回INTEGER值。
Q.xlsm
`-- Modules
|-- A
| `-- Public Function xyz() As String
`-- B
`-- Public Function xyz() As Integer
Q1)允许我调用A::xyz()或B::xyz()__的工作表单元格公式作用域语法是什么？
另一种情况是两个启用宏的工作簿P.xlsm和
浏览 5提问于2017-05-09得票数 1
回答已采纳
我有一套写到数据库的用户表单(为了方便数据输入)。其中两个用户表单使用来自数据库的命名范围作为combobox rowsource：
Application.Workbooks.Open "path\TestDestination.xlsx"
Me.ContactCompany.RowSource = "test.CompanyList"
这很好用，但会打开数据库文件，即使我关闭了屏幕更新(?)。经过进一步搜索，似乎application.screenupdating = false就是我要找的。我将这些行更改为以下代码：
Application.Workb
浏览 2提问于2015-06-18得票数 1
我一直收到for循环的错误消息。它应该做的是将变量与给定工作表的每一行的第一列进行比较，如果匹配，则将其复制，然后将其粘贴到不同工作簿中的工作表中，但由于某种原因，我一直收到引用新工作簿/工作表的行的“运行时错误'9'：下标超出范围”。
到目前为止我的for循环：
For i = 1 To Sheets(1).UsedRange.Rows.Count
If Sheets(1).Cells(i, 1).Value Like dateRange & "*" Then
Sheets(1).Rows(i).Copy
Work
浏览 5提问于2017-12-07得票数 0
回答已采纳
我有两个启用宏的工作簿。一个用于收集多个用户的数据(宏为跟踪器)，另一个(跟踪器)只是存储数据的地方。“宏为跟踪器”将打开“跟踪器”，复制粘贴值的特定列，保存和关闭它。现在，我试图将跟踪器本身中的表范围调整到B列中的最后一行，但在这里仍然失败。
跟踪器包含有公式的列，并且只有一个时间戳代码。我试图添加一个私有子，它将在打开时运行，但是它不能工作，并给出了错误“下标超出范围”：
Dim ws As Worksheet
Dim ob As ListObject
Dim Lrow1 As Long
Lrow1 = Sheets("Main").Cells(Rows.Count, &
浏览 5提问于2022-09-08得票数 0
我有多个具有多个工作表的工作簿。我在newworkbook.All中编写了代码这些工作簿具有相同的格式。我需要对多个单元格的新工作簿进行求和.Please帮助我使用代码。我有一个下标超出范围错误。我没有任何编码经验。
Private Sub Intra_Group_Exp1()
Dim i As Integer
Dim fileName As String
Const FOLDER As String = "C:\Sushant_Files\"
On Error GoTo ErrorHandler
fileName = Dir(FOLD
浏览 1提问于2013-11-28得票数 1
我试图循环遍历工作簿列表，然后对每个工作簿复制并粘贴当前工作簿中工作表上的几个范围到主工作簿。
我在选择工作簿时遇到了问题，所以我可以使用它--我一直被下标超出范围，而且我认为我的文件路径是正确的。我尝试过扩展和不扩展，当我在我的计算机中搜索这个扩展时，它工作得很好。有什么想法吗？
我试图打开该文件(这是一个变体)，但这不起作用，因为我认为它没有被识别为工作簿。我试图打开该文件的名称，但这也不起作用。最后，我将一个范围命名为实际名称，并尝试执行工作簿(APath).Open，但这不起作用。我遗漏了什么？谢谢!
我把文件路径换成了假的。
Dim fso As FileSystemObject
D
浏览 0提问于2014-09-11得票数 1
回答已采纳
我在一段代码中遇到了一些困难，在这段代码中，我试图将名为“Petros20190118.xlsm”的打开工作簿中的一些数据复制到我运行宏的工作簿(Thisworkbook)。
单元格C4包含字符串"20190118“。
我得到的错误是“运行时错误'9'：下标超出范围”，行"Set x= Workbooks("petros“& filedate & ".xlsm")”
Sub Copy_Paste()
Dim x As Workbook
Dim filedate As String
filedat
浏览 6提问于2019-01-26得票数 0
1回答
Sub abrirotroworkbook()
Dim y As Workbook ' a donde se va a pegar
Dim vals As Variant
Set y = Workbooks.Open("C:Path\filename.xlsm")
'Now, copy what you want from x:
vals = Sheet12.Range("A3:B3").Value
'Now, paste to y worksheet:
y.Sheet
浏览 1提问于2018-11-10得票数 0
5回答
我试图通过for loop从另一个工作簿复制数据。我要做的是循环源文件中的每一行，如果说col(1) = "USA"，我将把该行放入一个array中。之后，我想将array粘贴到我的工作簿的Range上。然而，我一直遇到一个错误“下标超出范围”。我的二维数组看起来像[(1,2,3),(2,3,4)........].
下面是我的代码，调整数组大小的正确步骤是什么？
Dim dataArray()
Dim arrayIndex, endRow as Integer
endRow = Sheets("sourceSheets").Cells(Cells.Ro
浏览 4提问于2020-11-06得票数 0
回答已采纳
我正在尝试将数据从一个工作簿复制到另一个工作簿，但在完成复制后使Subcript超出范围。
代码如下：
Sub TransferCorps()
Dim wbSource As Workbook
Set wbSource = Workbooks.Open("H:\Carol Facklam\SL Entities.xlsx")
Sheets("Temp").Range("A1") = wbSource.Sheets("Sheet1").Range("A1")
wbSource.Close (True)
End
浏览 2提问于2017-05-15得票数 0
总之，工作簿的名称每周更改两次，我没有考虑另一种自动更改的方法，而是决定简单地显示一个输入框，在其中输入当前工作簿的名称，然后将其分配给：
Public fileName As String
fileName = InputBox("Type here the current workbook's name: ")
Dim ext As String
ext = ".xlsb"
Set wk = Excel.Workbooks(fileName & ext)
错误9:下标超出范围
浏览 0提问于2019-05-15得票数 1
回答已采纳
在这个世界上我是一个真正的新手，但我希望你能容忍我。:)
我正在处理一个工作簿，作为最终结果，它应该创建一个PDF概述。这应该包括工作簿中3张工作表中区域的信息。
从不同的线程中，我构建了下面插入的代码。每次我尝试运行它的时候，它都会给我一个错误，说“下标超出范围”。
如有任何反馈，我们将不胜感激！:=)
Sub CreatePDF()
Sheets("Sheet(1)").Select
Range("B1:K27").Select
Sheets("Sheet(7)").Select
Range("A4:
浏览 6提问于2017-06-28得票数 0
2回答
我的用户表单有这个特殊的问题。我在Module1中有这段代码：
Sub dostuff()
frmMyForm.Show False
End Sub
Sub auto() 'rename to Auto_Open in final version
Call dostuff
ActiveWorkbook.Close SaveChanges:=False
End Sub
问题是，如果我直接运行dostuff()，一切工作正常(即显示表单，用户可以在其中输入数据等)。但是，如果我运行auto()，表单frmMyForm就会在屏幕上闪烁并立即关闭，然后调用行Activ
浏览 0提问于2016-04-01得票数 0
2回答
我最近了解到了vba。
我用一些字段做了一个表单，这个字段函数是
单张名称
范围复制
量程膏
Private Sub CommandButton1_Click()
Dim barisawal As String
Dim sampaiawal As String
Dim tujuanawal As String
Dim tujuanakhir As String
barisawal = bariske.Text
barisakhir = TextBox2.Text
tujuanawal = TextBox3.Text
浏览 1提问于2015-01-22得票数 3
回答已采纳
1回答
我有一个VBA表单程序，它为两个不同的功能查询两个不同的工作簿。当我运行第一个函数时，它运行得很好，然后我运行第二个函数，它引用了一个后台工作簿，并且运行得很好-然后当我再次尝试运行第一个程序时，我得到了一个“下标超出范围”的错误。如何进一步指定此代码以返回到原始工作簿？
Worksheets("Modified Item Extract").Range("$A$1:$CL$293662").AutoFilter Field:=1, Criteria1:="" & PBH.Value
浏览 10提问于2016-07-22得票数 1
回答已采纳
我有一个带有筛选表的工作簿。我想要做的是打开另一个工作簿，查看那里是否有数据，如果没有从表中复制数据，则将其粘贴到那里并关闭该书。 我有下面的代码，我正在尝试，但就是不是正确的，谁可以尝试帮助？我不断得到下标超出范围的错误。 Sub Macro1()
'
' Macro1 Macro
Dim ws As Worksheet, csv As Workbook, cCount As Long, cName As String
Dim wb1 As Excel.Workbook
Set wb1 = Workbooks.Open("C:\Users
浏览 32提问于2021-05-08得票数 0
1回答
我试图编写一个vba代码来检查工作簿(A).worksheet(A).cells(row1，colum1) =工作簿(B).worksheet(b).cells(row2，colum2)，然后进行一些复制和进一步检查。但是遇到一个错误消息“下标超出范围”。有人能帮我一下吗？
以下是代码：
Sub check()
Dim row1, row2, row1start, row2start, row1end, row2end
Dim ws1 As Worksheet
ws1 = Excel.Workbooks("A.xlsx").Worksheets("
浏览 3提问于2014-06-16得票数 0
回答已采纳
2回答
我有三个工作表，我有数据。主工作表有一个名为Lists的工作表，它包含各种组合框列表。我试图使列表具有动态性，即能够添加条目，并让它们在用户下次进入用户表单的组合框时显示出来。
我有以下代码，只有在正确工作簿的Lists表中才能正常工作：
ThisWorkbook.sheets("Lists").Range("I1", Range("I" & Rows.Count).End(xlUp)).Name = "DriverList"
但是，如果我在另一个工作表或另一个工作簿中(都在同一个目录中)，则会得到一个
运行时错误#1
浏览 6提问于2015-04-10得票数 1
我的一个报表工作簿将数据拆分成单独的工作表，然后将这些工作表发送到各个办公室。问题是，我的报告工作簿都有大量的宏可供我使用，但我不希望其他人进入或使用。我希望它能继承一些东西，主要是worksheet_change和close事件(或者是宏)。基本上，每个单独的办公室都必须验证和记录任何需要更改的内容。我一直在悬而未决，如果哪种方法都可能的话，我会尝试使用哪种方法。我的选择是：
1)包括日期列，该日期列通过工作簿更改事件中的某些内容和用户表单提示来更新，以输入其名称作为关闭前事件的“最后编辑者”；或
2)包括一个带有命令按钮的宏，用户单击该命令按钮可以打开一个用户表单，该表单自动包含当前日期和
浏览 0提问于2011-10-12得票数 1
回答已采纳
1回答
我有一个在网络驱动器中共享的工作簿。我想要的是，只有5个人可以通过用户表单/或直接编辑文件，其余的只能看到。
一些背景：
我的文件是在一个网络文件中共享的，其中至少有15个用户通过用户表单并发输入数据，而当一个人保存该文件时，工作簿将自己合并。
现在我要
只有3个用户将通过用户表单和rest输入数据，所有用户都可以看到工作表，但不能编辑。
否则，工作表只可通过用户窗体对所有人可见，但其可编辑性除外。
问题是当我共享工作簿时，“保护”选项/对象变得不可访问，因此使其受到保护的问题在这里是无效的。
这就是我在sub Workbook_Open()中尝试过的
Private Sub
浏览 1提问于2019-02-24得票数 0
1回答
我在这件事上有点麻烦。我试图粘贴一个范围，这是根据从用户表单选择的变化，到一个新的工作簿。粘贴不起作用了。我得到了一些反馈，认为我需要消除活动单的使用，并指定特定的目标工作簿。如果它是一本新的工作簿，我不知道如何命名它。我也不知道如何将它保存到用户桌面上。
不管怎么说。代码在这里失败(第一行)：
Workbooks("Restaurant Manager -Master.xlsx").Worksheets(wsexport).Activate
Workbooks("Restaurant Manager -Master.xlsx").Worksheets(wsex
浏览 3提问于2017-12-29得票数 0
我有一个设置，多个用户在一个表单(“输入”工作簿)中输入数据，然后将数据复制到另一个工作簿(“数据”工作簿)。如果两个用户试图同时更新数据，我会得到一个错误。“数据”工作簿保持打开状态，从而阻止来自其他用户的更新选项。
我希望得到一个消息框：“工作簿正在使用中，请重试”，然后“数据”工作簿关闭，用户再次发送表单中的数据，但我似乎无法使其工作。
有人能给我一些如何解决这个问题的建议吗？
以下是来自“输入”工作簿的输入表单的代码：
Private Sub CmdButton_add_Click()
Dim wbk As Workbook
Set wbk = Workbooks.Open("
浏览 1提问于2014-04-23得票数 0
I是一个编译错误:没有定义Sub或函数。涉及到的代码是：
Private Sub ClearButton_Click()
Call UserForm_Initialize
End Sub
我创建了一个用户窗体，它与我在另一个工作簿上创建的用户窗体完全相同。两个工作簿之间的所有内容都是相同的(数据、格式、编码、用户表单、所有内容)，但我在一个工作簿上收到此错误，但在另一个工作簿上却不是。我将用户表单和代码复制到此工作簿中，因此没有输入错误。有谁知道为什么一个能用，而另一个不行？
我通读了其他类似的问答，但找不到适合这种情况的答案。
我向你脱帽致敬大师就在外面！
浏览 3提问于2016-10-13得票数 0
我正在建立一个在Excel中的应用程序，这将使用户能够从现有的基于excel的工具列表中进行选择。他们将选择特定的工具并点击“创建新的”按钮。单击此按钮后，系统将要求用户命名该文件。输入名称后，需要创建一个新的工作簿，并将其放置在该特定工具的项目文件夹中。我在代码中实现它时遇到了问题。我已经能够找到实现从活动工作簿复制模板的代码示例，但没有用于创建完全位于另一个excel文件中的内容的示例。
我认为我需要复制一份用户需要重新创建的工作簿，然后更改名称并将文件放在所需的位置。
我会发布一些代码来展示我到目前为止所做的事情，但我并没有真正取得进展。
谢谢,
浏览 0提问于2012-02-07得票数 9
回答已采纳
我开发了一个用户表单，它查询表单的工作簿以获取信息。我希望这个userform在其他工作簿中可用，这样用户在使用自己的工作簿时就可以在表单的工作簿中查找信息。
最初，我尝试在打开工作簿时使用此方法：
Application.visible = False
Userform.show无模式
然而，这将隐藏excel中的所有其他工作簿，这将使用户感到困惑。
然后，我尝试将userform工作簿保存为excel外接程序，并在带中创建了一个宏，该宏将通过show vbmodeless函数启动表单，但这也会拉出userform的工作簿。
我是VBA的新手；在这里，用户可以在他们的工作簿中工作，并且在不打
浏览 4提问于2014-12-16得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
