PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-26 04:19 | 顯示全部帖子

[發問] 如何讓A檔儲存在"X檔",讓"X檔"當作資料庫

目的是: 讓A檔可以在按下儲存前,將全部的檔案內容存到X檔當作資料庫
而X檔平常都以唯讀狀態開啟,每五分鐘重新開啟一次(以維持最新狀態)=>這個部份我會

X檔的內容本身會有A檔的所有分頁
假設兩個檔位置都在  "P:\REPORT\Daily Check"
檔案名稱為"A.xlsb","X.xlsb"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call 儲存前儲存至資料庫          '已開啟檔案A檔,並且在A檔儲存前按下
End Sub

但要如何撰寫這個程式碼可以達到最快的效果?
Sub 儲存前儲存至資料庫
   '程式內容
End Sub

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

2^#

發表於 2014-11-28 05:18 | 顯示全部帖子

回復 2# GBKEE

感謝超版大大,下面學習了另存新檔並非一定要影響本身的檔案視窗
ThisWorkbook.SaveCopyAs Xpath & "x.xlsb" 'ThisWorkbook -> 這程式在 "A.xlsb"的專案模組中

但我本身的問題有個不同點
檔案有A檔,B檔~F檔
資料庫的檔案只有一個X檔(因此用此方法則不妥)

何種方式在於A檔的1~10個分頁"覆蓋"X檔的相同名稱分頁會比較快呢~?

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

3^#

發表於 2014-12-2 05:05 | 顯示全部帖子

回復 5# GBKEE

感謝大大!待會就來試一下

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

4^#

發表於 2014-12-2 07:54 | 顯示全部帖子

本帖最後由 PKKO 於 2014-12-2 07:57 編輯

回復 5# GBKEE

超版大大,感謝您的回覆
但以下兩行程式碼皆無反應
Sh(1).UsedRange.Clear
Sh(2).Copy Sh(1).Range("a1")
小弟嘗試了一下仍無法用SET的方式成功
因此改為以下程式碼,目前已可正常使用
存取速度大約兩秒以內(可能是SHEET不多的關係目前還滿快的)

感謝大大,po上小弟實際的程式碼

Sub 儲存前儲存至資料庫()
Application.ScreenUpdating = False '關閉螢幕
Application.DisplayAlerts = False '關閉警告視窗
Dim Xpath As String, A As Variant, sh As Worksheet
W1 = ThisWorkbook.Name
Xpath = "C:\Users\apple\Google 雲端硬碟\Excel\"
Workbooks("資料庫.xlsb").Close False '儲存開啟中的檔案,此開啟中的檔須先關閉
Workbooks.Open (Xpath & "資料庫.xlsb")
For Each sh In Workbooks(W1).Sheets
Workbooks("資料庫.xlsb").Sheets(sh.Name).UsedRange.Clear
Workbooks(W1).Sheets(sh.Name).[a1].CurrentRegion.Copy
Workbooks("資料庫.xlsb").Sheets(sh.Name).Activate'有點多餘的程式碼,但不太會改
Range("a1").Select'我只是要讓下面貼到a1
Workbooks("資料庫.xlsb").Sheets(sh.Name).Paste'直接貼上不會貼到[A1],因此多了上面兩行程式碼
Next
Workbooks("資料庫.xlsb").Close True
Workbooks.Open Xpath & "資料庫.xlsb", ReadOnly:=True '再度開啟檔案(唯讀)
Application.WindowState = xlMinimized '將資料庫最小化
Application.CutCopyMode = xlCopy '清除剪貼簿
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "操作成功"
End Sub

複製代碼

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

5^#

發表於 2014-12-2 14:11 | 顯示全部帖子

回復 8# GBKEE

原來如此,感恩!

PKKO

TOP