如果我想从另一个工作簿中引用，怎样修改

白咏鸿

Sub ChuKuDan_JiaZai(chaDanHao As String)
If getQuan("AE") = False Then
Exit Sub
End If
If chaDanHao = "" Then
MsgBox "单据号不能为空！", 48, "系统提示"
Sheets("ChuKuJi").Range("J3").Select
Exit Sub
End If
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("ChuKuJi").Unprotect
Dim i1 As Long
Dim dRow As Long
Dim i As Long
Dim dRng
If Sheets("ZiLiao").AutoFilterMode = True Then Sheets("ZiLiao").AutoFilterMode = False
If Sheets("Data").AutoFilterMode = True Then Sheets("Data").AutoFilterMode = False
dRow = Sheets("Data").Range("A" & Sheets("Data").Rows.Count).End(xlUp).Row
dRng = Sheets("Data").Range("A2:S" & dRow)
Sheets("ChuKuJi").Range("B6:K265").ClearContents
i1 = 6
Dim isYouDan As Boolean
isYouDan = False
zaiChaXun = True
For i = 1 To dRow - 1
If (UCase(Trim(CStr(dRng(i, 15)))) = UCase(chaDanHao)) And (Trim(CStr(dRng(i, 10))) = "出库单") Then
Sheets("ChuKuJi").Rows(i1).EntireRow.Hidden = False
Sheets("ChuKuJi").Rows(i1 + 1).EntireRow.Hidden = False
Sheets("ChuKuJi").Cells(i1, 3) = dRng(i, 1)
Sheets("ChuKuJi").Cells(i1, 4) = dRng(i, 2)
Sheets("ChuKuJi").Cells(i1, 5) = dRng(i, 3)
Sheets("ChuKuJi").Cells(i1, 6) = dRng(i, 4)
Sheets("ChuKuJi").Cells(i1, 7) = dRng(i, 5)
Sheets("ChuKuJi").Cells(i1, 8) = dRng(i, 6)
Sheets("ChuKuJi").Cells(i1, 9) = dRng(i, 7)
Sheets("ChuKuJi").Cells(i1, 10) = dRng(i, 8)
Sheets("ChuKuJi").Cells(i1, 11) = dRng(i, 16)
Sheets("ChuKuJi").Cells(i1, 2) = dRng(i, 17)
Sheets("ChuKuJi").Range("J4") = CStr(dRng(i, 11))
Sheets("ChuKuJi").Range("C3") = dRng(i, 12)
Sheets("ChuKuJi").Range("F4") = dRng(i, 9)
Sheets("ChuKuJi").Range("C4") = dRng(i, 18)
Sheets("ChuKuJi").Range("F3") = dRng(i, 19)
Sheets("ChuKuJi").Range("E267") = dRng(i, 13)
Sheets("ChuKuJi").Range("K267") = dRng(i, 14)
Sheets("ChuKuJi").Range("J3") = dRng(i, 15)
Sheets("SysInfo").Range("C2").value = "1"
Sheets("SysInfo").Range("D2").value = dRng(i, 15)
isYouDan = True
i1 = i1 + 1
End If
Next i
zaiChaXun = False
Set dRng = Nothing
ActiveWindow.ScrollRow = 1
Sheets("ChuKuJi").Range("C4").Select
Sheets("ChuKuJi").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
If isYouDan = False Then
MsgBox "您查询的单据 " & chaDanHao & " 在数据库中不存在！", 64, "系统提示"
End If
End Sub