如何取得某個檔案的儲存格資料？（檔案檔名，寫在存儲存格內） - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 如何取得某個檔案的儲存格資料？（檔案檔名，寫在存儲存格內）

返回列表下一主題上一主題發帖

如何取得某個檔案的儲存格資料？（檔案檔名，寫在存儲存格內）

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2013-11-7 23:27 | 顯示全部帖子

回復 4# eigen

看來你是要讓輸出頁的儲存格，依據Setup的B1與B8所組成的外部參照字串做連結
例如:輸出頁A4要得到D:\report\[20131106 銷貨.xls]Sheet4!A4的值
所以輸出頁A4必須是公式='D:\report\[20131106 銷貨.xls]Sheet4'!A4
所以程式碼就直接寫入公式即可
Sheet2.[A4] = "='" & [B1] & [B8] & "'!A4"

Private Sub CommandButton1_Click()
Dim file_Input As String
file_Input = Application.GetOpenFilename("EXCEL檔(*.XLS),*xls")
If file_Input <> "" Then
MsgBox "Reference " & file_Input
Range("B1").Value = Replace(file_Input, Dir(file_Input), "[" & Dir(file_Input) & "]") '轉成參照形式的字串
Sheet2.[A4] = "='" & [B1] & [B8] & "'!A4" '輸出頁A4寫入公式
End If
End Sub

複製代碼

學海無涯_不恥下問

靜思自在 : 人生最大的成就是從失敗中站起來。

返回列表下一主題上一主題