標題: 請問....word控制excel vba? [打印本頁]

---

作者: color790    時間: 2010-10-25 22:42     標題: 請問....word控制excel vba?

請問....我有個word檔用巨集轉成excel, 然後直接run excel內的巨集copy至另一個特定的excel(但檔名都不固定), 但在是再最後執行excel的巨集後有問題?可以幫我解一下嗎?謝謝~


[attach]3376[/attach]

---

作者: oobird    時間: 2010-10-26 07:26

"copy至另一個特定的excel(但檔名都不固定), "
你沒有開啟這個特定活頁簿的指令。

---

作者: color790    時間: 2010-10-26 11:00

特定的活頁簿會先開,由於是用2010版,所以開啟時都會多一個personal 活頁簿, 所以特定的活頁簿會排在第2個

---

作者: et5323    時間: 2010-10-26 12:08

1. 在Word里打开的book2.xls 和你用手工打开的Workbooks(2)并不在同一个Application进程里(用ctrl+alt+del调出"任务管理器",你会发现有两个EXcel进程),Workbooks(2).Activate会出错.

2. 是 For i = 0 To 11 还是 For i = 0 To 1?
ary2 = Array(.[e74], .[e75]), ary2只有2维,ary2(11)也会出错.

---

作者: color790    時間: 2010-10-26 15:55

回復 4# et5323

謝謝回答~~~
1.所以....應該是無法以word執行excel的vba? 還是有其他更好的方法
2.筆誤.....不好意思~ ^^"

---

作者: et5323    時間: 2010-10-26 16:40

在sub yy中将Workbooks(2)用代码打开,将 Workbooks(2).Activate 改为: Workbooks.open Workbooks(2)的全路径文件名

还有,为什么不把Sub yy的代码都移植到Word里呢?

---

作者: color790    時間: 2010-10-26 16:49

本帖最後由 color790 於 2010-10-26 22:11 編輯

回復 6# et5323

由於特定的excel檔,是由公司系統抓的,所以無法得知路徑.....
word與excel vba原來有通用.....我以為是word歸word, excel歸excel =.=||| 我再來試試好了

功力不夠,COPY進word 行不通 ....

---

作者: color790    時間: 2010-10-28 11:20

另外請問一下,以下為word的vba, 要怎麼改轉到excel後的字型及格式(格線,置中等....)
Sub test()
    Dim xlWkApp As Object, xlWk As Object
    Set xlWkApp = CreateObject("excel.application")
    With xlWkApp
        .Visible = True
        Set xlWk = .Workbooks.Add
        xlWk.Sheets(1).Range("a1") = ThisDocument.Tables(2).Cell(2, 6)
        xlWk.Sheets(1).Range("a2") = ThisDocument.Tables(2).Cell(5, 6)
        End With
End Sub

---

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