下标越界

ddz79101

老师！有2个工作簿，我想导入其中的数据工作簿中指定工作表，到收集工作簿中仍为3表。但现有代码显示下标越界，请老师帮忙看看。谢谢

王渐明

Option Explicit

Sub Macro1()
    Dim MyFile, sh, wb As Workbook
    Dim arr, i, ir
    MyFile = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls),*.xls", Title:="选择Excel文件")
    If TypeName(MyFile) = "Boolean" Then Exit Sub
   
    Cells.Clear
    If MyFile = ThisWorkbook.FullName Then
        MsgBox "不能选择本工作簿，请重新选择！", vbInformation
        Exit Sub
    End If
    Set wb = GetObject(MyFile)
    arr = Array("1", "2", "3", "4")
    For i = 0 To UBound(arr)
      Set sh = wb.Sheets(arr(i))
      ir = ThisWorkbook.ActiveSheet.[a65536].End(xlUp).Row
      sh.UsedRange.Copy ThisWorkbook.ActiveSheet.Range("a" & ir + 1)
    Next i
   
   
    wb.Close True
    MsgBox "ok"
End Sub

fanyoulin

我看到的错误不是下标越界，而是这句：sh = wb.Sheets(Array("1", "2", "3", "4"))，不能这么用吧？

ddz79101

王渐明 发表于 2024-8-29 13:50
Option Explicit

Sub Macro1()

谢谢老师！我想导入的数据簿中3个表，在收集簿中仍是3个表，不需合并1表。可以再帮忙修改吗？谢谢

ddz79101

fanyoulin 发表于 2024-8-29 13:53
我看到的错误不是下标越界，而是这句：sh = wb.Sheets(Array("1", "2", "3", "4"))，不能这么用吧？

老师！我也感觉是此句代码出问题了，员工如何修改？

lsc900707

ddz79101 发表于 2024-8-29 15:17
谢谢老师！我想导入的数据簿中3个表，在收集簿中仍是3个表，不需合并1表。可以再帮忙修改吗？谢谢

参考测试附件：

lsc900707

1. Sub Macro1()
   
2.     MyFile = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls),*.xls", Title:="选择Excel文件")
   
3.     If TypeName(MyFile) = "Boolean" Then Exit Sub
   
4.     Cells.Clear
   
5.     If MyFile = ThisWorkbook.FullName Then
   
6.         MsgBox "不能选择本工作簿，请重新选择！", vbInformation
   
7.         Exit Sub
   
8.     End If
   
9.     Set wb = GetObject(MyFile)
   
10.     For i = 4 To wb.Sheets.Count
    
11.          r = ThisWorkbook.ActiveSheet.Range("a65536").End(xlUp).Row + 1
    
12.          wb.Sheets(i).UsedRange.Copy ThisWorkbook.ActiveSheet.Range("a" & r)
    
13.     Next
    
14.     wb.Close True
    
15.     MsgBox "ok"
    
16. End Sub

复制代码

ddz79101

lsc900707 发表于 2024-8-29 16:25
参考测试附件：

谢谢老师！我想导入的数据簿中3个表，在收集簿中仍为3个表，不合成1表。可以再帮忙修改吗？谢谢

ddz79101

lsc900707 发表于 2024-8-29 16:26

老师！我的意思是移动工作簿中的指定三表表到收集表中，不合并为1表

ddz79101

老师！怎么修改喃？