不打开工作簿取得其他工作簿数据

naima1105

各位,　
我最近买了罗刚君的那本事,　练习其中的一个项目　,可是我把那个文件夹拷贝到桌面上以后,运行后出现异常...具体见以下...

具体要求是:　不打开"人事报表"　工作薄,　在一个新的工作薄中读取人事报表中的sheet1 和sheet2 ....具体的程序如下,

但是我将文件夹拷贝出来以后,　再运行的话,　出现异常


Option Explicit
'声明一个带有四个参数的Sub过程
Sub 取值(路径 As String, 文件 As String, 工作表, 单元格 As String)
On Error Resume Next
Dim rng As Range
Set rng = ActiveCell.Resize(Range(单元格).Rows.Count, Range(单元格).Columns.Count)
    If Err <> 0 Then
    MsgBox "请调整区域,当前区域不足以存放引用区域的值" _
    & Chr(10) & "建议选择A1再执行程序", 64, "提示"
    Exit Sub
    End If
    '将目标区域复制到以当前表活动单元格为左上角的相同大小的区域中
  With ActiveCell.Resize(Range(单元格).Rows.Count, Range(单元格).Columns.Count)　　　　　　　　　'　帮忙解释一下好吗>>?
    '在指定区域输入公式，该公式引用指定路径下的工作表数据，可以是单元格也可以是区域
    .FormulaArray = "='" & 路径 & "\[" & 文件 & "]" & 工作表 & "'!" & 单元格　　　　　　　　　　　　'这句话能帮忙给我解释一下吗,我刚刚学,不是很理解??
    '将公式转换成值
    .Value = .Value
  End With
End Sub
Sub 不打开工作簿而获取其值1()
    '调用Sub过程,指定参数
  取值 ThisWorkbook.Path & "\人事资料", "人事报表.xls", "部门人员统计", "A1:B9"
End Sub
Sub 不打开工作簿而获取其值2()
    '调用Sub过程,指定参数
  取值 ThisWorkbook.Path & "\人事资料", "人事报表.xls", "人事资料", "A1:C42"
End Sub

stevefigo

那是因为你必须将两个文件放在同一文件夹(即同一层级)里

qinyu0745

做个记号112234