請問怎麼取得使用中的檔案路徑

佩玄

大師好:
excel檔案是共用的,有多個人在使用,程式執行彙整時,
檔案常常變得好大.
我想用:1.先取得此檔案的路徑 2.再用唯讀開啓.3.取消共用 4.執行彙整.
目前遇到問題是:怎麼取得此檔案的路徑?(因為這檔案是放在'週'資料夾,隨著週新增資料夾)

kimbal

回復 1# 佩玄


取得檔案的路徑:
application.Path

這個是按"週份"生成位置, 例如本週會生成: c:\201211\
"C:\"+format(now(),"YYYYWW")&"\"

關於檔案因為共用變大,如果沒有需要記下歷史, 可以把這個掉去

下載 (32.13 KB)

2012-3-16 13:32

這個是變大問題的其中一個主要原因

hugh0620

回復 1# 佩玄

因樓主妳的說明不是很清楚~
僅能就妳所寫的步驟來自行設計~
1. 一個空白EXCEL
2. 執行按鈕中的程式
3. 選舉要打開的檔案
4. 以唯讀的方式OPEN file

剩下的兩個取消共用跟執行匯整~
就沒有寫了~ 僅供我會的部份給您參考~

1. Private Sub CommandButton1_Click()
   
2. PATCH = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls") '讀取檔案
   
3. If PATCH = False Then
   
4.     Exit Sub
   
5. Else
   
6.    Workbooks.Open Filename:=PATCH, ReadOnly:=True             '唯讀打開FILE
   
7. End If
   
8. 
   
9. End Sub

複製代碼

佩玄

謝謝kimbal與hugh0620回覆,主要是共用檔案有6個sheet,同時有6位各自塡入資料,
此檔案還有一個sheet_彙整,我有寫程式將這6個sheet資料彙整至同一個sheet中,
目前發生同時有多個人執行彙整時,檔案就會變很大.所以~
想在執行彙整前,此檔案先儲存再用唯讀開啓,再執行彙整,彙整後的sheet自行存入指定路徑中.
問題已解決了,太感謝了!