如何利用VBA來達到 "連結" 效果?

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

13^# 跳轉到 »

發表於 2016-1-25 13:57 | 只看該作者

回復 12# RCRG

我測試應該沒有問題

先傳檔案上來看看

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

12^#

發表於 2016-1-25 12:22 | 只看該作者

回復 10# ML089

為什麼我範圍自己改成如下，VBA還是會跳出問題視窗呢

'VBA程式放在使用檔.XLS中 ThisWorkbook
Private Sub Workbook_Open()
xF = "'C:\Documents and Settings\桌面\利用VBA更新連結\修改資料夾\[修改檔.xls]工作表A'!R1C1:R500C81"
Workbooks("使用檔.xls").Worksheets("工作表a").Range("A1:CC500").FormulaArray = "=if(" & xF & "="""",""""," & xF & ")"
End Sub

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

11^#

發表於 2016-1-24 19:38 | 只看該作者

回復 8# RCRG

這樣才能不開 "修改檔" ，"使用檔"又能同步更新

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

10^#

發表於 2016-1-24 19:35 | 只看該作者

回復 9# RCRG

R1C1:R999C7

R1:第1列
C1:第1欄
等於 A1

R999:第999列
C7:第7欄
等於 G999

U1:CC300 = R1C21:R300C81
COLUMN(U1)=21
COLUMN(CC300)=81

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

9^#

發表於 2016-1-24 18:50 | 只看該作者

回復 7# ML089

請教一下M大，我把您的範圍"A1:G999"改成其他範圍(如："A1:BB500" 或 "U1:CC300"..等)，好像就會出現錯誤，
自己研究了一下好像是上面這個R1C1:R999C7也要跟著修改沒錯吧，可是我不懂R1C1:R999C7是什麼意思，不知能否說明一下；
或者除了R1C1:R999C7，還有甚麼地方也需一起修改呢?

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

8^#

發表於 2016-1-24 13:54 | 只看該作者

回復 7# ML089

謝謝ML089大大的解答，我要的形式就是這樣，等等再測試看透過您的VBA和我本來的直接公式連結，程式跑起來會不會還是很花時間；
對了！所以這是開檔複製另一個活頁簿的"數值"吧，因為字體(儲存格)顏色、字體大小、格式、甚至註解好像都無法複製！

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2016-1-23 23:50 | 只看該作者

本帖最後由 ML089 於 2016-1-23 23:51 編輯

回復 6# RCRG

'VBA程式放在使用檔.XLS中 ThisWorkbook
Private Sub Workbook_Open()
xF = "'C:\Documents and Settings\桌面\利用VBA更新連結\修改資料夾\[修改檔.xls]工作表A'!R1C1:R999C7"
Workbooks("使用檔.xls").Worksheets("工作表a").Range("A1:G999").FormulaArray = "=if(" & xF & "="""",""""," & xF & ")"
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

6^#

發表於 2016-1-23 16:07 | 只看該作者

回復 5# RCRG

Microsoft Query資料連結的方式自己弄了半天還是不會用，都會出現 "此資料來源中並未存在可使用的表格" ，所以這方面就放棄了...XD
硬是給他用工作表a'A1=工作表A'!A1 的公式來連結兩個活頁簿的資料，實測結果就是開檔慢、存檔也慢，每次時間就是3、40秒起跳；
試著自己在"使用檔"錄巨集，但是"修改檔"一關閉檔案或移動路徑，巨集就完全沒用了！...求助無門了....QQ

Sub 巨集1()
'
' 巨集1 巨集
'

'
Windows("修改檔.xls").Activate
Cells.Select
Selection.Copy
Windows("使用檔.xls").Activate
Cells.Select
ActiveSheet.Paste
End Sub

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

5^#

發表於 2016-1-15 17:38 | 只看該作者

回復 4# stillfish00

我的用意只是要能 "透過活頁簿A去修改活頁簿B"，因為活頁簿B是寫給使用者在用的，所以他們可能會複製去使用而且放在任何路徑，不過沒關係，我只要在活頁簿B寫入VBA(或者像目前用連結更新的方式)，就能隨時透過活頁簿A間接達到修改活頁簿B的需求；
也因為活頁簿A和活頁簿B兩者內容會一模一樣，所以我才會用到 "複製" 字眼，不太會形容與表達，歹勢！XD
我只是在想，除了用更新連結方式，是否能透過VBA，或者有更聰明的辦法呢? 因為感覺更新連結資料量會比較大，畢竟可能是幾千列的內容。

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2016-1-15 14:26 | 只看該作者

本帖最後由 stillfish00 於 2016-1-15 14:32 編輯

回復 3# RCRG
如果只是要連線其他EXCEL內的Table
可用資料>(取得外部資料)從其他來源>從Microsoft Query>
Excel files
建立該Table的連線

https://support.office.com/zh-TW ... 3-9c38-4c62f252da2e
建議你多看看OFFICE的說明

但是這跟你2#說的複製貼上是兩回事

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]