如何將excel資料整合到word文件中

在你工作的一週裡，你可能會發現自己有很多次把Excel中的資訊複製貼上到Word中，或者反過來。這就是人們通常根據Excel電子表格中積累和更新的資料生成書面報告的方式。在本文中，我將更深入地研究一下後臺VBA指令碼，它允許您實際程式設計Excel和Word中資料之間的連線。...

布拉德·瓊斯於2017年8月25日更新。

在你的工作周裡，可能有很多次你會發現自己從microsoftexcel複製並粘貼信息到Word中，或者反過來。

這就是人們通常根據電子表格中積累和更新的數據生成書面報告的方式。Excel是一個很好的程序，從創建專業的圖表，到建立項目管理跟蹤程序，但當涉及到編寫報告時，Word是一個更好的工具。

在本文中，我們將深入研究後臺VBA腳本，它允許您實際編程存儲在Excel文件中的數據與生成報表的Word文檔之間的連接。

一旦您知道如何添加正確的引用，以及如何佈局後臺VBA代碼的語法，那麼將microsoftexcel數據集成到microsoftword中就非常容易了。

設置電子表格

在這個例子中，我將從一個相當簡單的Excel電子表格開始。實際上，Excel文件可以由多個包含大量數據的電子表格組成—這無關緊要。

只要您知道在電子表格中的哪裡可以找到數據，就可以使用VBA訪問並獲取數據。

下面是我的示例電子表格。這是一份全年計算的費用總額清單。

設置word文檔

假設你有一個經理，他希望看到一個格式很好的報告來描述費用，像項目一樣分組在一起，並以一種更美觀的佈局來呈現信息。

您可以通過將文本框和標籤等對象合併到Word文檔中來實現這一點。在Word中，只需單擊Developer菜單選項卡，然後在Controls部分選擇“設計模式”。使用傳統工具下拉圖標將各種不同的元素**到文檔中。

使用此菜單**標籤。

一旦將標籤放置在文檔中您想要的位置（並不總是一項簡單的任務），就可以對數據提要進行編程了。但首先，您需要命名標籤，以便VBA能夠識別它。右鍵單擊標籤並進入屬性。找到（Name）字段並將其命名為您將記住的名稱。

現在，從相同的舊工具下拉列表中添加一個命令按鈕，然後雙擊它以打開VBA編輯器。當您的代碼以後工作時，您可以修改它，使代碼在Document Open（）事件上運行。您將在編輯器窗口的對象下拉框中看到。

使用vba

要開始將Word連接到Excel，您需要確保可以在VBA中引用後者。

準備excel數據導入

單擊“工具”，然後單擊“引用”。向下滾動列表，直到看到Microsoft Excel 16.0對象庫並將其選中。

完成這些之後，剩下的工作就是編寫一個極其簡單的VBA腳本，從Excel電子表格中提取數據，並用數據自動更新標籤標題。

代碼如下：

Private Sub CommandButton1_Click() Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("C:\Users\Brad\Desktop\expenses.xlsx") ThisDocument.total_expenses.Caption = exWb.Sheets("Sheet1").Cells(12, 2) exWb.Close Set exWb = Nothing End Sub

看到了嗎？“exWb”Excel應用程序對象按您提供的路徑打開microsoftexcel文件，它將直接進入特定的工作表和單元格編號，提取數據，並將其放入我命名為total\u expenses的標籤的Caption屬性中。您需要在腳本中編輯的只是文件路徑和標籤名。

測試宏

要測試命令按鈕，請保存文檔，記住指定需要啟用Word宏的文檔，以便代碼正常工作。

下面是VBA宏的作用。

集成excel標籤

在Word中處理標籤最困難的部分是，有時很難將標籤與句子結尾或其他文本對齊。

克服這一問題的一種方法是在VBA代碼本身的數據旁邊加入一些文本。正如您在這裡看到的，在創建標籤本身時，我將靜態文本放在了標題中。

現在，您所要做的就是在用VBA腳本更新標籤時包含該文本，並將microsoftexcel文件中的數據附加到該文本的末尾。

下面是那種代碼的樣子。

Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("c:\Users\Brad\Desktop\expenses.xlsa") ThisDocument.total_expenses.Caption = exWb.Sheets("Sheet1").Cells(12, 2) ThisDocument.total_hotels.Caption = "Hotels: " & exWb.Sheets("Sheet1").Cells(5, 2) ThisDocument.total_dining.Caption = "Dining Out: " & exWb.Sheets("Sheet1").Cells(2, 2) ThisDocument.total_tolls.Caption = "Tolls: " & exWb.Sheets("Sheet1").Cells(3, 2) ThisDocument.total_fuel.Caption = "Fuel: " & exWb.Sheets("Sheet1").Cells(10, 2) exWb.Close Set exWb = Nothing

可以使用字符串串聯“&”符號將靜態文本與從Excel工作表中提取的數據連接起來。以下是更新後的Word文檔中的最終結果：

更進一步

如果你想測試你的能力，為什麼不進一步自動化你的報告呢？只需運行數據更新腳本，就可以從microsoftword文檔中刪除這個醜陋的灰色命令按鈕文檔。打開（）-整個過程將在幕後進行。

這意味著在許多情況下，您可以創建一次初始文檔，然後再也不必創建它了。你所要做的就是打開它，所有的標籤將自動更新為你的數據從更新的微軟Excel文件。只需單擊“打印”，然後將報告提交給您的經理。一份30分鐘的工作變成了一分鐘的打印輸出！

你能想到使用VBA的這種數據集成技術還有什麼好的用途嗎？在下面的評論部分分享你自己的一些想法和想法。

圖片來源：Punyaphat Larpsomboon viaShutterstock.com網站

發表於 2021-03-13 07:56
閱讀 ( 54 )
分類：網際網路

你可能感興趣的文章

googledrive與onedrive：在哪裡備份windows檔案

...種，在我們關於將檔案備份到雲的文章中，我們都有關於如何開始使用它們的說明。 ...

發佈於 2021-03-12 11:58
閲讀 ( 62 )

microsoft office 2013：非正式指南

... 到現在為止，您應該已經瞭解瞭如何訪問新增到Microsoft Office套件中的最重要的新功能，已經掌握了現代使用者介面，並且對OneDrive在Office 2013中作為雲端儲存系統的使用有了一些瞭解。 ...

發佈於 2021-03-13 21:40
閲讀 ( 88 )

如何在幾秒鐘內恢復未儲存的microsoft word文件

...化了這一過程。如果您仍然使用MicrosoftOffice2007，請檢視如何使用自動恢復來幫助您。 ...

發佈於 2021-03-18 04:52
閲讀 ( 61 )

MicrosoftWord中完美表格的8個格式化提示

...的那樣多地討論桌子。現在是時候糾正這一點了，因為就如何正確設定表格格式提出問題的人越來越多。也許這八個餐桌小貼士可以作為開胃菜。 ...

發佈於 2021-03-23 07:44
閲讀 ( 63 )

如何在microsoft word和excel中將“開發人員”選項卡新增到功能區

...啟用Word功能區和Excel功能區上的選項卡。首先讓我們看看如何將“開發人員”選項卡新增到功能區。 ...

發佈於 2021-03-23 10:44
閲讀 ( 69 )

什麼是microsoft office桌面應用程式？它有什麼好處嗎？

...應用程式變得真正有用，將其變成真正的Office中心，這些整合是必不可少的。毫無疑問，這使得找到這些應用程式的快捷方式稍微容易一些。但是，如果你在瀏覽器中訪問一個特定的站點或服務，為什麼不建立一個書籤並使用它...

發佈於 2021-03-29 14:48
閲讀 ( 72 )

如何將office文件預設儲存到此電腦

...這是Word、Excel和PowerPoint等應用程式的預設設定。以下是如何將預設儲存位置更改回“此電腦”上的文件或其他資料夾這些說明適用於Windows 10上最新版本的Microsoft Office，無論您訂閱了Office 365還是購買了Office 2019之類的軟體包。 ...

發佈於 2021-04-03 00:42
閲讀 ( 49 )