VBA 怎样判断一个对象变量是否是指定类的一个实例

来源：百度知道 编辑：UC知道 时间：2024/06/09 12:06:08
比如
Dim rng as Excel.Range
用什么函数或者语句来判断rng是否是一个Excel.Range类的实例呢？

typename(变量名）

举例：
'首先在 工程中引用Excel
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格赋值
Print TypeName(objSheet), TypeName(objExcel)

'将会打印 WorkSheet 和Application

objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

没怎么看明白
定义变量没什么好判断的吧
你定义什么类型就是什么类型

dim rng as range
这样就可以了