請教關於"不打開Excel檔案，寫資料到儲存格裡" - Excel程式區

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

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

1^# 跳轉到 »

發表於 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--->會詢問更新 & 不要更新
兩個活頁簿都有開啟,會自動更新

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

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

2^#

發表於 2015-1-12 13:20 | 顯示全部帖子

回復 3# rbktwi

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

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

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

3^#

發表於 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

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

4^#

發表於 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