VB千里行-操作Word與Excel
本文將告訴你如何使用VB代碼連接Office應(yīng)用程序,并簡(jiǎn)要接觸一下在文件中輸入數(shù)據(jù)的方法。實(shí)際上,在VB中用代碼與Word和Excel進(jìn)行會(huì)話(huà)并控制它們,是可行的。但是請(qǐng)注意,首先需要在機(jī)器上安裝office應(yīng)用程序,才能在VB代碼中存取它們的對(duì)象。
下面就是一些例子,告訴你如何與這些程序會(huì)話(huà),并控制它們。
Option Explicit
Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application
只要相關(guān)的對(duì)象庫(kù)已經(jīng)被選擇,在應(yīng)用程序中進(jìn)行對(duì)象變量的賦值是可能的。Microsoft Excel 8.0對(duì)象庫(kù)是相對(duì)于Excel的,而 Microsoft Word 8.0 對(duì)象庫(kù)是為Word服務(wù)的。
在VB的IDE環(huán)境中,從“工程”菜單中選擇“引用”,可以看到系統(tǒng)可用的所有庫(kù)列表。
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "Hi"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |