Page 1 of 1
สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 11:10 am
by 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 ทั้งหมดทีเดียวได้ไหมคะไม่ต้องทำทีละอันค่ะ ตอนนี้ใช้วิธีแก้คือกดที่ลิ้งค์แต่ละตัวอยู่ค่ะ ขอบคุณค่ะ
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 1:27 pm
by snasui
Link ที่พูดถึงเป็น Hyperlink ไม่ใช่ Link ของสูตร การเปลี่ยนลักษณะนั้นจะต้องคลิกเปลียนทีละตัว ยกเว้นเขียน VBA เข้าไปจัดการ
หรือไม่เช่นนั้นก็ใช้สูตร Hyperlink เข้ามาช่วยจะได้สะดวกในการเปลี่ยนค่าตำแหน่งปลายทาง ฟังก์ชั่น Hyperlink ศึกษาจากที่นี่ครับ
http://office.microsoft.com/th-th/excel ... aspx?CTT=1
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 2:15 pm
by jex
ขอบคุณค่ะ เดี๋ยวลองศึกษาค่ะ รบกวนถามค่ะ ถ้าเป็น VBA จะสามารถเปลี่ยนการนามสกุลการลิ้งค์ได้ไหมคะ คือไม่เคยเคยใช้ VBA เลยค่ะ ตอนนี้ใช้การเปลี่่ยนโดยการ Edit Hyper link แล้วก็เปลี่ยน .xls เป็น .xlsx ค่ะ ขอบคุณมาก ๆ ค่ะ
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 2:42 pm
by snasui
VBA เป็นการเขียนโปรแรกมควบคุมการทำงานของ Excel สามารถทำได้ทุกอย่างแทบจะไร้ขีดจำกัดครับ
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 3:37 pm
by jex
ขอบคุณค่ะ เดี๋ยวจะลองไปศึกษา VBA ค่ะ ขอบคุณค่ะ
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 4:02 pm
by 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
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 4:11 pm
by snasui
สิ่งที่คุณทำตาม Code นั้นคือเปลี่ยนชื่อไฟล์ใน Folder แต่
สิ่งที่ควรทำคือเปลี่ยน Hyperlink เพื่อให้ Link ไปยังไฟล์ที่ถูกต้อง
การไปเปลี่ยนชื่อไฟล์ใน Folder จะทำให้ไฟล์นั้นใช้การไม่ได้ หากเป็นไฟล์ที่ใช้งานต้องเปลี่ยนกลับมายังชื่อเดิมที่ถูกต้องครับ
Re: สอบถามการแก้ไข link ใน excel ค่ะ
Posted: Wed Sep 03, 2014 4:21 pm
by jex
ขอบคุณค่ะ