返回列表 上一主題 發帖

從一個Workbook抄寫資料到另一個Workbook

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-10-2 20:29 | 只看該作者

從一個Workbook抄寫資料到另一個Workbook

有兩個Workbook,稱之為A和B
資料在B
現在嘗試在A的VBA開啓B,運算B的macro,名為test
即
  1. workbooks.open thisworkbook.path & "\B.xls"
  2. application.run worbooks("'B.xls'!test")
複製代碼
到這裡沒有問題
成功開啓後
B的vba找出相關位置及抄寫,以range A1為例
  1. sub test()
  2. with sheet1
  3. .range(.cells(1,1),.cells(1,1).end(xldown).end(xltoright).address).copy workbooks("A.xls").sheet1.range("A1")
  4. end sub
複製代碼
在這裡它出現了error 438 物件不支援此屬性或方法
不知那裡錯了
謝謝各位解答
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2011-10-2 23:45 | 只看該作者
何不乾脆用usedrange
  1. Sub test()
  2. With Sheets(1)
  3. .UsedRange.Copy Workbooks("A.xls").Sheets(1).Range("A1")
  4. End With
  5. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-10-2 22:15 | 只看該作者
回復 1# FAlonso

A.xls的程式碼
  1. Sub Run_B_macro()
  2. Workbooks.Open ThisWorkbook.Path & "\B.xls"
  3. Application.Run "B.xls!test"
  4. End Sub
複製代碼
B.xls的程式碼
  1. Sub test()
  2. With Sheets(1)
  3. .Range(.Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)), .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).End(xlToRight)).Copy Workbooks("A.xls").Sheets(1).Range("A1")
  4. End With
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
2#
發表於 2011-10-2 21:41 | 只看該作者
回復 1# FAlonso


先問一點點資料,
為何要執行 B 的 vba 才作抄寫的動作,
不由 A 內的 vba 全程執行?

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題