帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-25 22:42 | 只看該作者

請問....word控制excel vba?

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

123.rar (17.88 KB)

樓主熱帖

初學者color

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-10-26 07:26 | 只看該作者

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

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

3^#

發表於 2010-10-26 11:00 | 只看該作者

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

初學者color

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

4^#

發表於 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)也会出错.

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

5^#

發表於 2010-10-26 15:55 | 只看該作者

回復 4# et5323

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

初學者color

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

6^#

發表於 2010-10-26 16:40 | 只看該作者

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

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

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

7^#

發表於 2010-10-26 16:49 | 只看該作者

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

回復 6# et5323

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

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

初學者color

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

8^#

發表於 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

初學者color

TOP