標題: word vba range 問題 [打印本頁]

---

作者: color790    時間: 2011-7-5 10:15     標題: word vba range 問題

本帖最後由 color790 於 2011-7-5 11:43 編輯

請問......下面是word vba連結excel, 謝謝各位幫忙~~~

下面紅色的部份,該怎麼寫才能是個range , 像excel那種 range(cells(6,3),cells(10,5))
        xlWk.Sheets(1).Range("c3") = myCell(ActiveDocument.Tables(16).Cell(6, 3))

---

作者: GBKEE    時間: 2011-7-5 11:49

回復 1# color790
Ps:Word的VBA不太熟悉
Application.DisplayAlerts = False      關閉系統的詢問視窗,經我測試   在Word 的 Vba是沒有作用

1. Sub Excel_Vba()
   
2.     Dim xlWkApp As Object, xlWk As Object
   
3.     Dim xlWord As Object
   
4.     Set xlWkApp = CreateObject("WORD.application")    '將它修改為WORD
   
5.     Application.DisplayAlerts = False                 '關閉系統的詢問視窗
   
6.     With xlWkApp                                      'WORD
   
7.         .Visible = True
   
8.         Set xlWord = .Documents.Open(Filename:="d:\試算表\55.doc") '修改為你要開啟doc檔案的目錄名稱
   
9.         Set xlWk = Workbooks.Open(Filename:="d:\試算表\Book3.xls", Password:="你的密碼", IgnoreReadOnlyRecommended:=False)
   
10.         '開啟Excel 檔案為唯讀模式   "d:\試算表\Book3.xls"->修改為你要開啟的Excel檔 ,你的密碼又修正
    
11.         xlWk.Sheets(1).Range("c3") = .ActiveDocument.Tables(16).Cell(6, 3)
    
12.         xlWk.Close False       '關閉Excel 檔案 不存檔
    
13.     End With
    
14.     xlWord.Close True          '關閉 Word檔案 存檔
    
15.     xlWkApp.Quit
    
16.     Set xlWkApp = Nothing
    
17.     Set xlWk = Nothing
    
18.     Set xlWord = Nothing
    
19.    
    
20. End Sub
    
21. Sub Word_Vba()
    
22.     Dim xlWkApp As Object, xlWk As Object
    
23.     Set xlWkApp = CreateObject("excel.application")
    
24.     Application.DisplayAlerts = False                 '關閉系統的詢問視窗
    
25.     With xlWkApp
    
26.         .Visible = True
    
27.         Set xlWk = .Workbooks.Open(Filename:="d:\試算表\Book3.xls", Password:="1234", IgnoreReadOnlyRecommended:=False)
    
28.         xlWk.Sheets(1).Range("c3") = ActiveDocument.Tables(16).Cell(6, 3)
    
29.         xlWk.Close False
    
30.     End With
    
31.     xlWkApp.Quit
    
32.     Set xlWkApp = Nothing
    
33.     Set xlWk = Nothing
    
34. End Sub

複製代碼

---

作者: Hsieh    時間: 2011-7-5 19:27

回復 1# color790

1. Sub nn()
   
2. Set DocApp = CreateObject("Word.Application") '創建WORD
   
3. With DocApp
   
4. .DisplayAlerts = wdAlertsNone '關閉警告窗
   
5. .Visible = True
   
6. Set MyDoc = .Documents.Open("E:\TEST.doc")'開啟Word文件
   
7. With MyDoc
   
8. MsgBox .Tables(1).Cell(1, 1).Range.Text '顯示第一個表格中第一個儲存格文字
   
9. .Close '關閉檔案
   
10. End With
    
11. .Quit '離開WORD
    
12. End With
    
13. End Sub

複製代碼

---

作者: color790    時間: 2011-7-6 12:02

回復 1# color790

謝謝2版主的回覆~~~~
:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)