帖子: 1
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: XP、7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-5-19
最後登錄: 2013-11-1

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-3-27 10:22 | 只看該作者

[發問] 跨檔案取得其中某sheet內的某欄位值，應該如何使用VBA撰寫?

目前有一個需要跨檔案取得最新欄位值的需求，
而且要在不開另一份檔案的狀況下取得這個欄位的值，
不知道有沒有比較好的寫法?

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

9^#

發表於 2012-3-30 17:08 | 只看該作者

試成功,但是如果我想再更進階
在活頁簿1選"201"就會出現活頁簿2的201資料
在活頁簿1選"202"就

alsdream.zip (23.34 KB) 會出現活頁簿2的202資料 (此時活簿2的資料也會改)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2012-3-29 08:30 | 只看該作者

本帖最後由 Hsieh 於 2012-3-29 08:32 編輯

回復 6# VANESSA

這樣簡單範例應該比較容易知道如何使用
A1公式
='D:\[Book2.xls]Sheet1'!A1
A2是執行巨集nn的結果，A2是得到Book2的Sheet1工作表A1的值

Sub nn()
[A2] = ExecuteExcel4Macro("'D:\[Book2.xls]Sheet1'!R1C1") '使用4.0巨集取值，必須使用R1C1形式參照
End Sub

複製代碼

學海無涯_不恥下問

TOP

alexliou

中學生 Rank: 2

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

7^#

發表於 2012-3-29 07:14 | 只看該作者

本帖最後由 alexliou 於 2012-3-29 07:32 編輯

回復 6# VANESSA
附件中有兩個檔案
活頁簿2是關閉中(開啟中的也workable)的檔案, 你所要的資料假設在其中工作表1的"D3"儲存格
活頁簿2請把它放到 C:\Users\user\Documents 資料夾
這個檔案放到哪裡將會影響到GetValue函數的第一個引數
活頁簿1的工作表1是目前作用中的工作表
命令按鈕的工作很單純
就是去執行 Cells(1, 1).Value = GetValue("C:\Users\user\Documents", "活頁簿2.xlsx", "工作表1", "D3")

活頁簿1.zip (25.87 KB)

Alex

TOP

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

6^#

發表於 2012-3-28 10:01 | 只看該作者

請問可以提供實際的檔案嗎,謝謝
包含XLM檔.資料存於活頁簿2.資料放到目前作用中工作表的A1

TOP

alexliou

中學生 Rank: 2

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

5^#

發表於 2012-3-28 07:45 | 只看該作者

本帖最後由 alexliou 於 2012-3-28 07:50 編輯

也可以利用呼叫excel 提供的 XLM macro來達成.
底下的 GetValue Function有四個引數 :
‧path: 資料所在檔案的路徑 (e.g., "d:\Data\ or d:\Data")
‧file: 活頁簿名稱 (e.g., "Input.xls" or "Input.xlsx)
‧sheet: 工作表名稱 (e.g., "Sheet1")
‧ref: 你所要的值所在儲存格的位址參照 (e.g., "C5")

Private Function GetValue(path, file, sheet, ref)
' 從一個關閉的活頁簿中取資料
Dim arg As String
' 確定檔案存在
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' 設定執行XLM Macro的參數
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
' 執行Microsoft Excel 4.0 巨集
GetValue = ExecuteExcel4Macro(arg)
End Function

Alex

TOP

alexliou