Board logo

標題: [發問] 不同檔案間連續儲存格值如何抓取 [打印本頁]
作者: oao    時間: 2013-11-20 20:41     標題: 不同檔案間連續儲存格值如何抓取

在同一資料夾內有A.xls和B.xls兩個檔案，在A.xls開啟而B.xls不開啟的狀態下
要使A.xls的SheetA工作表上儲存格A1值=B.xls的SheetB工作表上儲存格A1值
我用如下寫法

Range("a1").Formula = "='[B.xls]SheetB'!$A$1"

請問如果在相同情形下(A.xls開啟而B.xls不開啟)
如何將B.xls的SheetB工作表在A、B欄位上有資料的儲存格值寫入A.xls的SheetA工作表上A、B欄相對應儲存格
作者: GBKEE    時間: 2013-11-21 16:17

回復 1# oao
  1. Option Explicit
  2. Sub Ex()
  3.     '在同一資料夾內有A.xls和B.xls兩個檔案
  4.     With Workbooks("A.xls").Sheets("A").[A:B]
  5.         .FormulaR1C1 = "=[B.xls]B!RC"
  6.         .Value = .Value
  7.         .Replace "0", "", xlWhole   '去掉沒資料: 沒資料 ->FormulaR1C1 = 0
  8.     End With
  9. End Sub
複製代碼
作者: oao    時間: 2013-11-21 16:59

本帖最後由 GBKEE 於 2013-11-21 17:15 編輯

回復 2# GBKEE
除了感恩...還是感恩....謝謝GBKEE，困惑解開了希望有朝一日可以有能力像版大一樣對程式編寫需要幫助的人送上支援，雖然路還很遙遠......
作者: GBKEE    時間: 2013-11-21 17:24

回復  GBKEE
對程式編寫需要幫助的人送上支援oao 發表於 2013/11/21 16:59

期望有心人熱心的支援
作者: ML089    時間: 2013-11-27 23:50

回復 2# GBKEE

請問GBKEE大

2# 是 A.xls開啟而B.xls不開啟，將B.xls的資料寫入A.xls的儲存格中

另請教，若不先寫入A.xls儲存格，可以直接讀到變數陣列中嗎
例如 B.xls不開啟，直接將其A欄所有的值讀到 Arr 陣列變數中
作者: GBKEE    時間: 2013-11-28 10:22

回復 5# ML089
直接置入陣列,有難度.



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