伊莉討論區

標題: Excel VBA 自動另存Word檔案到指定路徑 [打印本頁]

---

作者: alan12345678900    時間: 2015-2-13 08:47 PM     標題: Excel VBA 自動另存Word檔案到指定路徑



如標題，我有一隻程式是用Excel VBA 去寫的，但需要以下要求：

• 程式碼必須在Excel VBA 裡面執行。
• 執行Excel VBA 程式碼所開啟的Word 檔案，能夠自動另存新檔。
• Word 檔案名稱必須由使用者決定。
• Word 檔案儲存路徑必須是在Excel 檔案的根目錄，並非Word 檔案的根目錄(Excel 與Word 檔案不同資料夾)。
  

希望有熟練VBA的人，可以幫我解決上述問題。

---

作者: Jeepluo    時間: 2015-2-18 12:08 PM



以下的資訊可以參考看看
1. 用 ActiveWorkbook.Path 取得 Excel 活頁簿的所在資料夾
2. Excel 2010 要用副檔名 xlsm 儲存才能存 Macros (程式碼)
3. 開啟 Word 先用 instances = OpenWord() 返回 Word 的實體，操作完後用 CloseWord(instances) 關閉
4. 程式碼需要先加入參考 Microsoft Word XXX Object Library，如果用 2010 版 XXX 是 14.0
5. 底下程式碼開啟和 Excel 同資料夾的 Word 文件名稱 "Document1.docx"
6. 程式碼如和測試如附件所示，請將 test 資料夾放到 "C:\test\" 進行測試
程式碼：

1. Option Explicit
   
2. 
   
3. ' Test getting current working directory and opening word files.
   
4. '
   
5. ' Note: Add the following references:
   
6. ' Microsoft Word XXX Object Library
   
7. '
   
8. ' Author: Shawn Chang
   
9. ' Tested on Excel 2010 and Word 2010
   
10. 
    
11. Private Type WordInstances
    
12.     wordApp As Word.Application
    
13.     wordDoc As Word.Document
    
14. End Type
    
15. 
    
16. Public Sub TestGetCurrentWorkingDirectory()
    
17.     MsgBox GetCurrentWorkingDirectory()
    
18. End Sub
    
19. 
    
20. Public Sub TestOpenWord()
    
21.     ' Open word instances by document path
    
22.     Dim documentPath As String
    
23.     Dim instances As WordInstances
    
24.    
    
25.     documentPath = GetCurrentWorkingDirectory() & "\Document1.docx"
    
26. 
    
27.     instances = OpenWord(documentPath)
    
28. 
    
29.     ' Get first paragraph text
    
30.     Dim firstParagraphText As String
    
31.    
    
32.     firstParagraphText = GetWordParagraphText(instances.wordDoc, 1)
    
33.    
    
34.     ' Show first paragraph text
    
35.     MsgBox firstParagraphText
    
36.    
    
37.     ' Close word instances
    
38.     CloseWord instances
    
39. End Sub
    
40. 
    
41. Private Function GetCurrentWorkingDirectory() As String
    
42.     GetCurrentWorkingDirectory = ActiveWorkbook.Path
    
43. End Function
    
44. 
    
45. Private Function GetWordParagraphText(doc As Word.Document, paragraphIndex As Integer) As String
    
46.     Dim docParagraph As Word.Paragraph
    
47. 
    
48.     Set docParagraph = doc.Paragraphs(paragraphIndex)
    
49. 
    
50.     GetWordParagraphText = docParagraph.Range.Text
    
51. End Function
    
52. 
    
53. Private Function OpenWord(docPath As String) As WordInstances
    
54.     Dim instances As WordInstances
    
55. 
    
56.     With instances
    
57.         Set .wordApp = CreateObject("Word.Application")
    
58.         Set .wordDoc = GetObject(docPath)
    
59.     End With
    
60.    
    
61.     OpenWord = instances
    
62. End Function
    
63. 
    
64. Private Sub CloseWord(instances As WordInstances)
    
65.     With instances
    
66.         .wordDoc.Close
    
67.         .wordApp.Quit
    
68. 
    
69.         Set .wordApp = Nothing
    
70.         Set .wordDoc = Nothing
    
71.     End With
    
72. End Sub

複製代碼

---

作者: alan12345678900    時間: 2015-2-18 12:23 PM

Jeepluo 發表於 2015-2-18 12:08 PM
以下的資訊可以參考看看
1. 用 ActiveWorkbook.Path 取得 Excel 活頁簿的所在資料夾
2. Excel 2010 要用副 ...

我想請問你程式碼是你寫的嗎?

我在其他論壇也看到一樣的程式碼，一樣的回答。

---

作者: Jeepluo    時間: 2015-2-18 03:12 PM

不是的，我只是幫你找一下，剩下的就要靠自已整合了，其實就算不用寫VBA也可以達到匯至 Word 的，只要你使用 Word中的合併列印就可以達到了。

---

歡迎光臨 伊莉討論區 (http://a401.file-static.com/)

Powered by Discuz!