Page 1 of 1
VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 11:30 am
by Jirawat namrach
รบกวนสอบถามหน่อยครับ พอดีว่าในโฟลเดอร์มีทั้งไฟล์เก่า และ ใหม่ (xlsx และ xls) ถ้าต้องการเปิดไฟล์ที่พบ ไม่ว่าจะเป็น นามสกุลอะไร ต้องแก้ไข Code ยังไงครับ ทดลองปรับเป็น ".xl*" หรือ ".xlsx", "xls" หรือ ".xlsx" ; "xls" ก็ไม่ได้ (หาข้อมูลในเน็ต) รบกวนด้วยครับ
Code: Select all
Set sbook = Workbooks(nbook.Sheets("Bom").Range("b1") & ".xlsx")
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 12:25 pm
by 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)
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 2:37 pm
by Jirawat namrach
ต้องขอโทษอาจารย์ที่อธิบายไม่ครบครับ ลักษณะงานคือจะเปิดไฟล์ก่อน แล้วจะดึงข้อมูลจากไฟล์ที่เปิดอยู่ แต่ติดตรงที่บางไฟล์ที่เปิดเป็นไฟล์เก่า (xls) ทำให้ไม่พบไฟล์เพราะผมกำหนดเป็น xlsx พอจะมีแนวทางสำหรับไฟล์ที่เปิดอยู่แล้วบ้างมั้ยครับ ที่ทำไฟล์ที่เปิดอยู่จะเป็น xls หรือ xlsx ก็สามารถดึงข้อมูลได้
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 3:02 pm
by snasui
เมื่อเปิดไฟล์ให้เก็บค่านั้นไว้ในตัวแปรสักตัวแล้วค่อยนำมาใช้ภายหลังครับ
ไม่ทราบว่าเปิดไฟล์นั้นด้วยวิธีไหน มี Code ที่เกี่ยวข้องกับการเปิดไฟล์นั้นหรือไม่ หากไม่มี เช่นเป็นการเปิดด้วย Manual หากต้องการจะทราบชื่อไฟล์นั้นจะต้อง Loop เข้าไปตรวจสอบและเก็บชื่อไฟล์นั้นเอาไว้เพื่อใช้ในภายหลัง
การสอบถามลักษณะนี้จะตอบให้เฉพาะเจาะจงได้ยาก ตอบได้แต่เพียงกว้าง ๆ ซึ่งจำเป็นจะต้องเข้าใจหลักการเขียน Code มาเป็นอย่างดีก่อนจึงจะสามารถนำไปประยุกต์เพื่อหาคำตอบเองได้ครับ
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 4:49 pm
by Jirawat namrach
ไฟล์นี้ ผมสามารถใช้งานได้ปกติครับ แต่มีไฟล์ที่เป็นนามสกุล xls เลยอยากหาวิธีเขียน Code ให้ครอบคลุมการใช้งาน โดยไฟล์ที่เปิดไว้ จะต้องเป็นชื่อเดียวกับช่อง K1 ครับ
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 5:13 pm
by 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
Re: VBA เปิดไฟล์ xlsx กับ xls
Posted: Mon Aug 21, 2023 5:19 pm
by Jirawat namrach
ขอบคุณครับอาจารย์