| VB調(diào)用Excel簡(jiǎn)化表格處理 |
|
|
---- VB程序中直接調(diào)用Excel的格式如下：
Private Sub menudy_Click(Index As Integer)
\這是一個(gè)打印菜單
Select Case Index
Case 0
On Error GoTo kung
aaa = Shell(“D:Program FilesMicrosoft
OfficeOfficeEXCEL.EXE c:cnglcngl.xls", 1)
Case 1
On Error GoTo kong \作為空表處理
aaa = Shell(“D:Program FilesMicrosoft
OfficeOfficeEXCEL.EXE c:cnglcngly.xls", 1)
Case 3
Case 4
Case 5
End Select
Exit Sub
kung:
aaa = Shell(“EXCEL.EXE c:cnglcngl.xls", 1)
Exit Sub
kong:
aaa = Shell(“EXCEL.EXE c:cnglcngly.xls", 1)
End Sub
----由于Word97和Excel97等高版本的Office組件都有和VB 的接口：VB 編輯器，所以我們可以直接利用 VB 編輯器編寫我們需要的程序。步驟如下：進(jìn)入Excel97后，用鼠標(biāo)點(diǎn)擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB 編輯器”。
----“VB編輯器”的編輯界面非常類似于“Visual Basic"的界面。我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。
----例如，我們可以制定一個(gè)打印窗體，通過程序來實(shí)現(xiàn)數(shù)據(jù)定位和循環(huán)調(diào)用打印過程。
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 數(shù)據(jù)表"
sql = sql ＋ “ WHERE (((數(shù)據(jù)表.日期)=
＃" ＋ TextBox1.Text ＋ “＃))"
Setdb =OpenDatabase(Application.ThisWorkbook.Path
＋“cngl.mdb")
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
If rs.EOF Then
MsgBox (“此日期無數(shù)據(jù)")
Exit Sub
End If
daima1 = rs.Fields(“代碼")
Sheet1.Range(“e5").Value = rs.Fields(“日期")
Sheet1.Range(“f7").Value = rs.Fields(“數(shù)據(jù)表記錄")
Sheet1.Range(“d13").Value = rs.Fields(“整數(shù)100")
Sheet1.Range(“d15").Value = rs.Fields(“整數(shù)50")
Sheet1.Range(“d17").Value = rs.Fields(“整數(shù)10")
Sheet1.Range(“d19").Value = rs.Fields(“整數(shù)5")
Sheet1.Range(“d21").Value = rs.Fields(“整數(shù)2")
Sheet1.Range(“d23").Value = rs.Fields(“整數(shù)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 (“日期輸入錯(cuò)誤")
panduan = False
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Activate()
dyxjkc.Top = 30
dyxjkc.Left = 230
End Sub
----具體的表格畫線可以由Excel自動(dòng)完成，因此簡(jiǎn)化了VB 編程的步驟，并且節(jié)約調(diào)試程序和畫線定位的時(shí)間。
|
|
