1 / 5
文档名称:

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

格式:docx   大小:31KB   页数:5页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

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

上传人:杏杏铺 2022/5/29 文件大小:31 KB

下载得到文件列表

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

相关文档

文档介绍

文档介绍:
运用VB调用Excel简化表格处理
简介:VB调用Excel简化表格处理 ---- VB程序中干脆调用Excel的格式如ual Basic"的界面。我们可以从它的控件“工程资源管理器”中插入须要的“添加用户窗体、添加模块、添加类模块”,并且从“属性窗口”中参加属性。 ----例如,我们可以制定一个打印窗体,通过程序来实现数据定位和循环调用打印过程。 Public panduan As Boolean Private Sub CommandButton1_Click() change If panduan Then Unload Me Else = “" End If End Sub Sub change() If Not judgeday() Then GoTo error panduan = True Dim sql As String Dim db As Database Dim rs As Recordset sql = “SELECT * From 数据表" sql = sql + “ WHERE ((()= #" + + “#))" Setdb =OpenDatabase( +“/") Set rs = (sql, dbOpenDynaset) If Then MsgBox (“此日期多数据") Exit Sub End If daima1 = (“代码") (“e5").Value = (“日期") (“f7").Value = (“数据表记录") (“d13").Value = (“整数101") (“d15").Value = (“整数50") (“d17").Value = (“整数10") (“d19").Value = (“整数5") (“d21").Value = (“整数2") (“d23").Value = (“整数1") (“h13").Value = (“其他101") (“h15").Value = (“其他50") (“h17").Value = (“其他10") (“h19").Value = (“其他5") (“h21").Value = (“其他2