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

　　简介：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 编程的步骤，并且节约调试程序和画线定位的时间。