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
看看这个是不是你要的。
Function myISREF(addrstr As String) As Boolean
On Error GoTo err_h
Dim o
Set o = Range(addrstr)
myISREF = True
Exit Function
err_h:
myISREF = False
End Function
这个没有问题的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024