91在线视频播,www.97超碰在线,日本高清有码

国产精品青草久-国产精品情侣愉拍-国产精品区网红主-国产精品区一区二-国产精品热久久-国产精品热热热-国产精品人aⅴ-国产精品人成在线-国产精品人妻人伦-国产精品人人

Edraw Office Viewer component教程（二）：將Excel嵌入VB 6并使之自動(dòng)化

原創(chuàng)|使用教程|編輯：黃竹雯|2017-05-11 11:07:47.000|閱讀 1224 次

概述：使用Edraw office viewer component，vb開發(fā)人員可以輕松地將一個(gè)現(xiàn)有的Excel電子表格嵌入到表單中，然后進(jìn)行自動(dòng)化。在加載表單時(shí)，開發(fā)人員可以使用Open方法從硬盤驅(qū)動(dòng)器或服務(wù)器中加載* .xls、* .xlsx、* .xslm或* .cvs文件，并在窗口的某個(gè)區(qū)域中打開。

# 界面/圖表報(bào)表/文檔/IDE等千款熱門軟控件火熱銷售中 >>

相關(guān)鏈接：

Edraw office viewer component對(duì)于開發(fā)人員來(lái)說(shuō)是一個(gè)將Microsoft Excel電子表格嵌入到vb.net應(yīng)用程序中的簡(jiǎn)單可靠的解決方案。

使用Edraw office viewer component，vb開發(fā)人員可以輕松地將一個(gè)現(xiàn)有的Excel電子表格嵌入到表單中，然后進(jìn)行自動(dòng)化。在加載表單時(shí)，開發(fā)人員可以使用Open方法從硬盤驅(qū)動(dòng)器或服務(wù)器中加載* .xls、* .xlsx、* .xslm或* .cvs文件，并在窗口的某個(gè)區(qū)域中打開。Excel文件可以是只讀、完全編輯或禁止保存等狀態(tài)。開發(fā)人員還可以使用excel組件輕松實(shí)現(xiàn)excel自動(dòng)化。

本文將演示如何逐步將Excel嵌入到VB中。如果你沒(méi)有officeviewer.ocx文件，請(qǐng)先安裝。

Office viewer component - 支持Word、Excel、PowerPoint、Visio和Project的vb6、vb.net項(xiàng)目

在VB 6中嵌入Excel組件

啟動(dòng)Visual Basic并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)項(xiàng)目。默認(rèn)情況下創(chuàng)建Form1。
在“工具箱”面板中，右鍵單擊空白區(qū)域。然后單擊Component...

在彈出的對(duì)話框中，查看Edraw Office Viewer Component。

單擊確定按鈕。
Office Viewer Component便已添加到“工具欄”窗口中。

切換到VB 6窗口，然后添加組件。

該組件包括許多自定義Excel窗口的方法、事件和屬性。
開發(fā)人員可以使用以下代碼在Form_Load事件中打開一個(gè)excel文件。

Private Sub Form_Load（）
EDOffice1.OpenFileDialog'EDOffice1.OpenWord
“d：\ test.xlsx”
'EDOffice1.Open“d：\ test.xls”，“Excel.Application”
End Sub

為了保護(hù)Excel工作表不被最終用戶修改，開發(fā)人員需要在DocumentOpened事件中添加以下代碼。

Private Sub EDOffice_DocumentOpened（）
EDOffice1.ProtectDoc 1'XlProtectTypeNormal
End Sub

一些包含excel自動(dòng)化的方法可用于創(chuàng)建或修改Excel數(shù)據(jù)。

bool ExcelAddWorkSheet（long Index）;
bool ExcelDeleteWorkSheet（long Index）;
bool ExcelActivateWorkSheet（long Index）;
長(zhǎng)ExcelGetWorkSheetCount（）;
bool ExcelSetCellValue（long Column，long Row，BSTR Value）;
BSTR ExcelGetCellValue（長(zhǎng)列，長(zhǎng)行）;
bool ExcelSetRowHeight（long Row，double Height）;
bool ExcelSetColumnWidth（long Column，double Width）;
afx_msg bool ExcelDeleteRow（long Row）;
bool ExcelDeleteColumn（long Column）;
bool ExcelInsertRow（long Row）;
bool ExcelInsertColumn（long Column）;
bool ExcelInsertPageBreakInRow（long Row）;
bool ExcelInsertPageBreakInColumn（long Column）;
bool ExcelCopyToClipboard（）;
bool ExcelPasteStringToWorksheet（BSTR bstText）;

使用Visual Basic自動(dòng)化操作Excel

單擊項(xiàng)目，然后單擊引用。將顯示“引用”對(duì)話框。向下滾動(dòng)列表，找到Microsoft Excel object庫(kù)（Microsoft Excel xx.x Object庫(kù)），然后選擇引用Excel。如果列表中沒(méi)有正確的Excel Object庫(kù)，請(qǐng)確認(rèn)你是否安裝了合適的Excel版本。

單擊“確定”關(guān)閉“引用”對(duì)話框。

將CommandButton添加到Form1。

在Form1的代碼窗口中，插入以下代碼：

Private Sub Command1_Click()

Dim oXL As Excel.Application
Set oXL = EDOffice1.GetApplication()
Dim oWB As Excel.Workbook
Set oWB = EDOffice1.ActiveDocument()
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Set oSheet = oWB.ActiveSheet
oSheet.Cells(1, 1).Value = "First Name"
oSheet.Cells(1, 2).Value = "Last Name"
oSheet.Cells(1, 3).Value = "Full Name"
oSheet.Cells(1, 4).Value = "Salary"
' Format A1:D1 as bold, vertical alignment = center.
With oSheet.Range("A1", "D1")
.Font.Bold = True
.VerticalAlignment = xlVAlignCenter
End With
' Create an array to set multiple values at once.
Dim saNames(5, 2) As String
saNames(0, 0) = "John"
saNames(0, 1) = "Smith"
saNames(1, 0) = "Tom"
saNames(1, 1) = "Brown"
saNames(2, 0) = "Sue"
saNames(2, 1) = "Thomas"
saNames(3, 0) = "Jane"
saNames(3, 1) = "Jones"
saNames(4, 0) = "Adam"
saNames(4, 1) = "Johnson"
' Fill A2:B6 with an array of values (First and Last Names).
oSheet.Range("A2", "B6").Value = saNames
' Fill C2:C6 with a relative formula (=A2 & " " & B2).
Set oRng = oSheet.Range("C2", "C6")
oRng.Formula = "=A2 & "" "" & B2"
' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
Set oRng = oSheet.Range("D2", "D6")
oRng.Formula = "=RAND()*100000"
oRng.NumberFormat = "$0.00"
' AutoFit columns A:D.
Set oRng = oSheet.Range("A1", "D1")
oRng.EntireColumn.AutoFit
oXL.UserControl = True
End Sub

按F5運(yùn)行項(xiàng)目。Excel將自動(dòng)填充excel單元格。

自動(dòng)化Excel時(shí)要注意的一點(diǎn)是Excel Macro Recorder。它仍然在Word 2007中，但隱藏在開發(fā)者功能區(qū)欄。

以上就是本次教程的全部?jī)?nèi)容，接下來(lái)會(huì)有更多相關(guān)教程，敬請(qǐng)關(guān)注！您也可以在評(píng)論者留下你的經(jīng)驗(yàn)和建議。

試用、下載、了解更多產(chǎn)品信息請(qǐng)點(diǎn)擊""

標(biāo)簽：Excel Office

本站文章除注明轉(zhuǎn)載外，均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載，但請(qǐng)務(wù)必注明出處、不得修改原文相關(guān)鏈接，如果存在內(nèi)容上的異議請(qǐng)郵件反饋至chenjj@fc6vip.cn

上一篇：LoadRunner12使用教程（四）——事務(wù)與集合點(diǎn) 下一篇：Python數(shù)據(jù)分析之pandas學(xué)習(xí)（三）