用VB5直接控制Excel 97 

　　用VB5可編寫直接控制Excel操作的程序,方法是用VB的OLE自動化 技術獲取Excel 97 的控制句柄,從而直接控制Excel 97的一系列操作 。與用VBA語言編寫的Excel控制程序相比,兩者主要有如下差異: 
　　1. 實現VB5對Excel的直接控制后,可在用戶所編的程序中調用Ex cel,即從控制界面直接調入Excel,且退出Excel后又回到控制界面,使 人看起來就如Excel是依附于用戶程序上。這給既想獲取Excel的強大 支持,又想編寫"傻瓜"軟件交給不熟悉計算機的用戶使用的程序員來 說,其好處是不言而喻的。VBA則必須依附于特定的Excel環境,且只有 先進入確定的Excel環境后,才能運行VBA程序。 
　　2. 用VB5實現Excel的控制后,所有程序可編譯成完整的EXE執行 文件,直接在Win 95 /NT平臺上執行,運行環境更為簡潔明了,程序更 易加密。不會因為有多個程序指令塊帶來管理麻煩,也不易因用戶的 不小心使用而出現程序丟失,造成功能短缺。VBA編寫的程序最大的不 方便是不能編譯成執行文件,不能脫離其主應用程序獨立運行。 
　　3. VBA在Excel環境中,幾乎是一個萬能的工具,可通過建立功能 強大的宏指令來擴展或模擬Excel的全部功能。而VB的OLE自動技術目 前還不能實現Excel所有功能的模擬與控制。 
　　操作步驟 
　　用VB5控制Excel 97的操作步驟如下: 
　　1. 引用Microsoft Excel類型庫: 
　　*從"工程"菜單中選擇"引用"欄; 
　　*選擇Microsoft Excel 8.0 Object Library; 
　　*選擇"確定"。 
　　2. 聲明顯式數據類型: 
　　Dim x1 as Excel.Application 
　　3. 創建新實例,獲取Excel的控制句柄: 
　　Set x1=CreatObject("Excel.Application") 
　　4. 由于Excel 97啟動為不可見,調用后需使其顯示出來: 
　　x1.Visible=True 
　　5. 交還Excel控制句柄: 
　　Set x1=Nothing 
　　同理,用此方法也可直接控制Word、Access等Microsoft Office 97的其他應用軟件,享受其便利和支持。 
　　操作程序 
　　Private Sub Contral_Excel_97() 
　　{ 
　　Dim x1 as Excel.Application '聲明顯式數據類型 
　　Set x1=CreateObject("Excel.Application") 
　　 '創建新實例 
　　x1.Workbooks.Add 
　　’添加新工作簿 
　　x1.Range("A1").Value=5　’A1格賦值 
　　x1.Range("A2").Value=8　’A2格賦值 
　　x1.Range("A3").Value=16 ’A3格賦值 
　　x1.Range("A4").Value=7　’A4格賦值 
　　x1.Charts.Add 
　　’插入圖形 
　　x1.ActiveChart.ChartType=x1ColumnClustered 
　　’柱狀圖 
　　x1.ActiveChart.SetSourceData Source:=x1.Sheets("Sheet1") .Range("A1:A4") 
　　PlotBy:=x1Columns 
　　’圖形數據來源 
　　With x1.ActiveChart 
　　’圖標題 
　　.HasTitle=False　 ’沒有總標題 
　　.Axes(x1Category,x1Primary).HasTitle=False 
　　.Axes(x1Value,x1Primary).HasTitle=True 
　　’有Y軸標題 
　　.Axes(x1Value,x1Primary).AxisTitle.Characters 
　　.Text="銷售電視機(臺)" 
　　End With 
　　With x1.ActiveChart.PageSetup ’圖形頁面設置 
　　.CenterHeader="&28" & ListSTNM(Combo2. ListIndex)&"逐日 電視機銷售" 
　　’標題 
　　.CenterFooter="&12x x x 商場"　’下邊落款 
　　.RightFooter=Format(Now,"yyyy-m-d-h:n") 
　　’右下角顯示時間 
　　.Orientation=x1Landscape　 ’打印紙頁面橫向 
　　End With 
　　x1.ActiveChart.PlotArea.Interior.ColorIndex=x1None 
　　’無背景色 
　　x1.ActiveWindow.SelectedSheets.PrintPreview 
　　’打印預覽 
　　x1.Visible=True 
　　’顯示圖形 
　　Set x1=Nothing 
　　’交還控制句柄 
　　} 
　　杭州大學計算中心 馮宗文 浙江省水文勘測局 茅程