返回列表 上一主題 發帖

[發問] 如何寫自動開啟同日期、類似檔案的程式 (已解決)

haoxhui

帖子
6 
主題
2 
精華
0 
積分
29 
點名
0  
作業系統
WIN7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2011-3-23 
最後登錄
2011-4-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-23 23:39 | 只看該作者

[發問] 如何寫自動開啟同日期、類似檔案的程式 (已解決)

本帖最後由 haoxhui 於 2011-3-26 09:36 編輯

Q：
開啟「2011_03_23」的excel檔後，執行自動開啟「20110323」的檔，
同理
開啟「2011_03_24」的excel檔後，執行自動開啟「20110324」的檔，
請問程式應如何寫呢？

因為兩個系統每天都會各產出一個檔案名稱類似的檔案，
為了比較分析內容，
每天都要重複的開啟比較，
真的很麻煩，
想請教各位高手應如何寫這個程式，
感恩吶~
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-3-24 08:14 | 只看該作者
回復 1# haoxhui
Workbooks.Open Replace(ActiveWorkbook.FullName, "_", "")

TOP

haoxhui

帖子
6 
主題
2 
精華
0 
積分
29 
點名
0  
作業系統
WIN7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2011-3-23 
最後登錄
2011-4-24 
3#
發表於 2011-3-24 20:16 | 只看該作者
回復 2# GBKEE


版主，您真是太神奇了！
嗯，是太厲害了！
崇拜！崇拜！
我一直在鑽牛角尖，想說檔案名稱應該要怎麼拆字母，
沒想到這麼簡單就解決了．．．．

那我可以問深入一點嗎？
其實兩個檔案名稱分別是：「A_2010_03_23」、「B20100323」
而且分開在兩個資料匣內，
請問這樣程式要怎麼寫呢？

很抱歉我沒有一次敘述清楚，
造成困擾還請見諒！
~學而不思則罔，思而不學則殆~
~以史為鏡可以知興替，以人為鏡可以明得失~

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
4#
發表於 2011-3-24 21:27 | 只看該作者
Workbooks.Open "C:\Documents and Settings\Administrator\My Documents\A\" & Replace(Replace(ActiveWorkbook.Name, "_", ""), "A", "B")

當中C:\Documents and Settings\Administrator\My Documents\A是B2010xxxx的資料夾位置
80 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-3-24 21:39 | 只看該作者
回復 3# haoxhui
你還沒說明 「A_2010_03_23」、「B20100323」
兩者 是從 A-B 還是 從 B-A  開啟
下列程式碼是
Right(string, length)  傳回一字串右邊特定數量字元所構成的 Variant (String)。
函數的用法
  1. Sub Ex()
  2.     Dim A(1), B(1)
  3.     A(0) = "D:\"
  4.     B(0) = "D\TEST\"
  5.     A(1) = "A_2010_03_23"
  6.     B(1) = "B20100323"
  7.     A(1) = Right(Replace(A(1), "_", ""), 8)
  8.     B(1) = Right(B(1), 8)
  9.     Workbooks.Open A(0) & A(1)
  10.     Workbooks.Open B(0) & B(1)
  11. End Sub
複製代碼

TOP

haoxhui

帖子
6 
主題
2 
精華
0 
積分
29 
點名
0  
作業系統
WIN7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2011-3-23 
最後登錄
2011-4-24 
6#
發表於 2011-3-24 23:10 | 只看該作者
回復 5# GBKEE

感謝「版主」和「FAlonso」 大大，
我的檔案是由 A 開 B，
版主所教的replace我會練習的，
剛剛我一直在「揣測」如果有兩個地方以上replace的寫法，
FAlonso大大教了我，非常感謝！
而版主第2個程式感覺是比較有邏輯，
但老實說我是有點看不懂啦，
我會再練習看看的！

而我這個問題我晚上摸索時已經克服了，
我的解決方法有點偷雞，
因為我發現A檔案中有一個固定的欄位會顯示日期，
而且就是B檔案的格式20110323，
所以我將程式寫為：
   file_name= Sheets(1).Range("A3").Value
    Workbooks.Open filename:="D:\DailyB\B" & file_name

總之特別感謝版主的熱心回覆，
我會針對版主的方法繼續練習及精進的，
感恩再感恩！
~學而不思則罔，思而不學則殆~
~以史為鏡可以知興替，以人為鏡可以明得失~

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題