F_GetColMaxとF_GetRowMaxの呼び出し例
Dim objWB As Workbook
Dim objWS As Worksheet
Dim lngRowMax As Long
Dim lngColMax As Long
'--- Bookを開いてWorksheetの参照を取得する ---
Set objWB = Workbooks.Open("C:\Book1.xls")
Set objWS = objWB.Worjsheets("Sheet1")
'--- 最大行を取得する(基準となるKEY列が1列目の場合) ---
If F_GetRowMax(objWS, 1, lngRowMax, strMsg) = False
MsgBox strMsg
Else
MsgBox "最大行:" & Cstr(lngRowMax)
End If
'--- 最大行を取得する(基準となる列がない場合) ---
If F_GetRowMax(objWS, , lngRowMax, strMsg) = False
MsgBox strMsg
Else
MsgBox "最大行:" & Cstr(lngRowMax)
End If
'--- 最大列を取得する(基準となるKEY行が1列目の場合) ---
If F_GetColMax(objWS, 1, lngColMax, strMsg) = False
MsgBox strMsg
Else
MsgBox "最大列:" & Cstr(lngColMax)
End If
'--- 最大列を取得する(基準となる行がない場合) ---
If F_GetColMax(objWS, , lngColMax, strMsg) = False
MsgBox strMsg
Else
MsgBox "最大列:" & Cstr(lngColMax)
End If
'--- 後片付け ---
Set objWS = Nothing
objWB.Close SaveChanges:=False
Set objWB = Nothing