返回列表下一主題上一主題發帖

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

examsuper

小學生 Rank: 1

帖子: 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"
請問怎麼處理阿??
謝謝

樓主熱帖

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2010-9-2 15:52 | 只看該作者

回復 1# examsuper

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

TOP

examsuper

小學生 Rank: 1

帖子: 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-11-11

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

Sub Ex()
Dim file$, Ar
file = "F:\我的文件\9908\filename.xls"
Ar = Split(file, "\")
strDir = Replace(file, Ar(UBound(Ar)), "")
strFile = Ar(UBound(Ar))
ChDir strDir
Workbooks.Open (strFile)
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-9-2 20:02 | 只看該作者

Sub nn()
Dim fds As Object
Set fds = CreateObject("Scripting.FileSystemObject")
Set fs = fds.getfile("F:\我的文件\9908\filename.xls")
msgbox "路徑 =" & fds.GetParentFolderName(fs)
msgbox "檔名 =" & fs.Name
End Sub

複製代碼

學海無涯_不恥下問

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

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

examsuper

小學生 Rank: 1

帖子: 14
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: Windows XP
軟體版本: excel 2000
閱讀權限: 10
註冊時間: 2010-5-17
最後登錄: 2023-3-24

8^#

發表於 2010-9-3 16:29 | 只看該作者

太感謝各位先進的熱心了，
小弟真是受教了~謝謝每一位~

TOP

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題