UC知道帮忙找找这段VB程序的错误
来源：百度知道 编辑：UC知道 时间：2024/06/14 15:38:44
帮忙找到错误 谢谢 错误提示是 用户自定义类型未定义
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.WorkBook
Dim ExcelSheet As Excel.Private Sub Command3_Click()
Dim sFile As String
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt" & "|word文档(*.doc)|*.doc"
CommonDialog1.Flags = &H4&
CommonDialog1.ShowSave
sFile = CommonDialog1.FileName
Exit Sub
Errhandler:
Exit Sub
Open sFile For Output As #2
Write #2,
Close #2
ExcelBook.Close (True)
ExcelBook.Application.Quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
End Sub
Private Sub Command4_Click()
End
End Sub
Worksheet
第一句
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.WorkBook
Dim ExcelSheet As Excel.Private Sub Command3_Click()
Dim sFile As String
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt" & "|word文档(*.doc)|*.doc"
CommonDialog1.Flags = &H4&
CommonDialog1.ShowSave
sFile = CommonDialog1.FileName
Exit Sub
Errhandler:
Exit Sub
Open sFile For Output As #2
Write #2,
Close #2
ExcelBook.Close (True)
ExcelBook.Application.Quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
End Sub
Private Sub Command4_Click()
End
End Sub
Worksheet
第一句
你好,你的程序是要对EXCEL的数据引入到VB中进行处理,但要引入EXCEL时要先对EXCEL的控件引用,方法如下:
1、点击菜单“工程”中的“引用”；
2、在弹出的“引用”窗口中选择“Microsoft Excel XX.X Object libyary”,这个控件为EXCEL的引用功能接口文件（控件），对其左边“打钩”，后按“确定”按扭。（当然，你计算机上要安装OFFICE才可引用，且此控件因安装OFFICE版本不同而不同，XX.X就是这个意思，如你安装OFFICE2003时，XX.X为11.0）；
3、引用后，即可用你列出的程序了。
祝你成功！
VB提示后，黄色的是哪里？
运行起来，出错带黄颜色，再探讨，OK？
估计是没有添加引用。