Get Local URL

[Nimit]

ขอความช่วยเหลือด้วยครับ
เขียน Code Function GetURL2 ลงใน Module ไฟล์ Excel Drive C:\ ได้ผล Drive+Full file name ตามต้องการ แต่ย้าย Code ลงใน Module ไฟล์ Excel Drive D:\ ผลจะไม่แสดง Drive แต่จะแสดง ../../+Full file name จะแก้ปัญหาได้อย่างไรให้แสดง Drive แทน ../../
Function GetURL2(cell As Range)
Dim Ob As Object
Set Ob = cell.Range("A1").Hyperlinks(1)
GetURL2 = Ob.Address & Ob.SubAddress
End Function
ขอบคุณมากครับ

[Nimit]

ขอแก้ไขให้ตรงตามกฎข้อที่ 5 ครับ

Code: Select all

Function GetURL2(cell As Range)
Dim Ob As Object
Set Ob = cell.Range("A1").Hyperlinks(1)
GetURL2 = Ob.Address & Ob.SubAddress
End Function

[snasui]

กรุณาแนบตัวอย่างไฟล์ Excel พร้อม Code VBA ที่เขียนเอาไว้เองมาแล้วด้วย จะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ

[Nimit]

ขอส่งข้อมูลให้ใหม่รวมทั้งหมดครับ
เขียน Code Function GetURL2 ลงใน Module ไฟล์ Excel Drive C:\ ได้ผล Drive+Full file name ตามต้องการ แต่ย้าย Code ลงใน Module ไฟล์ Excel Drive D:\ ผลจะไม่แสดง Drive แต่จะแสดง ../../+Full file name จะแก้ปัญหาได้อย่างไรให้แสดง Drive แทน ../../
1. ไฟล์ข้อมูลชื่อ Book1.pdf อยู่ใน Floder D:\Test001\Test02 ส่งไฟล์ .zip ที่แนบมา
2. ไฟล์ Excel ชื่อ Get Local URL.xlsm ถ้าอยู่ที่ใดที่หนึ่งของ Drive C: Function ไม่มีปัญหา ถ้าอยู่ Drive อื่นแล้วจะแสดง ../../

Code: Select all

Function GetURL2(cell As Range)
Dim Ob As Object
Set Ob = cell.Range("A1").Hyperlinks(1)
GetURL2 = Ob.Address & Ob.SubAddress
End Function

ขอบคุณมากครับ

[snasui]

ผมทดสอบแล้วไม่พบปัญหาใด ฟังก์ชัน GetURL2 ที่เขียนมาก็ให้คำตอบได้ทั้ง Drive D: Drive C:

จากภาพด้านล่างได้ลอง Debug.Print เข้าไปในฟังก์ชันเดิมเพื่อดู SubAddress ก็ไม่พบว่าแสดงค่าใดออกมาครับ ส่วนที่ล้อมกรอบไว้เป็นการทดสอบให้เห็นว่าค่าที่ได้แตกต่างกันหรือไม่ อย่างไรครับ

[Nimit]

ขอบคุณมากครับ ผมทดสอบกับเครื่องอื่นแล้วก็ปกติเหมือนกัน เลยไม่รู้ว่าจะแก้ปัญหาเครื่องที่แสดงผลไม่ได้ๆอย่างไร

[snasui]

ลอง Repair Microsoft Office ใหม่หรือ Uninstall และ Install ตัวสมบูรณ์ลงไปใหม่ครับ