-1
我有一個小的查詢。我在附有圖像的A列中有一些值。代碼來超鏈接列A中的項目的文件
我已經位於說，一些文件d：\ SOFTWARE工作\重要文件\ 文件名是正好在A列中提到的同名
我想超鏈接的單元格的值到存儲在位置的相應文件。
還附加了文件存儲的圖像。
這裏是我的代碼：除了一件事
Sub mymacro()
Dim objcreate As Object, objFolder As Object, objFile As Object, i As Integer
Dim ws As Worksheet, rng As Range
Set ws = Sheets("Sheet1")
Set rng = ws.Range("C1")
Set objcreate = createobject("Scripting.FileSystemObject")
Set objFolder = objcreate.GetFolder(rng)
i = 0
For Each objFile In objFolder.Files
'select cell
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
'create hyperlink in selected cell
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
objFile.Path, _
TextToDisplay:=objFile.Name
i = i + 1
Next objFile
End Sub
代碼工作正常。它與擴展名一起填充文件名。我只想要擴展名以外的文件名。 請提醒。 謝謝 薩爾曼
不需要代碼，只需轉到插入功能區，超鏈接...導航到文件...單擊確定。如果你有很多......使用宏記錄器讓你開始。 – Rdster
我在A列中有很多項目。隨着宏閱讀器一個接一個。我正在尋找運行循環來超鏈接項目... –
準確地說，使用宏記錄器來學習如何做一個，然後循環它。 SO不是代碼寫作服務，我們在這裏通過特定的問題和錯誤來互相幫助。當你有一些代碼和一個特定的問題時......你可以發佈你的代碼，我們可以幫你完成它。 – Rdster