不打开工作薄获取其中指定区域数据

kangyunde

Sub 记分表格女子报名信息导入()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Application.ScreenUpdating = False '禁止屏幕刷新
    Application.DisplayAlerts = False '屏蔽所有的提示。
    With GetObject("D:\运动会数据\信息录入.xlsm")
        .Sheets("报名信息").[BE4:BU65536].Copy
         sh.Range("A1").PasteSpecial xlPasteValues
        .Close False
    End With
    MsgBox "成绩汇总备份数据已导入"
    Range("B6").Select
End Sub


将[BE4:BU65536] 更改为 Range("BE4:BU" & Cells(Cells.Rows.Count, 38).End(xlUp).Row).Select  出错
如果38列数据不为空则复制BE4:BU这个区域，选择65536区域太大

excel玉米

Cells(Cells.Rows.Count, 38).End(xlUp).Row).Select
这里的cells前面要加指定工作表，如.sheets("报名信息")

gwjkkkkk

1.        With .Sheets("报名信息")
   
2.             Range("BE4:BU" & .Cells(.Rows.Count, 38).End(xlUp).Row).Copy
   
3.         End With
   
4.          sh.Range("A1").PasteSpecial xlPasteValues
   
5.         .Close False

复制代码

ykcbf1100

改成这样试试：with .Sheets("报名信息")
                         .Range("BE4:BU" & .Cells(Cells.Rows.Count, 38).End(xlUp).Row).Copy
                         sh.Range("A1").PasteSpecial xlPasteValues
                      end with

kangyunde

ykcbf1100 发表于 2024-3-9 20:57
改成这样试试：with .Sheets("报名信息")
                         .Range("BE4:BU" & .Cells(Cells.Rows ...

谢谢，正是这样的效果

excel玉米

Sub 记分表格女子报名信息导入()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Application.ScreenUpdating = False '禁止屏幕刷新
    Application.DisplayAlerts = False '屏蔽所有的提示。
    With GetObject("D:\运动会数据\信息录入.xlsm")
          with .Sheets("报名信息")
                 .Range("BE4:BU" & .Cells(Cells.Rows.Count, 38).End(xlUp).Row).Copy
                sh.Range("A1").PasteSpecial xlPasteValues
         End With      
        .Close False
    End With
    MsgBox "成绩汇总备份数据已导入"
    sh.Range("B6").Select
    Application.ScreenUpdating = True        '开启屏幕刷新   不开启的话可能会影响到后续使用
    Application.DisplayAlerts = True            '开启所有的提示。  不开启的话可能会影响到后续使用
End Sub