vba เปิดไฟล์ใหม่

[sutham]

ผมได้สร้างไฟล์ 2 ไฟล์ไว้ในโฟลเดอร์เดียวกัน คือ
1. PPFIVE2558 2. PPFIVETitle
โดยใช้ชื่อโฟลเดอร์ ว่า PPFIVE'2558 V.III ซึ่งสร้างไว้ในไดร์ D
ซึ่งมีการทำงาน ดังนี้
เปิดไฟล์ที่ชื่อว่า PPFIVETitle แล้วทำการเลือกไดร์ ในเซลล์ B3 แล้วคลิ๊กปุ่ม เปิดไฟล์ เพื่อเปิดไฟล์ที่ชื่อว่า PPFIVE2558 โดย code ที่ผมปรับจากการบันทึกแมโครเป็นดังนี้

Code: Select all

Sub Macro1()
Dim msg As Integer
On Error GoTo lineerror:
    ChDir Range("b3").Value & "\PPFIVE'2558 V.III"
    Workbooks.Open Filename:=Range("b3").Value & "\PPFIVE'2558 V.III\PPFIVE2558.xlsm"
    Exit Sub
lineerror:
msg = MsgBox("ไม่พบเส้นทางฐานข้อมูล")
End Sub

ปัญหาที่พบคือ หากรันแมโครจากในเครื่องที่ผมทำไฟล์นี้เอง แมโครก็รันได้ปกติ แต่เมื่อผม copy โฟลเดอร์นี้ไปไว้เครื่องอื่นแมโครจะทำงานไม่ได้
จึงอยากได้คำชี้แนะว่าสาเหตุเกิดจากเหตุใด และจะต้องปรับ code อย่างไรครับ ขอบคุณครับ

[snasui]

เอาเครื่องหมาย ' ในชื่อ Folder ออกไปก่อนแล้วทดสอบดูใหม่ครับ

[sutham]

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

[snasui]

ชื่อ Folder สามารถวรรคได้ แต่หากไม่ประกอบด้วยเครื่องหมายต่าง ๆ จะทำให้ลดปัญหาการเข้าถึง Folder นั้นด้วยการเขียนโปรแกรมได้ครับ

[sutham]

รบกวนอีกนิดครับ ตอนนี้ผมยังแก้ปัญหาไม่ได้เลยครับ
คือ พอผม copy ไปทับไฟล์เก่าที่เคยมีในเครื่องอื่น code ที่ผมเขียนเพื่อเปิดไฟล์ใหม่ error ทุกครั้ง ทั้งๆที่เป็นข้อมูลชุดเดียวกัน
ผมเลยตั้งข้อสงสัยว่า ตอนที่ผมเริ่มต้นเขียน code ผมใช้ office 2010 แต่เครื่องที่ผมเอาไปเปิดเป็น office 2007 ประเด็นนี้จะเกี่ยวกันหรือไม่ครับ ขอคำชี้แนะด้วยครับ

[sutham]

หลังจากที่ผม copy ไฟล์จากเครื่องแม่ (คือ เครื่องที่ผมสร้างไฟล์) ไปวางทับในเครื่องอีกเครื่องหนึ่งครับ
โดย code ที่ผมเขียนเมื่อกดปุ่มตกลง คือ

Code: Select all

Sub go_database()
Dim FilePath As String
FilePath = Range("e7").Value
ActiveWorkbook.Save
Workbooks.Open Filename:=FilePath    <--- จะ error  ตรงบรรทัดนี้
    Exit Sub
End Sub

[snasui]

ลองแนบไฟล์ที่มีปัญหามาดูกันครับ

ทำเป็นตัวอย่าง ลบข้อความสำคัญทิ้งไปก่อนครับ

[sutham]

ผมลองทดสอบไฟล์เนื่องเป็นการ copy ไฟล์ที่ใช้ชื่อเดียวกัน แล้ววางทับไฟล์เดิมที่มีอยู่ ซึ่งสาเหตุที่ทำให้ vba หาไฟล์ไม่เจอน่าจะเป็นเพราะการวางทับไฟล์เดิมหรือไม่ครับ เนื่องจากพอลองเปิดไฟล์ที่วางทับลงไป excel จะมีการแจ้งเตือน ดังรูป

[sutham]

ผมได้ลองจำลองไฟล์ไว้ในโฟลเดอร์ TestPPFIVE ครับ ก่อนอื่นผมต้องอธิบายการทำงานและสิ่งที่ต้องการ ดังนี้ครับ
ในโฟลเดอร์ TestPPFIVE จะมีโฟลเดอร์ย่อย 2 โฟลเดอร์ คือ
1. PPFIVE'2558 V.II มีไฟล์ที่ชื่อ PPFIVE'2558 v.II ผมสร้างเป็นไฟล์หลักครับ
2. PPFIVE2558VIII มีไฟล์ที่ชื่อ PPFIVE2558 เป็นไฟล์ที่ใช้ในการดำเนินการจัดทำข้อมูลทั้งหมด (ทำเป็นไฟล์ database)
ในการทำงานของโปรแกรม เนื่องจากผมเคยสร้างเวอร์ชั่นแรก ฉบับนี้เป็นฉบับปรับปรุง โดยที่ผู้ใช้สับสนในการ copy ฐานข้อมูล ผมเลยปรับแยกฐานข้อมูลออกมาเพื่อรองรับการ copy ไปใช้ในเครื่องอื่นๆ โดยเส้นทางการใช้โปรแกรมจะเป็นดังนี้ครับ
1. เปิดไฟล์ PPPIVE'2558 v.II จากนั้นจะทำการเลือกไดร์ในเซลล์ F9 ที่มีฐานข้อมูล คือ โฟลเดอร์ PPFIVE2558VIII
2. กดปุ่ม ตกลง เพื่อทำการเปิดไฟล์ตามเส้นทางข้อมูลในเซลล์ e7
ประเด็นปัญหา คือ เมื่อผมทำการ copy ไฟล์ทั้งหมดให้กับผู้อื่นไปใช้ในเครื่องอื่น เมื่อ copy ไฟล์ไปทับไฟล์เดิมที่มีอยู่ในเครื่อง code จะ error ตรง Workbooks.Open Filename:=FilePath

Code: Select all

Sub go_database()
Dim FilePath As String
FilePath = Range("e7").Value
ActiveWorkbook.Save
Workbooks.Open Filename:=FilePath    <---  บรรทัดที่ error
    Exit Sub
End Sub

รบกวนขอคำแนะนำด้วยครับ

ผมต้องโทษครับที่ต้องใช้ลิงค์ครับ

http://gg.gg/3wbag

[snasui]

ผมลองทดสอบไฟล์เนื่องเป็นการ copy ไฟล์ที่ใช้ชื่อเดียวกัน แล้ววางทับไฟล์เดิมที่มีอยู่ ซึ่งสาเหตุที่ทำให้ vba หาไฟล์ไม่เจอน่าจะเป็นเพราะการวางทับไฟล์เดิมหรือไม่ครับ เนื่องจากพอลองเปิดไฟล์ที่วางทับลงไป excel จะมีการแจ้งเตือน ดังรูป

ชื่อไฟล์มีเครื่องหมาย ' ลองเปลี่ยนชื่อไฟล์เป็นแบบอื่น ไม่ควรมีอักขระพิเศษครับ

[sutham]

ผมลองทดสอบไฟล์เนื่องเป็นการ copy ไฟล์ที่ใช้ชื่อเดียวกัน แล้ววางทับไฟล์เดิมที่มีอยู่ ซึ่งสาเหตุที่ทำให้ vba หาไฟล์ไม่เจอน่าจะเป็นเพราะการวางทับไฟล์เดิมหรือไม่ครับ เนื่องจากพอลองเปิดไฟล์ที่วางทับลงไป excel จะมีการแจ้งเตือน ดังรูป

ชื่อไฟล์มีเครื่องหมาย ' ลองเปลี่ยนชื่อไฟล์เป็นแบบอื่น ไม่ควรมีอักขระพิเศษครับ

ถึงแม้ว่าไฟล์นั้นเป็นไฟล์ที่เปิดครั้งแรกเหรอครับ แต่ไฟล์ที่ต้องการเปิดไม่มีอักขระพิเศษ เหตุใดจึงเปิดไฟล์นั้นไม่ได้ละครับ (ยังสงสัยครับ)

[snasui]

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

[sutham]

ครับ ได้ผลอย่างไร จะแจ้งให้ทราบครับ ถามต่ออีกนิดครับ ว่าตอนที่เขียน code vba ตัวอักษรพิมพ์เล็ก / ใหญ่ ต้องตรงกันหรือไม่ครับ

[snasui]

VBA จะเขียนตัวเล็กหรือใหญ่ก็ได้ ไม่จำเป็นต้องตรงตามตัวเล็กใหญ่ครับ

[sutham]

ผมลองแล้วครับ ปรับชื่อโฟลเดอร์และชื่อไฟล์ไม่ให้มีอักขระพิเศษ พอ copy ไปทับไฟล์เดิมที่อยู่ในอีกเครื่อง vba ก็ยัง error ครับ
ไฟล์ใหม่ที่ผมปรับชื่อไฟล์แล้วครับ
ขอโทษครับที่ต้องใช้ลิงค์ครับ
http://gg.gg/3wcux

[bank9597]

ทดสอบแล้วครับ ใช้งานได้ปกติ

ลองกำหนดชื่อ Wookbook, Worksheet ให้ชัดเจนครับ

เช่น FilePath =Workbooks("").Sheet("").Range("E7").value