返回列表 上一主題 發帖

請問如何自檔案路徑的字串中，拆出路徑和檔名?

examsuper

帖子
14 
主題
6 
精華
0 
積分
25 
點名
0  
作業系統
Windows XP 
軟體版本
excel 2000 
閱讀權限
10 
註冊時間
2010-5-17 
最後登錄
2023-3-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-9-2 15:10 | 只看該作者

請問如何自檔案路徑的字串中，拆出路徑和檔名?

請問各位先進~
Windows("filename.xls").Activate是不是不能引用路徑?例如Windows("F:\我的文件\9908\filename.xls").Activate
如果這樣的話，我想把路徑和檔名分別拆出(路徑和檔名都不是固定長度)，再 ChDir好了~
strDir = "F:\我的文件\9908\"
strFile = "filename.xls"
請問怎麼處理阿??
謝謝
收藏 分享

examsuper

帖子
14 
主題
6 
精華
0 
積分
25 
點名
0  
作業系統
Windows XP 
軟體版本
excel 2000 
閱讀權限
10 
註冊時間
2010-5-17 
最後登錄
2023-3-24 
8#
發表於 2010-9-3 16:29 | 只看該作者
太感謝各位先進的熱心了，
小弟真是受教了~謝謝每一位~

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
14  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-6 
7#
發表於 2010-9-3 00:35 | 只看該作者
本帖最後由 luhpro 於 2010-9-3 00:37 編輯

只要找到最後一個 "\" 的位置,
再依此將完整的檔名字串分別拆開取用即可.

Dim sStr$, i%, strDir$, strFile$
sStr = "F:\我的文件\9908\filename.xls"
i = InStrRev(sStr, "\", Len(sStr), 1)
strDir = Left(sStr, i)
strFile = Mid(sStr, i + 1, Len(sStr) - i)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
240  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-6 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-9-2 20:02 | 只看該作者
  1. Sub nn()
  2. Dim fds As Object
  3. Set fds = CreateObject("Scripting.FileSystemObject")
  4. Set fs = fds.getfile("F:\我的文件\9908\filename.xls")
  5. msgbox "路徑 =" & fds.GetParentFolderName(fs)
  6. msgbox "檔名 =" & fs.Name
  7. End Sub
複製代碼
學海無涯_不恥下問

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#
發表於 2010-9-2 18:45 | 只看該作者
回復 1# examsuper
    Windows("F:\我的文件\9908\filename.xls").Activate   改成如下
    Workbooks.Open("F:\我的文件\9908\filename.xls").Activate
  1. Sub Ex()
  2.     Dim file$, Ar
  3.    file = "F:\我的文件\9908\filename.xls"
  4.     Ar = Split(file, "\")
  5.     strDir = Replace(file, Ar(UBound(Ar)), "")
  6.     strFile = Ar(UBound(Ar))
  7.     ChDir strDir
  8.     Workbooks.Open (strFile)
  9. End Sub
複製代碼

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-9-9 
4#
發表於 2010-9-2 17:31 | 只看該作者
從字串取檔名的方式,可參考.
http://gb.twbts.com/index.php?topic=4068.0

如果用迴圈處理..
a = "F:\我的文件\9908\filename.xls"
For i = Len(a) To 1 Step -1
    If Mid(a, i, 1) = "\" Then
        file_name = Right(a, Len(a) - i)
        file_path = Left(a, i - 1)
        Exit For
    End If
Next i

TOP

examsuper

帖子
14 
主題
6 
精華
0 
積分
25 
點名
0  
作業系統
Windows XP 
軟體版本
excel 2000 
閱讀權限
10 
註冊時間
2010-5-17 
最後登錄
2023-3-24 
3#
發表於 2010-9-2 16:09 | 只看該作者
您誤會我意思了~是另一個檔
只是我把"完整路徑\檔名"當作參數，Windows().Activate就不WORK了~

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-9-9 
2#
發表於 2010-9-2 15:52 | 只看該作者
回復 1# examsuper

Windows("F:\我的文件\9908\filename.xls").Activate 這語法似乎沒必要..?
因為同一時間,不會開兩個同樣檔名的 excel 檔案..

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題