sub copy()
with GetObject(ThisWorkbook &"\0825计算.xls")
.Sheets("sheet1").Range("B7").Value.Copy
thisworkbook.Sheets("sheet4").Range("G15")
.Close
end sub
描述:从“计算”工作簿复制单元格“B7”里的数值,粘贴到另一个工作簿中表“Sheet4”的一个单元格“G15”,出现下标越界问题,求大神帮忙解决。会是与工作簿有关吗?
è¿ä¸ªçæ¡æçè¿äºï¼ä¸æ¯ä½ æ说çé£æ ·ï¼è¿æ¯è°¢è°¢äº
vba在excel中的应用中,下标越界怎么回事
下标越界错误大概有以下的原因和解决方法:1.引用了不存在的数组元素。2.下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。
为什么在excel中用vba时会出现下标越界的提示?
Excel中vba提示下标超界,说明对象不存在或者数组元素不存在。举个简单的例子:工作表中没有"1月"这个工作表,却用Sheets("1月");数组定义的是arr(1 to 10),却用Arr(11),都会出现下标越界的提示。简单的理解:下标越界就是引用超出了所在的范围。当我们在excel的VBA中输入下面代码,运行,就会出...
VBA代码中为何会出现下标越界错误,如何解决?
当我们在VBA编程中遇到那个令人懊恼的错误代码9——下标越界时,可能是在数据操作中不小心越界了。首先,让我们从创建一个按钮开始,它将触发一个宏,这个宏的宿主工作表被命名为“图表”。在VBA编辑器的舞台上,我们准备了一段关键的代码,它的初衷是优雅地隐藏那些空白区域所在的整列,仿佛在数据海洋...
Excel VBA下标越界的原因分析与解决方法
下标越界不存在对应的工作薄、工作表名称是否写正确。当再次遇到VBA报下标越界错误时,就不会惊慌了,至少大概知道其原因了。我们再参照上面的思路去修改代码就可以解决下标越界的错误。
VBA读取另外工作簿中的数据时下标越界
读取其它工作簿表格中的数据时,提示下标越界,程序如下: Private Sub CommandButton1_Click() Dim File As String Dim FiltIndex As Integer Dim Title As String Dim FileName As Variant Dim rgA1 As String Dim Wrbk As Workbook Filt = "Exce... 展开 famous...
VBA调用单元格内容后出现说是下标越界,不知道哪里的问题,请各位高手给...
上述程序似可用下面一条语句代替 If Abs(Sheets("sheet4").Cells(36,2).Value) >0.1 then Sheets("sheet4").Cells(24,2).Value = Sheets("sheet4").Cells(36,2).Value + 1000
...数据一键保存到别一个工作表中,代码出现下标越界错误,求教
不知道这个出错是否与WPS有关。。。代码有点小错误 以下按“记账”的表格结构改了一下 改过的地方都注释了 Sub jizhang()Dim WS1 As Worksheet, WS2 As WorksheetDim Rnum1, Rnum2Set WS1 = Worksheets("尚品美居销售单")Set WS2 = Worksheets("记账")Rnum2 = WS2.Range("b65536").End(...
vba下标越界错误怎么解决?
1、首先在SHEET表内设置好按钮,并指定到宏,(宏所在SHEET的名称为“图表”)。2、在VBA编辑器内输入如下的代码。(此代码的含义为遍布区域内的单元格,如果为空格,则隐藏空格所在的整列。3、在运行过程中出现了问题,下标越界,无法运行。4、查看问题原因为,在代码中的“SHEET1”工作表根本没有,...
...vba编程把工作薄作为新工作表文件重新保存,老是提示我下标越界...
Excel提示下标越界是VBA程序运行的一个错误提示,原因有以下几个:1、引用了不存在的数组元素:下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。2、声明数组时没有指定元素的数目:引用了不存在的集合成员。3、使用速写形式的下标,结果指定了错误的元素。4、引用或操作的工作薄、...
vba代码中,提示下标越界,哪里越界,如何解决?
按我的理解 Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)应该改为 sht.Copy wk.Sheets(1)然后把 k=k+1 这行删掉即可