Excel VBA -为variant变量分配了范围值的下标超出范围
Excel VBA是一种可以通过编程自动化Excel操作的工具。在VBA中，可以使用Variant变量来存储各种不同类型的数据。
在给Variant变量分配范围值时，如果下标超出了范围，会导致运行时错误。为了避免这种情况发生，可以在分配范围值之前先检查范围的有效性。
下面是一个示例代码，演示了如何在VBA中分配范围值给Variant变量并处理可能出现的下标超出范围的情况：
Sub Example()
Dim rng As Range
Dim myArray() As Variant
Dim i As Long
' 设置范围对象
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A5")
' 检查范围的有效性
If rng.Rows.Count > 1 Then
' 范围是多行的情况
' 将范围值分配给数组
myArray = rng.Value
' 输出数组元素
For i = LBound(myArray, 1) To UBound(myArray, 1)
Debug.Print myArray(i, 1)
Next i
Else
' 范围只有一行的情况
' 分配范围值给Variant变量
myArray = rng.Value
' 输出Variant变量的值
Debug.Print myArray
End If
End Sub在上面的示例中，首先通过Set语句将一个范围对象赋给了rng变量，然后使用rng.Value将范围值赋给了Variant变量myArray。在分配范围值之前，使用rng.Rows.Count检查了范围的行数，如果大于1则表示范围是多行的情况，需要使用二维数组来存储范围值；如果只有一行，则直接将范围值分配给Variant变量。最后通过LBound和UBound函数来遍历输出数组元素，或者直接输出Variant变量的值。
需要注意的是，由于要避免提及特定的云计算品牌商，因此无法给出与腾讯云相关的产品和产品介绍链接。但是，腾讯云肯定会提供类似的云计算服务，可以在腾讯云的官方网站或者文档中查找相关的产品和服务信息。
相关·内容
当列A中的值为1时，我想在excel vba中添加一行，这是我写的代码，但这会返回“下标超出范围错误”。我做错了什么？
Sub InsertRow()
Dim Col As Variant
Dim BlankRows As Long
Dim LastRow As Long
Dim R As Long
Dim StartRow As Long
Application.ScreenUpdating = False
Col = "A"
StartRow = 1
LastRow = 20
浏览 4提问于2017-11-16得票数 0
1回答
我有一个不运行的宏。
此宏用于导出.xml文件。运行此宏时，会弹出“保存as..file”。我按OK键，会出现一个错误：
运行时错误9:下标超出范围
我看到了行错误：ActiveWorkbook.XmlMaps("Root_Map").Export URL:=newFileName
谢谢你的帮助。
Sub ExportXML()
'
' Export XML Macro exports the data that is in Excel to XML.
'
Const ForReading = 1
Const ForWriting = 2
Dim
浏览 6提问于2017-11-09得票数 0
1回答
我正在用VBA编写一个sub，它试图查看一个数组中的每个元素，并查看它是否显示在另一个数组中。第一个数组位于表A的A2:A325行，第二个数组的值超过250,000个。我一直收到运行时错误9:下标超出范围。我的代码如下
Private Sub ICD_DRG_Converter()
Dim StudyDRG() As Variant
Dim StudyICD10() As Variant
Dim element As String
Dim lLastRow, i, j, k As Long
Dim ICD10Code As String
Worksheets("Accepted
浏览 0提问于2017-03-24得票数 1
我在vba excel中有一个用户表单中的代码：
Dim TimeArray() As Variant
TimeArray = Worksheets("Data").Range("E1:E30").Value
MsgBox TimeArray(0)
错误是
“子脚本超出范围”
而我的范围(E1:E3)有数据。
浏览 0提问于2018-07-20得票数 2
1回答
超出范围的VBA码
、、、
谁能帮我弄清楚为什么这个代码erro是“下标超出范围”。(运行时错误9)
Dim arrayU() As Variant
Dim arrayX() As Variant
Dim arrayW() As Variant
Dim LrowU As Integer
Dim LrowX As Integer
Dim LrowW As Integer
Dim i As Integer
Dim j As Integer
Dim bed_in_use As Integer
For i = 3 To LrowX
For r = 3 To LrowW
For j = 3 To LrowX
浏览 4提问于2016-04-14得票数 0
回答已采纳
2回答
我只有两个简单的行和Excel VBA不断告诉我订阅超出范围...为什么？
Sub try_again()
'Dim res As Variant
Dim Per_Mnd As Variant
Dim Per_Mnd2 As Variant
Per_Mnd = Worksheets("Res_Lege").Range("F41:AD41")
Worksheets("Res_Kontor_over").Range("F6:AD6").Value = Per_Mnd
End Sub
浏览 0提问于2018-04-16得票数 0
2回答
我尝试将E列中的一个数字从1开始分组，结果应该如下所示：
Column
E I
1 1-52
. 54-56
. 58-59
.
52
54
55
56
58
59
我开始这样写：
Sub Group_Numbers()
Dim a As Variant, b As Variant
Dim i As Long, k As Long
Range("I1") = Range("E1")
k = 1
a = Range("E1", Range("E" & Rows.Count).End(xlUp
浏览 1提问于2021-11-22得票数 1
我在Excel VBA中使用以下代码复制Excel工作表进行计算：
Dim Store1Sheet() As Variant
Store1Sheet = Range("A1:D99")
请您建议如何将多个Excel表格复制到一个变体，例如StoreMultiSheet。非常感谢。
浏览 0提问于2012-08-29得票数 0
我使用以下命令创建了一个数组：
Dim PodList() As Variant
Dim i As Long
PodList = Range("A5:A19")
For i = LBound(PodList) To UBound(PodList)
Range("B4").Value = PodList(i)
Next
我在循环中的代码行不通。我正在尝试将PodList的第i个元素打印/粘贴到单元格B4中，但得到的结果是“下标超出范围”。
浏览 4提问于2015-04-13得票数 1
1回答
我修改了一个脚本，将一大块数据切成小块，以保持下标在范围内。
我假设要将数据导入电子表格，但它显示
Run-time error '9':
Subscript out of range
代码
Private Sub btnRefresh_Click()
Dim W As Worksheet: Set W = ActiveSheet
Dim Last As Integer: Last = W.Range("b2000").End(xlUp).Row
Dim Last1 As Integer
Dim Symbols As String
浏览 1提问于2014-03-15得票数 1
你能给我解释一下为什么这个简单的VBA代码在最后一行失败了(“下标超出范围”)：
Dim test() As Variant
ReDim test(0, 1)
test(0,0) = "key"
test(0,1) = 1
ReDim Preserve test(1, 1)
浏览 5提问于2011-10-21得票数 5
回答已采纳
2回答
我需要使用当前和上个月的"mmmm“格式，我找到的最好的解决方案是MonthName(Month(Date))。
然而，Excel总是给我：
编译错误:所需对象
把我逼疯了。我对VBA非常陌生，所以有人能解释我在这里做错了什么吗？
Sub test()
Dim CurrentMonth As Variant
Dim PreviousMonth As Variant
Set CurrentMonth = MonthName(Month(SetupSheet.Range("C9"))) '<-------HERE
Set
浏览 2提问于2015-03-22得票数 1
回答已采纳
1回答
我对vba脚本很陌生。我正试图在下面写一个函数，但没能成功地写出它。我真的很感激我能帮上什么忙。
守则是：
Option Explicit
Dim status As String
Sub StartModule()
Dim index As Integer
Dim result As String
Dim a As Integer
Dim Name As Variant
Range("D4").Value = 1
Range("D5").Value = 5
Range("D6").Value = 9
Range("D7")
浏览 1提问于2014-11-10得票数 1
3回答
强制垃圾收集
、、
在VBA/Excel2000中是否有强制垃圾回收的方法？
此问题涉及Excel中的宏语言。不使用VB .NET操作Excel。因此GC.collect()将不起作用
浏览 0提问于2009-11-21得票数 7
回答已采纳
2回答
目前，我有一个字符串范围，我希望能够进入一个数组。但是，我不确定它是否有效，每次我尝试对数组做任何操作时，我都会得到一个超出范围的错误下标。我尝试只执行一个Debug.Print，以查看值是否进入数组，但这会导致相同的错误。这是我目前所拥有的..。
UsedRow = ActiveWorkbook.Sheets(3).UsedRange.Rows.Count
Dim ProjectCounter As Long
Dim ArrRange As Range
'This determines the number of entries in the array (I know this
浏览 3提问于2015-06-30得票数 0
回答已采纳
2回答
vba代码是：
Sub D()
Dim a As String
Dim wb As Workbook
Dim file As Variant
Dim arr1() As Variant
Dim arr2() As Variant
Dim arr3() As Variant
Dim arr() As Variant
Dim arr4() As Variant
Dim arr5() As Variant
Dim arr6() As Variant
Dim
浏览 0提问于2016-03-25得票数 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
回答已采纳
1回答
嗨，我收到错误的下标超出范围，但我无法确定原因。
错误是用**标记的。
Function RemoveDups(aryValues) As Variant
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim aryMembers() As String
Dim epm As New EPMAddInAutomation
Dim aryMembersOnly() As String
Dim arr() As Variant
Dim strConn As String
ReDim aryM
浏览 5提问于2014-01-23得票数 0
回答已采纳
我最初有一个VBA函数，它返回一个二维变量数组：
Public Function SplitIntoCells(some_data As String) As Variant()
End Function
我使用Formula数组语法从另一个vba函数调用它：
Public Function MyWrapper() as Variant
MyWrapper = SplitIntoCells("somestring")
End Function
在Excel中，如果我选择了一个足够大的范围，然后执行以下操作：
=MyWrapper()
紧接着是CTRL+SHIFT+ENT
浏览 0提问于2011-10-13得票数 0
我是Excel中的VBA新手。我被要求制作一个分配系统，将客户分配给代理商。我有一个表，其中包含座席、等级和分配的总数。用户从用户表单中选择城市，并根据选择将客户分配给具有最小等级的座席。因此，如果用户选择伦敦系统，则搜索在伦敦级别最小座席，然后将该座席的分配数量增加1。
我试着写代码，但是遇到了运行时错误，我知道我在if then部分有很多错误。注释行我确实知道如何编写正确的代码来应用我想要的操作。
Sub DistSystem()
Dim count As Integer
Dim City As String
Dim minmum As Long
Dim i As Integer
Di
浏览 0提问于2014-06-04得票数 0
如何在VBA中用字符串填充数组并得到它的长度？
例如，两个单元格可能包含以下信息：
A1：“测试1”A2：“测试2”
Dim example As String
Dim arreglito() As String
example = Range("A2").Value
arreglito(0) = example
example= Range("A1").Value
arreglito(1)= example
MsgBox arreglito(0)
下标超出范围
Dim example As String
Dim arreglito() As V
浏览 1提问于2017-12-12得票数 0
回答已采纳
我是VBA编程语言的新手，所以我请求一些帮助。
我试图使用VBA在Excel中自动构建瀑布图。通常情况下，我会手动完成所有的工作，当数据发生变化时，通常需要很长一段时间。所以我决定用VBA来加速这个过程。
要创建瀑布图，我需要创建额外的数据系列。我试图通过使用数组和循环来实现它。
首先，我需要创建一个由初始数组(range)的绝对值组成的数组。但是我遇到了一个“超出范围的子脚本”错误，我不知道问题出在哪里。在Python中，我更了解它，我想，不会有这样的问题。
这是我的密码：
Sub CreateWaterfall()
'*******************************
浏览 6提问于2022-09-03得票数 3
回答已采纳
1回答
下面的代码给了我错误的下标of range.it在这一行给了我错误：
[ oSheet.Cells(i,5).Value = g(h) ]
我使用上面的代码来使用拆分函数来分离字符串。我在一个单元格中有以下excel数据：
Pankaj sharma;#234;#khushal verma;#786;#parul datta;#456;#
我想使用VBA将其转换为：
pankaj sharma
库沙尔·维尔马
Dim c
Dim d
Dim h
Set objExcel = CreateObject("Excel.Application")
Set objWork
浏览 2提问于2015-05-18得票数 0
我需要过滤一些列(字符串和数字)。我将var定义为变量，将sArray()定义为字符串。我在这里变成了错误类型13 (仅适用于sArray 4,5)：
ReDim sArray4(1 To UBound(var4)) & ReDim sArray5(1 To UBound(var5))
var4是exp“咨询和支持”的字符串/变体，但UBound( var4 )提供了一个不匹配我不理解var1，var2和var3也像var4 2D变体和ReDim sArray2(1 To UBound(var2))……工作正常。
感谢您提供的任何帮助:)
附言: VBA的新功能&这不是
浏览 0提问于2019-02-15得票数 0
我正在使用Excel 2013。在下面的代码片段中，VBA计算damage为40
Dim attack As Variant, defense As Variant, damage As Long
attack = 152 * 0.784637
defense = 133 * 0.784637
damage = Int(0.5 * attack / defense * 70)
如果数据类型更改为Double，则VBA为damage计算39
Dim attack As Double, defense As Double, damage As Long
attack = 152 * 0.78463
浏览 2提问于2017-01-30得票数 5
这一问题产生于以下问题：
假设我有一个向vba公开的dll的ATL/COM类的实例MyObj1，以及一个方法TheMethod of TheClass。
在VBA中，我有一个函数
Public Function func(x as Variant) as Variant
'... something
MyObj1.TheMethod( x )
'... other things
End Function
此函数用于excel，我将excel单元格的范围传递给它。在VBA中调试时，x是vba类型"Variant/Object/Range“的
浏览 2提问于2013-09-17得票数 1
回答已采纳
我正在尝试通过循环访问excel中的列来创建数组。如果一项已经在数组中，那么我希望代码跳到列的下一个元素。
例如，当第二次到达数组中的item1时，它将被跳过，因为它已经在那里了
这是我到目前为止所拥有的代码：
Sub productKey()
'
' productKey Macro
Dim celltxt As String
'each column element
Dim ListofProducts() As String
'declaration of array
For i = 1
浏览 3提问于2016-01-13得票数 0
我有一个接受数组的VBA函数，如果我向它传递一个引用(如A1:A10 )，它会工作得很好。它不接受“公式”参数(如A1:A10+1或A1:A10^2 )，结果单元格包含#VALUE。
许多excel函数都支持这一点，例如linest(.)它可以编写以下公式以获得第四顺序，而不必手动列出X参数的四列。
=LINEST( B1:B10, A1:A10^{1,2,3} )
我的职能声明是：
Function FFT(ByRef A) As Variant
我期待Excel计算表达式并将结果传递给函数。Excel不可能做到这一点吗？
浏览 1提问于2016-03-30得票数 3
回答已采纳
所有工作表都包含在同一个工作簿中。Sheet1将作为合并的摘要表。除了Sheet1之外，还有一个动态的工作表数量。在Sheet1之后，我从每个源数据表中获得了一组数据：
C54:H56 (a 3x6 grid of cells)
需要将这些数据合并到摘要表( 3x6 sheet，Sheet1)上的一个单独的the区域中。我指的不仅仅是复制数据，而是Excel中的实际合并函数。
我目前收到的错误是：
运行时错误“1004”：无法添加重复的源引用
我尝试过许多不同的变体，并且总是以语法、下标超出范围问题或当前的问题结束，如上所述。
当我检查ConsolidationArray的内容时，将捕
浏览 2提问于2016-08-25得票数 0
回答已采纳
1回答
目标:打开任何工作簿并运行一个宏，该宏将切换出所有名称，并将其替换为工作簿"NameToID“中引用的ID。
工作簿有两个列，一个是名称，另一个是它们相关的ID。工作簿、工作表和表具有相同的标签"NameToID“。
宏存储在我的个人文件夹中，所以我打开的每个文档都可以访问它。现在，我打开了我的NameToID工作簿，然后在我想要运行宏的地方打开工作簿--但是当我运行它时，我会得到一个运行时错误9 "Subscript超出范围“错误。我想不出怎么修好它。是否需要将NameToID工作簿存储在个人文件夹中，以便始终可以访问？任何帮助都是非常感谢的。
Sub Multi_F
浏览 0提问于2017-11-03得票数 0
(Excel) VBA是否区分：
Dim Ghadafi as Variant
和
Dim Ghadafi() as Variant
浏览 1提问于2011-10-08得票数 1
回答已采纳
2回答
我仍然试图在VBA数组中加载excel数据，我希望将其用作单个块，以便在SQL/数据库中发送。不管怎样，我对这里的循环结构有一些问题。我收到错误9:下标超出范围： Option Explicit
Public Sub CommandButton1_Click()
Dim myArray() As Variant
Dim xrow As Long, xcol As Long
Dim rowIndex As Long, colIndex As Long, i As Long, j As Long
rowIndex = 0
colIndex = 0
xrow = 1
xcol = 1
浏览 16提问于2020-06-15得票数 1
回答已采纳
3回答
我是excel vba的新手，我似乎不能用vbArrays解决这个问题。我在vba中创建了函数cumsum，只是为了让我的生活更轻松。但是，我想让代码变得灵活，这样我就可以同时传入函数和范围的两种变体。在我的代码中，如果我正在传递一个范围，当我添加行vec=vec.value时，它工作得很好，但是如果我调用函数并传入一个非范围类型，它就不能工作。我注意到的是，如果我的代码中没有vec=vec.value行，我传入了一个范围，它的维数为0，我通过编写自己的函数进行检查。有人能给我解释一下如何解决这个问题吗？谢谢。
Public Function cumsum(vec As Variant) As
浏览 0提问于2012-07-20得票数 1
回答已采纳
我需要将一些Excel文件导入Access数据库。我知道如何在VBA中编写导入函数，但它不能像我预期的那样工作，因为Excel中的一些合并单元格给我带来了麻烦。
例如，在Excel电子表格中
导入Access表时，逐行导入。因此，第一行应该是1-pencil 90，这是正确的，但由于合并的单元格，第二行和第三行是空的。结果是
No|Product|Storage
1 | pencil|90
| |23
| |41
但预期结果应该是：
No|Product|Storage
1 | pencil|90
1 | pencil|23
1 | pencil|41
浏览 0提问于2013-07-18得票数 1
回答已采纳
2回答
我在excel电子表格中有一个数字数组，我试图使用用户定义的vba函数对这些数字进行排序(所有数字都>60)，并且我希望将结果作为一个范围返回到同一个excel表中。
当我运行这个函数时，我会得到一个值错误，我不太确定这个错误是从哪里来的，因为我是VBA.I的新手，我非常希望能在解决这个问题方面提供一些指导。
数组Excel
Column A
200
50
23
789
Function trial(number As Range)
Dim cell As Range
Dim savearray() As Variant
Dim d As Long
F
浏览 0提问于2019-04-08得票数 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
回答已采纳
2回答
我正在开发一个在工作中使用的解析器。基本上，我有一个满是数据行的excel文档，我需要解析这些数据并将其存储到一个多维数组中进行处理。
以下是我到目前为止拥有的代码：
Dim a
Dim iRows As Long
Dim i As Integer
Dim aArray() As Variant
a = Array(2,3,4,5,6,9,10,14,19,21,23,25,29,38)
iRows = ActiveWorkbook.Sheets(1).UsedRange.Rows.Count
ReDim aArray(iRows, UBound(a))
For i = 2 To
浏览 2提问于2012-05-08得票数 0
回答已采纳
3回答
ATL/COM对象的链接方法
、、、、
在c++中，我们可以通过设计返回*this的方法来轻松地设置类中的方法链接。这在ATL/COM设置中是可行的吗？假设我有一个简单的ATL类MyOBj。我想知道在这种情况下是否可以进行链接，如果可以，那么支持链接的方法的idl签名是什么？简单的例子将不胜感激！(实际上，我的方法是从VBA中调用的excel，我希望在VBA上下文中有链接，就像我们已经为标准的VBA方法进行了链接一样)。
Thx很多
R
编辑：
在.idl文件中，我有以下内容：
interface IRateModel : IDispatch{
[id(1), helpstring("SETRATEMODEL"
浏览 3提问于2013-09-14得票数 0
回答已采纳
我正在Excel中制作一个折线图(图表)，将几个数据序列绘制到同一图表上。
我需要创建一个宏/VBA解决方案，可以通过按下按钮(或勾号框等)打开/关闭这些系列的可见性
类似于此图(通过excel菜单系统手动完成)
上的所有成员变量/方法。
但运气不是很好。
我尝试过像这样的小玩意
Charts("Chart1").SeriesCollection(1)
和
Worksheets("Graphical Data").ChartObjects(1)
但是我既不能得到chart对象(我得到一个下标超出范围的错误)，也不能找到任何允许我打开/关闭单个序列可见
浏览 5提问于2015-04-17得票数 9
回答已采纳
我在Excel VBA中创建了一个公式，用于从逗号分隔的单元格中解析“部分”列表。在另一个工作表中查找具有该部件名称的单元格，然后使用找到的单元格的地址从同一行不同列中获取该部件的成本。我已经为此工作了几个小时，并彻底阅读了网上的文档，但仍停留在这里。
下面是有问题的代码：
Public Function PartCost() As Integer
Dim PList() As String
PList = Split(Cells(Application.Caller.Row, 4).Value, ", ")
Dim element As Varian
浏览 0提问于2018-01-30得票数 2
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回答
我试图将一个工作表的单元格A13:E300分配给另一个工作表，忽略了D列。
下面的代码无法复制列E；Union函数似乎有问题，因为不是该列的值，而是将#N/A分配到隐藏表上的该列中。怎么啦？
Private Sub AddTemplate_Click()
Dim Exposed_sheet As Worksheet, Hidden_sheet As Worksheet, MyPassword As String
Set Exposed_sheet = Sheets("Exposed Sheet")
Set Hidden_sheet = Sheets("Hidde
浏览 2提问于2017-08-29得票数 0
回答已采纳
我在名称管理器中创建了一个名称。如何在VBA代码中为我的函数传递name "MyRange1“参数？
在Excel中：
=MyFunction(MyRange1)
MyFunction是：
Public Function MyFunction(nameDefined As Variant) As String
'How get value of nameDefined ??
End Function
浏览 3提问于2016-09-16得票数 0
请帮助我创建VBA函数，如excel，索引，匹配函数。以下是我的excel功能：
=IF(INDEX(Grid!$B$3:$G$6,MATCH('Sal-Data'!$A2,Grid!$A$3:$A$6,0),MATCH('Sal-Data'!$B2+1,Grid!$B$2:$G$2,0))=0,$B2,$B2+1)
我在这里添加了VBA代码，这是不起作用的，我想从网格表中获得下一个级别的结果。例如，如果Emp "b“的表”Sal-data“中的当前网格为2，则新网格为3，而"b”网格3的“网格”表中的值为0(0)，则不应增加网格。在这种情况下，
浏览 2提问于2017-12-20得票数 0
回答已采纳
我有一个组合框，我正试图使用excel工作表中的范围填充。提取列的最后一行，然后将该范围内的所有值添加到组合框中。问题是，如果只有一个条目，Excel将只从数组中提取单个值作为字符串，而不是从变体数组中提取。
这会导致类型不匹配，因为它试图将值作为字符串赋值给变体数组。是否有一种方法显式地请求变体数组，而不是字符串值？
这是原始代码：
Dim hvVals() As Variant
lastRow = getLastRowInCol(Sheets("MySheet"), "B")
hvVals = Sheets("MySheet").Range(
浏览 4提问于2016-08-18得票数 0
回答已采纳
我已经打开了一个工作簿，但正在从另一个工作簿运行宏。我想使用第一个工作簿的名称激活它。
代码：
FileName = input_path_1 & input_file_1
Workbooks(FileName.xls).Activate
当我尝试这样做时，它给我“下标超出范围”的错误。我该怎么解决呢？
浏览 0提问于2015-03-17得票数 6
回答已采纳
我试图从动态数组中调用一个值，以便稍后在VBA函数中使用，但如果不抛出一个数组，则无法调用它。这里怎么了？
我试图更改数组类型和调用方法，但错误不断出现。
Dim lastColumn As Integer
Dim defaultWidth As Double
defaultWidth = 8.11
lastColumn = 30
'Declare array for column width
Dim widthArray() As Double
ReDim widthArray(lastColumn)
For c = 1 To lastColumn
widthArra
浏览 2提问于2019-05-17得票数 1
回答已采纳
1回答
我是excel中的VBA新手，我编写代码将单元格从工作表复制到数组中。当我运行时，会出现运行时错误。我不知道出了什么问题。
Sub DistSystem()
Dim count As Integer
Dim i As Integer
Dim array_rank() As Variant
Dim array_city() As Variant
Dim array_assign() As Variant
count = Sheets("111").Range("Y2").Value
For i = 0 To c
浏览 0提问于2014-06-04得票数 1
回答已采纳
2回答
我熟悉java编程、抛出和捕获错误，也不确定这是否是excel VBA中的一个功能。我想做下面的捕捉，但不确定它是否仍然工作。
If Workbooks("Name").Worksheets("Sheet1") Is Nothing Then
Err.Raise vbObjectError + 9, , "Destination Spreadsheet not Open. Please Open"
End If
Set wsDest = Workbooks("Name").Worksheets("
浏览 4提问于2022-07-26得票数 0
回答已采纳
我正在尝试遍历一个二维数组。1d将始终是25，2d将具有不同的量。通常，第一维的成员将是空的，这是isarray(已发送)代码的要点。我在for j=1 to ubound(sent,2)部分得到了一个超出范围的下标
For i = 1 To 25
If IsArray(sent(i)) Then
For j = 1 To UBound(sent, 2)
If concat_multi = "" Then
concat_multi = sent(i, j)
Else
浏览 0提问于2014-10-14得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
