Private Sub TextBox1_Change()
TextBox2.Text = ""
On Error Resume Next
TextBox2.Text = ""
Application.Documents.Item(CInt(TextBox1.Text)).Name
If TextBox1.Text "" And TextBox2.Text = "" Then
MsgBox "document number" & TextBox1.Text&
vbCritical , "find name of drawing-error"
TextBox1.Text = ""
End If
End Sub
求助!
各位高手!小弟在学习VBA时,按照书上的程序输入.结果程序运行时系统提示;"编译错误!属性的使用无效!"
错误处在代码中红色NAME部分.请教原因!是否因为该属性为只读属性.
Private Sub TextBox1_Change()
Dim Name As ( )
TextBox2.Text = ""
On Error Resume Next
TextBox2.Text = ""
Application.Documents.Item(CInt(TextBox1.Text)).Name
If TextBox1.Text "" And TextBox2.Text = "" Then
MsgBox "document number" & TextBox1.Text&
vbCritical , "find name of drawing-error"
TextBox1.Text = ""
End If
End Sub
侠哥,看看这个程序是不是少这条语句,已说明NAME为CAD的文件名,但小弟不知道这个属性名是什么.可否告诉小弟这种CAD的属性名从那里去查找.麻烦侠哥将本程序修订正确.小弟在此拜谢!
置顶卡
