Hyperlinks จากชื่อไฟล์

[titus2014]

สวัสดี ผู้เชี่ยวทุกท่านครับ

มีปัญหาสอบถามเกี่ยวกับ VBA

ผมมี VB ที่เข้าไปให้ชื่อในโพเดอร์ แล้วเอาชื่อมาโชว์ที่ คอลัม B แล้ว Directory อยู่ที่ คอลัม C
ผมอยากให้ Hyperlinks คอลัม C ไปที่ที่อยู่ไฟล์ต้องแก้ยังไงครับ

ความต้องการคือคลิ๊กที่ link Hyperlinks แล้วเปิดไฟล์เลย ครับ

Code: Select all

Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 2
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory

Cells(r, 3).Hyperlinks.Add Anchor:=Selection, Address:= _
        "Directory"
ListFile = Dir()
Loop
End Sub

ขอบคุณครับ

[niwat2811]

ลองแบบนี้ว่าใช้ได้ตามต้องการไหมครับ

Code: Select all

Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 1
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory
Range(Cells(r, 3), Cells(r, 3)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Directory & ListFile, _
        TextToDisplay:=Directory & ListFile
ListFile = Dir()
Loop
End Sub

[titus2014]

ลองแบบนี้ว่าใช้ได้ตามต้องการไหมครับ

Code: Select all

Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 1
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory
Range(Cells(r, 3), Cells(r, 3)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Directory & ListFile, _
        TextToDisplay:=Directory & ListFile
ListFile = Dir()
Loop
End Sub

ขอบคุณมากครับ ตรงตามความต้องการครับ