excel vba 报错：下标越界？看看我的代码哪里问题 5
PublicSubSumData()'声明Excel相关DimxlAppAsExcel.ApplicationDimoldBookAsExcel.WorkbookSet这...
Public Sub SumData() '声明Excel相关 Dim xlApp As Excel.Application Dim oldBook As Excel.Workbook Set
这一段代码，当读取到Set oldBook = xlApp.Workbooks.Open(Sheet1.Cells(7, 10).Value)上的路径时，会提示下标越界？是怎么回事？ 展开
这一段代码，当读取到Set oldBook = xlApp.Workbooks.Open(Sheet1.Cells(7, 10).Value)上的路径时，会提示下标越界？是怎么回事？ 展开
1个回答
展开全部
你的是工作本打开
一般Set oldBook =xlApp.Workbooks.Open(”工作表路径与名称“)
然后工作表要可见
mxlApp.Visible = True
然后要具体选中格子，一般是
RANGE（"B10"）.select
另外，还可能是XLAPP 这个名字被你在先前的代码里也用过
尽量使用过后，SET XLAPP= NOTHING
行的话给个奖励
一般Set oldBook =xlApp.Workbooks.Open(”工作表路径与名称“)
然后工作表要可见
mxlApp.Visible = True
然后要具体选中格子，一般是
RANGE（"B10"）.select
另外，还可能是XLAPP 这个名字被你在先前的代码里也用过
尽量使用过后，SET XLAPP= NOTHING
行的话给个奖励
更多追问追答
追问
都不是，我加上了之后还是报下标越界，而且是，在我的电脑上没有问题，但在有的电脑上会报错
追答
Sheet1 这个啊，很多很多的EXCEL 都有这一页，很容易导致下表越界
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
