VBA將Excel的內容復制到Word代碼中？

就在幾天前，我還在研究將數據從EXCEL導出到WORD。源馬德組織如下。有壹些路徑、文件名和其他信息需要更改。我相信妳能理解他們（用粗體標記）。它僅提供了壹個初學者的想法，代碼仍有很大的優化空間，因為每個WORD文件的生成估計需要3-5秒鐘，並且批量生成時非常煩人（批量生成意味著使用周期，文件名可以帶有時間戳&；隨機數&自定義名稱，妳不能只使用時間戳，因為有時它會壹秒鐘瘋狂兩次以上，而且名稱會完全相同。

“將MyExcel作為工作簿顯示”定義工作簿變量。

設置my excel = Workbooks（“D:\您需要導出表的絕對路徑”）

將MyWord作為對象定義變量。

“Dim MyArray”定義數組變量。

將MyString標註為字符串

MyArray = MyEXCEL。工作表（“工作表名稱”）。範圍（“A2:E2“）。需要從Excel導出的值放入數組中，因為操作數組比直接調用Range快得多。

set my WORD = createobject（“WORD。應用程序“）”生成壹個word對象。

mystring = myarray 1（1，1）‘通過操作數組為變量賦值，您可以通過循環為多個變量賦值。

MyFileName =“生成單詞名稱““文件名

my word . documents . add‘創建新文件。

我保證。文檔（1）。範圍。插入器mystring將數據寫入word。

fn =“D:\“& amp；“MyFileName”生成文件名。

我保證。文檔（1）。另存為fn‘另存為文件。

我的話。“關閉假”不保存關閉的文件。

我的話。戒假

設置MyWord = Nothing空變量。

清除myarray 1‘註銷數據