码迷,mamicode.com
首页 > 其他好文 > 详细

GetObject函数

时间:2020-04-06 11:26:12      阅读:67      评论:0      收藏:0      [点我收藏+]

标签:oca   函数   sheet   close   with   elseif   pat   tran   vat   

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

GetObject函数

标签:oca   函数   sheet   close   with   elseif   pat   tran   vat   

原文地址:https://www.cnblogs.com/lidapengwww/p/12641006.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!