VBA เปิดไฟล์ xlsx กับ xls

[Jirawat namrach]

รบกวนสอบถามหน่อยครับ พอดีว่าในโฟลเดอร์มีทั้งไฟล์เก่า และ ใหม่ (xlsx และ xls) ถ้าต้องการเปิดไฟล์ที่พบ ไม่ว่าจะเป็น นามสกุลอะไร ต้องแก้ไข Code ยังไงครับ ทดลองปรับเป็น ".xl*" หรือ ".xlsx", "xls" หรือ ".xlsx" ; "xls" ก็ไม่ได้ (หาข้อมูลในเน็ต) รบกวนด้วยครับ

Code: Select all

Set sbook = Workbooks(nbook.Sheets("Bom").Range("b1") & ".xlsx")

[snasui]

จะใช้คำสั่ง Set เช่นนั้นได้ก็ต่อเมื่อ Workbook นั้นเปิดอยู่ แต่หากยังไม่เปิดจะต้องกำหนด Path ของไฟล์นั้นก่อนและ Set ค่าให้กับ sbook โดยการเปิดไฟล์ตาม Path นั้น

ทางเลือกในการกำหนดค่าให้กับไฟล์ที่จะเปิด สามารถใช้ dir เข้ามาช่วยเพื่อระบุชื่อไฟล์ที่คล้ายกันที่พบเป็นลำดับแรก เช่นด้านล่างครับ

Code: Select all

dim fp as string
fp = dir(Workbooks(nbook.Sheets("Bom").Range("b1") & ".xl*"))
if fp <> "" then set sbook = workbooks.Open(fp)

[Jirawat namrach]

ต้องขอโทษอาจารย์ที่อธิบายไม่ครบครับ ลักษณะงานคือจะเปิดไฟล์ก่อน แล้วจะดึงข้อมูลจากไฟล์ที่เปิดอยู่ แต่ติดตรงที่บางไฟล์ที่เปิดเป็นไฟล์เก่า (xls) ทำให้ไม่พบไฟล์เพราะผมกำหนดเป็น xlsx พอจะมีแนวทางสำหรับไฟล์ที่เปิดอยู่แล้วบ้างมั้ยครับ ที่ทำไฟล์ที่เปิดอยู่จะเป็น xls หรือ xlsx ก็สามารถดึงข้อมูลได้

[snasui]

เมื่อเปิดไฟล์ให้เก็บค่านั้นไว้ในตัวแปรสักตัวแล้วค่อยนำมาใช้ภายหลังครับ

ไม่ทราบว่าเปิดไฟล์นั้นด้วยวิธีไหน มี Code ที่เกี่ยวข้องกับการเปิดไฟล์นั้นหรือไม่ หากไม่มี เช่นเป็นการเปิดด้วย Manual หากต้องการจะทราบชื่อไฟล์นั้นจะต้อง Loop เข้าไปตรวจสอบและเก็บชื่อไฟล์นั้นเอาไว้เพื่อใช้ในภายหลัง

การสอบถามลักษณะนี้จะตอบให้เฉพาะเจาะจงได้ยาก ตอบได้แต่เพียงกว้าง ๆ ซึ่งจำเป็นจะต้องเข้าใจหลักการเขียน Code มาเป็นอย่างดีก่อนจึงจะสามารถนำไปประยุกต์เพื่อหาคำตอบเองได้ครับ

[Jirawat namrach]

ไฟล์นี้ ผมสามารถใช้งานได้ปกติครับ แต่มีไฟล์ที่เป็นนามสกุล xls เลยอยากหาวิธีเขียน Code ให้ครอบคลุมการใช้งาน โดยไฟล์ที่เปิดไว้ จะต้องเป็นชื่อเดียวกับช่อง K1 ครับ

[snasui]

ตัวอย่าง Code อ่านสิ่งที่ผมตอบไว้ด้านบนประกอบด้วย เพราะ Code นี้ทำตามสิ่งที่อธิบายเอาไว้ครับ

Code: Select all

'Other code
If Range("K1").Value = "" Then Exit Sub

For Each wb In Workbooks
   If InStr(ThisWorkbook.Worksheets("listrep").Range("k1").Value, _
        VBA.Split(wb.Name, ".")(0)) Then
        Set up = Workbooks(wb.Name)
        Exit For
    End If
Next wb
If up Is Nothing Then Exit Sub
'Set up = Workbooks(ThisWorkbook.Sheets("listrep").Range("k1") & ".xlsx")
'Other code

[Jirawat namrach]

ขอบคุณครับอาจารย์