返回列表 上一主題 發帖

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

佩玄

帖子
12 
主題
6 
精華
0 
積分
65 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
桃園 
註冊時間
2010-5-12 
最後登錄
2014-5-29 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-3-16 11:11 | 只看該作者

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

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

佩玄

帖子
12 
主題
6 
精華
0 
積分
65 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
桃園 
註冊時間
2010-5-12 
最後登錄
2014-5-29 

論壇贊助勳章
4#
發表於 2012-3-20 13:26 | 只看該作者
謝謝kimbal與hugh0620回覆,主要是共用檔案有6個sheet,同時有6位各自塡入資料,
此檔案還有一個sheet_彙整,我有寫程式將這6個sheet資料彙整至同一個sheet中,
目前發生同時有多個人執行彙整時,檔案就會變很大.所以~
想在執行彙整前,此檔案先儲存再用唯讀開啓,再執行彙整,彙整後的sheet自行存入指定路徑中.
問題已解決了,太感謝了!

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
3#
發表於 2012-3-19 16:40 | 只看該作者
回復 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

  9. End Sub
複製代碼
學習才能提升自己

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-3-16 13:34 | 只看該作者
回復 1# 佩玄


取得檔案的路徑:
application.Path

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

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

這個是變大問題的其中一個主要原因
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題