返回列表 上一主題 發帖

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

從一個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! 代碼

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題