麻辣家族討論版版 » Excel程式區 » 多個不同檔名的檔案處理

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

多個不同檔名的檔案處理

小學生 Rank: 1

帖子: 3
主題: 2
精華: 0
積分: 5
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 10
註冊時間: 2012-7-13
最後登錄: 2012-7-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-7-13 10:00 | 只看該作者

多個不同檔名的檔案處理

Dim OldName, NewName
OldName = "D:\0607-H7P-N\0607-H-7P-N_002.mdf": NewName =
"D:\0607-H7P-N\0607-H-7P-N_002.000" ' 定義檔案名稱。
Name OldName As NewName ' 更改檔名

我要0607-H-7P-N_002.mdf檔名改為0607-H-7P-N_002.000

如果我之後將mdf不同檔名放入此目錄，要直接搜尋該檔並將該附檔名改成.000

是不是可以用*代表0607-H-7P-N_002整個字串，我還有其他的語法需要用到*可以代替不同檔名

因為我不會寫vb，麻煩是否有人能夠幫忙解惑

謝謝

收藏

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2012-7-18 09:26 | 只看該作者

回復 4# hanababy0813

可在前面加上
Application.DisplayAlerts = False

最後執行完加上
Application.DisplayAlerts = true

可以關掉提示視窗~ 這樣會直接將檔案覆蓋過去唷~ 請確定你的作業是否要這樣處理

學習才能提升自己

小學生 Rank: 1

帖子: 3
主題: 2
精華: 0
積分: 5
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 10
註冊時間: 2012-7-13
最後登錄: 2012-7-16

4^#

發表於 2012-7-16 13:44 | 只看該作者

Kimbal

我執行後，他一直出現檔案已存在的視窗

有哪個部分要改的嗎?

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章

3^#

發表於 2012-7-13 14:00 | 只看該作者

把 D:\0607-H7P-N\ 下所有 .mdf 轉為 .000

Sub test()
Dim myFileName
Dim myPath
Dim newExt
myFileName = "*.mdf"
myPath = "D:\0607-H7P-N\"
newExt = ".000"
myName = Dir(myPath & myFileName)
Do While myName <> ""
NewName = Left(myName, Len(myName) - InStr(StrReverse(myName), ".")) & newExt
Name myPath & myName As NewName
myName = Dir
Loop
End Sub

複製代碼

懂得發問,答案就會在其中

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

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

2^#

發表於 2012-7-13 10:42 | 只看該作者

回復 1# hanababy0813

推薦使用其他檔案更名軟體
例如 MyRename
應該不用寫VB吧...

boyao

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

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