Excel-VBA 問題 : 請教如何更正 別的檔案名稱 ?

2011-06-17 11:56 pm
本人有量jpg的圖片檔案需要更改為不同的(指定)名稱.如下圖為列.
想例用Excel VBA 來解決尼個問題.但本人不才,能力有限.還望各位幫助.

要求 : 請以Excel vba 寫出代碼! 謝謝 !
1. 想利用VBA 按鈕,把指定名稱的jpg.成更正.
2 假如圖中沒有我指定的舊file 如"A0007"時, 請以底色為黃色提示!

圖片參考:http://imgcld.yimg.com/8/n/HA07510437/o/701106170060213873460070.jpg
更新1:

謝謝提示!但問題二仍未能解決. 請問如何寫判斷戈一Part ? Dim i As Integer, MyPath As String With Sheet1 MyPath = ThisWorkbook.Path & "\" For i = 2 To .Range("a65536").End(xlUp).Row Name MyPath & Cells(i, "A").Value As MyPath & Cells(i, "B").Value Next i End With

回答 (1)

2011-06-18 12:53 am
✔ 最佳答案
你用 loop 中間加呢句就得, 點演繹可以自由發揮:

For…
Name myPath & "\" & [A2].value As _
myPath & "\" & [B2].value
Next…

2011-06-17 18:58:13 補充:
哈哈~ 奇怪我先頭有選擇性視覺障礙呀?! XDD…

If Len(Dir(MyPath & Cells(i, _
"A").Value)) = 0 Then
Cells(i, "A").Interior.ColorIndex = 6
Else
Name MyPath & Cells(i, "A").Value _
As MyPath & Cells(i, "B").Value
End If

PS: "\\" 多咗一個 \ …

2011-06-17 22:13:59 補充:
其實兩句用語我最近都分開引用過俾其他發問者, 不過你今次一次用晒喺你個 function core 度啫~


收錄日期: 2021-04-20 00:47:29
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20110617000051KK00602

檢視 Wayback Machine 備份