导航:首页 > 源码编译 > excelvb编译错误

excelvb编译错误

发布时间:2023-05-17 00:41:44

Ⅰ VB 创建Excel对象时 出现 无效外部过程 编译错误

代码要写在过程内 如:
Private Sub Form_Load()
Dim XlsObj As Excel.Application 'Excel对象
Dim XlsBook As Excel.Workbook '工作簿
Dim XlsSheet As Excel.Worksheet '工作表
Set XlsObj = CreateObject("Excel.Application") '创建EXCEL对象
End Sub

Ⅱ vb6.0添加excel的问题 一下代码提示编译错误 “用户定义类型未定义”

1:读取。

1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序:

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub

2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub

4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。

2:写入。
Excel导入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub

Ⅲ EXCEL 内运行vb脚本 编译出错 方法和数据成员未找到

出现 数据成员未找到 就是代码中的控件你未在部件菜单中引用 导致系统默认使用文本框或者图片框控件来代替你原本的控件 而这两个控件所拥有的属性方法 和你那个日期控件有差别 如value属性 所以当代码运行到有value就会报错

阅读全文

与excelvb编译错误相关的资料

热点内容
曹操传找不到视频解压文件 浏览:939
zblogphp插件 浏览:649
好兴动app怎么掌上取现 浏览:133
python折旧率 浏览:538
涟源云服务器 浏览:992
linux中代表什么 浏览:33
androidphone模块 浏览:35
linux中断表 浏览:177
文本写的java如何编译运行 浏览:524
单片机pwm控制舵机 浏览:318
压缩机sd是什么 浏览:772
php获取数据转json数据 浏览:525
程序员入职比期望薪资高 浏览:889
苹果电脑怎么在桌面建新文件夹 浏览:526
苹果上不小心买错了app怎么撤销 浏览:845
苹果手机在设置怎么卸载app 浏览:317
我的世界基岩版正版服务器地址 浏览:562
vci命令 浏览:834
快剪辑app如何提取音乐 浏览:950
gcc编译器适合单片机开发吗 浏览:886