GetObject函数

With GetObject(mypath)
Workbooks(mysheet).Activate
If oTypeColumn = 1 Then
arr = oDataTransArrRY2(oSheet, oCellLocation, oColumn)
ElseIf oTypeColumn = 2 Then
arr = oDataTransArrRYH1(oSheet, oCellLocation, oColumn)
ElseIf oTypeColumn = 3 Then
arr = oDataTransArrRYS1(oSheet, oCellLocation, oColumn)
End If
.Close False
End With

标签：arr,End,函数,oSheet,oColumn,GetObject,oTypeColumn,oCellLocation
来源： https://www.cnblogs.com/lidapengwww/p/12641006.html