当前位置: 网学 > 编程文档 > VB > 正文

VB调用Excel简化表格处理

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

---- VB程序中直接调用Excel的格式如下:

Private Sub menudy_Click(Index As Integer)
\\这是一个打印菜单
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 Sub
kung:
aaa = Shell(“EXCEL.EXE c:\cngl\cngl.xls", 1)
Exit Sub
kong:
aaa = Shell(“EXCEL.EXE c:\cngl\cngly.xls", 1)
End Sub

----由于Word97和Excel97等高版本的Office组件都有和VB 的接口:VB 编辑器,所以我们可以直接利用 VB 编辑器编写我们需要的程序。步骤如下:进入Excel97后,用鼠标点击菜单栏中的“工具”按钮,选择“宏”,再选择“VB 编辑器”。

----“VB编辑器”的编辑界面非常类似于“Visual Basic"的界面。我们可以从它的控件“工程资源管理器”中插入需要的“添加用户窗体、添加模块、添加类模块”,并且从“属性窗口”中加入属性。

----例如,我们可以制定一个打印窗体,通过程序来实现数据定位和循环调用打印过程。

Public panduan As Boolean
Private Sub CommandButton1_Click()
change
If panduan Then
Unload Me
Else
TextBox1.Text = “"
End If

End Sub

Sub change()
If Not judgeday(TextBox1.Text) Then GoTo error
panduan = True
Dim sql As String
Dim db As Database
Dim rs As Recordset

sql = “SELECT * From 数据表"
sql = sql + “ WHERE (((数据表.日期)=
#" + TextBox1.Text + “#))"
Setdb =OpenDatabase(Application.ThisWorkbook.Path
+“\cngl.mdb")
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
If rs.EOF Then
MsgBox (“此日期无数据")
Exit Sub
End If
daima1 = rs.Fields(“代码")

Sheet1.Range(“e5").Value = rs.Fields(“日期")
Sheet1.Range(“f7").Value = rs.Fields(“数据表记录")
Sheet1.Range(“d13").Value = rs.Fields(“整数100")
Sheet1.Range(“d15").Value = rs.Fields(“整数50")
Sheet1.Range(“d17").Value = rs.Fields(“整数10")
Sheet1.Range(“d19").Value = rs.Fields(“整数5")
Sheet1.Range(“d21").Value = rs.Fields(“整数2")
Sheet1.Range(“d23").Value = rs.Fields(“整数1")
Sheet1.Range(“h13").Value = rs.Fields(“其他100")
Sheet1.Range(“h15").Value = rs.Fields(“其他50")
Sheet1.Range(“h17").Value = rs.Fields(“其他10")
Sheet1.Range(“h19").Value = rs.Fields(“其他5")
Sheet1.Range(“h21").Value = rs.Fields(“其他2")
Sheet1.Range(“h23").Value = rs.Fields(“其他1")
Sheet1.Range(“d37").Value = Sheet1.Range
(“d13").Value * 100 + Sheet1.Range(“d15").
Value * 50 + Sheet1.Range(“d17").Value * 10 +
Sheet1.Range(“d19").Value * 5 + Sheet1.Range
(“d21").Value * 2 + Sheet1.Range(“d23").Value
Sheet1.Range(“h37").Value = Sheet1.Range
(“h13").Value * 100 + Sheet1.Range(“h15").
Value * 50 + Sheet1.Range(“h17").Value * 10 +
Sheet1.Range(“h19").Value * 5 + Sheet1.Range
(“h21").Value * 2 + Sheet
  • 上一篇资讯: VB获得一页的html代码
  • 下一篇资讯: VB设计动画时钟
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号