[發問] 請教關於&quot;不打開Excel檔案，寫資料到儲存格裡&quot;

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-1-12 12:42 | 只看該作者

本帖最後由 HSIEN6001 於 2015-1-12 12:48 編輯

回復 1# rbktwi

沒打開的Excel"活頁簿2"儲存格A1裡,輸入
=[活頁簿1.xls]Sheet1!A1
or
='[活頁簿1.xls]Sheet1'!A1

打開活頁簿2時,但沒有開啟活頁簿1--->會詢問更新 & 不要更新
兩個活頁簿都有開啟,會自動更新

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

3^#

發表於 2015-1-12 13:14 | 只看該作者

回復 2# HSIEN6001

抱歉剛忘記備註

舉例活頁簿2的部分因為數量多，沒辦法一一先把函數或者vba建立好，所以等於是要在活頁簿1處理完，在不打開活頁簿2的情況下，把值寫入到活頁簿2的儲存格裡。

感謝HSIEN6001回覆與提醒!

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2015-1-12 13:20 | 只看該作者

回復 3# rbktwi

難理解是.... 活頁簿2多? .... 活頁簿1處理完
傳上附件參考,才能理解你要的需求

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

5^#

發表於 2015-1-12 15:27 | 只看該作者

本帖最後由 rbktwi 於 2015-1-12 15:28 編輯

抱歉~HSIEN6001

那這樣說的話

舉例活頁簿1 與活頁簿2 活頁簿3 活頁簿4 ~ 活頁簿100

要把活頁簿1裡A1的值(ex:123)，寫入到活頁簿2~100，總共99個活頁簿的A1裡

在活頁簿2~100不需要"開啟" 與 "寫入任何函數or程式" 的情況下，

活頁簿1該怎麼編寫函數或程式碼才能達到"寫值到其他活頁簿裡"呢? 感謝回覆~

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2015-1-12 17:33 | 只看該作者

回復 5# rbktwi

不打開,怎麼放入資料???

Sub 同資料夾內大量檔案存取()
Dim Path As String, file As String
Application.ScreenUpdating = False '關閉屏幕更新
Path = "C:\資料夾\" '來源資料夾,自行修正
file = Dir(Path & "*.xls") '來源檔名, 表示法 "*.xls" or "*.csv" or "關鍵字*.xls"
Do While file <> ""
Application.DisplayAlerts = False '一般提警示訊息關閉
With Workbooks.Open(Path & file)
[A1] = "=[活頁簿1.xls]Sheet1!A1" '活頁簿1.xls 名稱自行修正
ActiveWindow.Close True
End With
file = Dir
Loop
End Sub

複製代碼

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2015-1-12 18:11 | 只看該作者

回復 6# HSIEN6001

抱歉!少了紅字那一行

Sub 同資料夾內大量檔案存取()
Dim Path As String, file As String
Application.ScreenUpdating = False  '關閉屏幕更新
Path = "C:\資料夾\"                '來源資料夾,自行修正
file = Dir(Path & "*.xls")       '來源檔名, 表示法 "*.xls" or "*.csv" or "關鍵字*.xls"
      Do While file <> ""
         Application.DisplayAlerts = False    '一般提警示訊息關閉
         With Workbooks.Open(Path & file)
            [A1] = "=[活頁簿1.xls]Sheet1!A1" '活頁簿1.xls 名稱自行修正
            ActiveWindow.Close True
         End With
         file = Dir
      Loop
Application.ScreenUpdating = True '打開屏幕更新
End Sub

rbktwi

小學生 Rank: 1

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

8^#

發表於 2015-1-14 14:51 | 只看該作者

了解~ 原來一定要打開。感謝HSIEN6001 ~

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

9^#

發表於 2015-1-14 18:19 | 只看該作者

Sub 幕後開啟EXCEL_寫入()
Dim X As New Application
With X.Workbooks.Open("D:\XXX.xls")
　　.Sheets("Sheet1").[A65536].End(xlUp)(2) = Now
　　.Close 1
End With
End Sub