阵列范围超出定义范围怎么处理啊

heqiao12345 2019-08-25 03:04:02
Sub LoadExcelData()     Dim wkbk As Workbook  '定义一个工作薄     Dim myFileName As String '定义要读取的文件路径     Dim dataRow  As Integer '定义数据的行     Dim dataColumn As Integer '定义数据的列     Dim rgRC As String '读取的单元格内容(dataRow,dataColumn)     Dim arr(3 To 10, 1 To 9) As String '定义一个二维数组    ' myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsx), *.xls")  '浏览文件,如XX公司17年XX表.xls     If myFileName = "False" Then  '如果按取消那么弹出对话框         'MsgBox "请选择文件!", vbInformation, "取消"     Else     Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件            wkbk.Activate '激活打开工作簿                          For dataRow = 3 To 10  '设置行的范围             For dataColumn = 1 To 9   '设置列的范围                 Sheets("sheet1").Activate                 rgRC = Cells(dataRow, dataColumn)   '取得               arr(dataRow, dataColumn) = Cells(dataRow, dataColumn)            Next dataColumn         Next dataRow                  Sheets("Sheet3").Activate         wkbk.Close False '关闭工作薄         For dataRow = 3 To 10             For dataColumn = 1 To 9                Cells(dataRow, dataColumn) = arr(dataRow, dataColumn)             Next dataColumn         Next dataRow            MsgBox "数据导入成功!"       End If End Sub
...全文
591 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
米老鼠yeah 2019-09-17
  • 打赏
  • 举报
回复
没有报错呀,数据能正常导入
VB业余爱好者 2019-08-26
  • 打赏
  • 举报
回复
请补充描述问题,最好能把问题报错的位置指出来

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧