VB调用Excel简化表格处理

---- 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 ＋ sheet1.range(“h23").value dim sql1 as string dim db1 as database dim rs1 as recordset sql1 = “select ＊ from 代码字典" sql1 = sql1 ＋ “where (((代码字典.代码)= " ＆ daima1 ＆ “))" setdb1 =opendatabase(application.thisworkbook.path ＋ “\cngl.mdb") set rs1 = db1.openrecordset(sql1, dbopendynaset) sheet1.range(“h41").value = rs1.fields(“代码字典称呼") exit sub error: msgbox (“日子输出缺点") panduan = false end sub private sub textbox1_change() end sub private sub userform_activate() dyxjkc.top = 30 dyxjkc.left = 230 end sub ----简直的表格画线不妨由excel机动实行，所以简化了vb 编制程序的办法，而且俭朴调节和测试步调和画线定位的功夫。