通過vs2010編寫vb程序操作word與excel

1、開發(fā)環(huán)境

? ? 配置開發(fā)環(huán)境，將vs2010的c++開發(fā)環(huán)境轉換到vb的開發(fā)環(huán)境。

? ? 點擊菜單欄->工具->導入和導出設置，打開如下所示界面：

? ? 選中“重置所有設置”，點擊下一步：

? ? 選中“否，***”，點擊下一步：

? ? 選中“Visual Basic開發(fā)設置”，點擊完成，等待配置即可。

配置完成之后，選擇新建Visual Basic的Windows 窗體應用程序。

2、引入word和excel的庫

? ? 當建立新的工程之后，如果要操作word和excel，需要引入word和excel的庫。

右鍵點擊工程名，選擇“屬性”，點擊“引用”，打開如下界面：

點擊“添加”，分別添加如上圖所示的word和excel庫。

同時也需要導入 Office的Interop命名空間，因為word和excel的類庫分別在Microsoft.Office.Interop命名空間下。

3、編寫vb程序

首先，定義如下的對象;

Private mWordApp As Word.Application '定義一個word的對象Private mWordDoc As Word.Document '用于操作word文檔的工作對象Private mExcelApp As Excel.Application '定義一個excel的對象Private mExcelWorkBook As Excel.Workbook '用于操作excel文檔的工作對象Private mWordFilePath As String 'word文檔所在的路徑Private mExcelFilePath As String 'excel文檔的路徑

?

獲得需要操作的word文檔的路徑和名稱

'打開選擇word文檔的對話框，并選擇文件If pOpenWordFileDialog.ShowDialog() = DialogResult.OK Then'獲取并顯示選擇的word文檔名稱及目錄mWordFilePath = pOpenWordFileDialog.FileNamepTextBoxWordFileDir.Text = mWordFilePathEnd If

?

然后創(chuàng)建word和excel的對象：

mWordApp = CreateObject("Word.Application") mExcelApp = CreateObject("Excel.Application")

?

獲得word的文檔對象：

mWordDoc = mWordApp.Documents.Open(mWordFilePath)

新建excel工作表：

'---------------------------------------------------------------------------------'獲取excel文檔的目錄與文件名Dim wordFileName As StringwordFileName = Strings.Left(mWordDoc.Name, Len(mWordDoc.Name) - 4) '獲取當前文檔名稱,不包括后綴名mExcelFilePath = mWordDoc.Path + "\" + wordFileName + "xlsx"'---------------------------------------------------------------------------------'新建excel文檔，并將Word中的內(nèi)容導出到該Excel中mExcelApp.Visible = TruemExcelWorkBook = mExcelApp.Workbooks.Add '新建一個Excel文件mExcelWorkBook.SaveAs(Filename:=mExcelFilePath) '設置新建Excel文件的路徑和文件名

?

?

當操作完成之后，需銷毀word對象

'---------------------------------------------------------------------------------'退出wordmWordDoc.Close()mWordDoc = NothingmWordApp.Quit()

?

具體的數(shù)據(jù)導出操作請參考博客：https://blog.csdn.net/bailang_zhizun/article/details/79866671

總結

以上是生活随笔為你收集整理的VB - 通过vs2010编写vb程序操作word与excel的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。