สอบถามการแก้ไข link ใน excel ค่ะ

[jex]

สวัสดีค่ะ รบกวนสอบถามการแก้ไขลิ้งค์ใน excel ค่ะ คือก่อนหน้านี้ได้ใช้ excel 2003 เป็นไฟล์นามสกุล xls และได้ทำการแก้โดย convert มาเป็น xlsx ทำให้ไม่สามารถลิ้งค์ไฟล์ได้ค่ะ
ตัวอย่างข้อมูลที่แนบมาคือ ทำลิ้งที่ชีท Booklink ให้ไปลิ่งค์ข้อมูลที่ A001-A005.xls แต่พอทำการ convert ให้เป็น xlsx ทำให้ลิ้งไม่ได้ขึ้น error ว่า Cannot open the specified file. ซึ่งข้อมูลที่ทำลิ้งค์แบบนี้มีค่อนข้างเยอะค่ะ เลยอยากรบกวนถามว่าสามารถทำให้ลิ้งค์ไฟล์ที่มีเก่าที่เป็น A001-A005.xls เปลี่ยนเป็น A001-A005.xlsx แบบทำให้เปลี่ยนนามสกุลเป็น xlsx ทั้งหมดทีเดียวได้ไหมคะไม่ต้องทำทีละอันค่ะ ตอนนี้ใช้วิธีแก้คือกดที่ลิ้งค์แต่ละตัวอยู่ค่ะ ขอบคุณค่ะ

[snasui]

Link ที่พูดถึงเป็น Hyperlink ไม่ใช่ Link ของสูตร การเปลี่ยนลักษณะนั้นจะต้องคลิกเปลียนทีละตัว ยกเว้นเขียน VBA เข้าไปจัดการ

หรือไม่เช่นนั้นก็ใช้สูตร Hyperlink เข้ามาช่วยจะได้สะดวกในการเปลี่ยนค่าตำแหน่งปลายทาง ฟังก์ชั่น Hyperlink ศึกษาจากที่นี่ครับ http://office.microsoft.com/th-th/excel ... aspx?CTT=1

[jex]

ขอบคุณค่ะ เดี๋ยวลองศึกษาค่ะ รบกวนถามค่ะ ถ้าเป็น VBA จะสามารถเปลี่ยนการนามสกุลการลิ้งค์ได้ไหมคะ คือไม่เคยเคยใช้ VBA เลยค่ะ ตอนนี้ใช้การเปลี่่ยนโดยการ Edit Hyper link แล้วก็เปลี่ยน .xls เป็น .xlsx ค่ะ ขอบคุณมาก ๆ ค่ะ

[snasui]

VBA เป็นการเขียนโปรแรกมควบคุมการทำงานของ Excel สามารถทำได้ทุกอย่างแทบจะไร้ขีดจำกัดครับ

[jex]

ขอบคุณค่ะ เดี๋ยวจะลองไปศึกษา VBA ค่ะ ขอบคุณค่ะ

[jex]

ลองใช้ VBA ในการเปลี่ยนไฟล์ .xls ไปเป็น .xlsx แล้วค่ะ ชื่อไฟล์เปลี่ยน แต่เปิดไฟล์แล้ว error เลยค่ะ Excel cannot open the file book.xlsx because the file format or file extension is not valid. verify that the file has not been corrupted and that the file extension matches the format of the file. เลยงงว่าเปลี่ยนชื่อได้แต่เปิดไม่ได้ค่ะ

Code: Select all

Sub Test() 
     
    Dim fName       As String 
    Dim MyFolder    As String 
     
    MyFolder = "C:\Test\" '<<== adjust to suit
     
    If Right$(MyFolder, 1) <> "\" Then MyFolder = MyFolder & "\" 
     
    fName = Dir(MyFolder & "*.xls") 
     
    Do While Len(fName) 
        Name MyFolder & fName As MyFolder & Replace(fName, ".xls", ".xlsx", , , 1) 
        fName = Dir() 
    Loop 
     
End Sub

[snasui]

สิ่งที่คุณทำตาม Code นั้นคือเปลี่ยนชื่อไฟล์ใน Folder แต่สิ่งที่ควรทำคือเปลี่ยน Hyperlink เพื่อให้ Link ไปยังไฟล์ที่ถูกต้อง

การไปเปลี่ยนชื่อไฟล์ใน Folder จะทำให้ไฟล์นั้นใช้การไม่ได้ หากเป็นไฟล์ที่ใช้งานต้องเปลี่ยนกลับมายังชื่อเดิมที่ถูกต้องครับ

[jex]

ขอบคุณค่ะ