返回列表 上一主題 發帖

[發問] 請問如何使用 VBA 來載入一個檔案並在特定儲存格秀出讀入的檔名 (不含路徑)

a_peter

帖子
3 
主題
1 
精華
0 
積分
50 
點名
189  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
註冊時間
2015-7-20 
最後登錄
2026-10-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-7-20 17:48 | 只看該作者

[發問] 請問如何使用 VBA 來載入一個檔案並在特定儲存格秀出讀入的檔名 (不含路徑)

請問如何使用 VBA 來載入一個檔案並在特定儲存格秀出讀入的檔名 (不含路徑)

1. 假設讀入的檔名為 C:\test\short.txt 但只要在 Excel 的 C2 位置秀出 short

Thank you~
收藏 分享

a_peter

帖子
3 
主題
1 
精華
0 
積分
50 
點名
189  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
註冊時間
2015-7-20 
最後登錄
2026-10-30 
5#
發表於 2015-7-27 13:04 | 只看該作者
謝謝這個可以了~

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2015-7-27 09:58 | 只看該作者
回復 3# a_peter
試試看
  1. 'UBound 函數傳回 Long值, 表示指定陣列某維最大可使用的陣列索引
  2. Option Explicit
  3. Sub Ex()
  4.     Dim a As String, s As Variant
  5.     a = "C:\test\short.txt"
  6.     s = Split(a, "\")
  7.     MsgBox s(UBound(s))
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

a_peter

帖子
3 
主題
1 
精華
0 
積分
50 
點名
189  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
註冊時間
2015-7-20 
最後登錄
2026-10-30 
3#
發表於 2015-7-27 09:38 | 只看該作者
謝謝您, 請問可以不要有檔案路徑嗎?
A1=short.txt

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2015-7-25 01:15 | 只看該作者
運用一下這幾個函數，就可輕鬆達成喔~
InStr
InStrRev
Mid

MsgBox (Mid(Range("A1"), InStrRev(Range("A1"), "\") + 1, InStr(Mid(Range("A1"), InStrRev(Range("A1"), "\") + 1), ".") - 1))

A1=C:\test\short.txt
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題