首页 > 知识大全 > 动物知识

运用VB调用Excel简化表格处理

后台-系统设置-扩展变量-手机广告位-内容正文底部
运用VB调用Excel简化表格处理

简介:VB调用Excel简化表格处理


-VB程序中直接调用Excel的格式如下:
私有子菜单dy _ click (index为整数)
//这是一个打印菜单[/br Select Case Index
Case 0
On Error GoTo kung
AAA = Shell(" D:/Program Files/Microsoft
Office/Office/Excel。EXE c:/cngl/cngl.xls ",1)
Case 1
on error goto Kong//作为空表
AAA = Shell(" d:/program files/Microsoft
office/office/EXCEL . EXE c:/cngl/cngly . xls ",1)
Case 3
Case 4
Case 5
End Select
Exit SubEXE C:/cngl/cngly.xls ",1)
END SUB
-因为Word97、Excel97等高级办公组件都是这样的步骤:进入Excel97后,点击菜单栏中的工具按钮,选择宏,然后选择VB编辑器。
-VB编辑器的编辑界面与Visual Basic非常相似。我们可以从其控件“项目浏览器”中插入所需的“添加用户表单、添加模块、添加类模块”,从“属性窗口”中添加属性。
-比如我们可以做一个打印表单,可以定位数据,通过程序循环调用打印过程。
Public pan Duan As Boolean
Private Sub command button 1 _ Click()
change
If pan Duan Then
Unload Me
Else
textbox 1 .text = " "
End If
End Sub
Sub change()
If Not judged day(textbox 1。Text)然后转到error
pan Duan = True
Dim SQL as string
Dim DB as database
Dim RS as recordset
SQL = " select * from data table "
SQL = SQL+" where((data table。date) =
#" + TextBox1。text+" #))"
Setdb = open database(Application。this workbook . Path
+"/cngl . MDB ")
Set RS = db。OpenRecordset(sql,Open dynaset)
if RS . eof then
msgbox("此日期无数据")exit sub
end if
daima 1 = RS . fields(" code ")
sheet 1 . range(" E5。价值=卢比。fields(" date ")
sheet 1 . range(" F7 ")。value = rs.fields("数据表记录")
sheet1.range ("D13 ")。value = RS . fields(" integer 100 " 1 . range(" d15 ")。value = RS . fields(" integer 50 ")
sheet 1 . range(" d17 ")。value = RS . fields(" integer 10 ")
sheet 1 . range(" d19 ")..
sheet1.range ("d21 ")。value = RS . fields(" integer 2 ")
sheet 1 . range(" d23 ")。value = RS . fields(" integer 1 ")
sheet 1 . range(" H1。价值=卢比。fields(" other 100 ")
sheet 1 . range(" H15 ")。value = RS . fields(" other 50 ")
sheet 1 . range(" H17 ")。value = RS . fields(" other 17 " 1 . range(" H19 ")。value = RS . fields(" other 5 ")
sheet 1 . range(" H21 ")。value = RS . fields(" other 2 ")
sheet 1 . range(" H23 ")。value br/]Sheet1。范围(“d37”)。值= Sheet1。范围
(“d13”)。值* 100 + Sheet1。范围(“d15”)。
值* 50 + Sheet1。范围(“d17”)。值* 10 + [/ br/]Sheet1。范围(“d19”)。值* 5 + Sheet1。范围
(“d21”)。值* 2 + Sheet1。范围(“d23”)。值
Sheet1。范围(“h37”)。值= Sheet1。范围
(“H13”)。值* 100 + Sheet1。范围(“h15”)。
值* 50 + Sheet1。范围(“h17”)。值* 10 +
Sheet1。范围(“h19”)。值* 5 + Sheet1。范围
(“h21”)。值* 2 + Sheet1。范围(“h23”)。value
Dim SQL 1 As String
Dim db1 As Database
Dim rs1 As recordset
SQL 1 = " select * from code dictionary "
SQL 1 = SQL 1+" where((code dictionary。code)=
" & daima 1 & " "
setdb 1 = open database(Application。this workbook . Path
+"/cngl . MDB ")
Set rs1 = db1。OpenRecordset(sql1,Open dynaset)
sheet 1 . range(" H41 ")。value = rs1.fields("代码字典名称")
exit Sub
error:
msgbox("日期输入错误")
pan]End Sub
Private Sub textbox 1 _ Change()
End Sub
Private Sub UserForm _ Activate()
dyxjkc。Top = 30
dyxjkc。left = 230
End
-具体的表格绘制可以由Excel自动完成,简化了VB编程的步骤,节省了调试程序和绘图定位的时间。

位律师回复
后台-系统设置-扩展变量-手机广告位-内容正文底部
版权声明

本文仅代表作者观点,不代表本站立场。
本文系作者授权发表,未经许可,不得转载。
本文地址:https://www.sobd.cc/zzdq/2288157.html

留言与评论(共有 0 条评论)
   
验证码:
后台-系统设置-扩展变量-手机广告位-评论底部广告位

白度搜

https://www.sobd.cc/

| 京ICP1234567-2号

Powered By 白度搜 白度搜

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯