รบกวนสอบถามครับ Application.Filesearch

[UnKnown]

คุณ ปิยะพันธุ์ Original post
ที่หน้าฟอร์ม มันขึ้นฟ้องอย่างนี้ไม่ทราบว่าจะแก้ไขอย่างไรครับผม

รบกวนด้วยครับผม

[สันติสุข]

กดปุ่ม Debug ก็จะเห็นบรรทัดที่ทำให้เกิด error นี้ครับ ก็ดูว่าค่าอะไรในบรรทัดนั้นผิดบ้าง

[UnKnown]

คุณ ปิยะพันธุ์ Original post
จะขึ้นแบบนี้ครับผม

[สันติสุข]

FileSearch เป็นอ็อบเจ็กต์ในไลบรารี่ Microsoft Office xx.xx Object Library ดังนั้นในเมนู Tools > References ใน VBA Editor ต้องมีเลือกเอาไว้ครับ

[UnKnown]

คุณ ปิยะพันธุ์ Original post
อาจารย์สันติสุขครับ คือ ตัวโปรแกรมนี้ผมเขียนบน Access 2003 ครับ และเอาไปเปิดบน Win7 64bit Access 2010 มันคลิกปุ่ม มันก็ขึ้นตามรูปครับผมและผมเข้าไปเลือก Microsoft Office ทั้ง 11 และ 14 แล้วครับ ก็ยังไม่หายครับผม รบกวนอาจารย์ด้วยครับผม

[pizza_p]

Application.Filesearch ถูกถอดออกตั้งแต่ Office 2007 เป็นต้นไปครับ คงต้องเปลี่ยนไปใช้วิธีอื่น ลองใช้ Function Dir() ดูครับ

[UnKnown]

คุณ ปิยะพันธุ์ Original post
รบกวนคุณ pizza_p ช่วยลงโค๊ด Function แบบเต็มให้ด้วยได้ไหมครับ หรือ ผมจะขอเมล์คุณ pizza_p ก็ได้ครับผมจะได้ส่งไฟล์ให้ดูครับ
ขอบคุณครับ

[pizza_p]

Dim MyPath as String, MyName as String, FileCount as Integer

MyPath = "C:\GetPOB2S\B2SPO\B2S_PO_*.XML"
FileCount = 0
MyName = Dir(MyPath)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    FileCount = FileCount +1
    MsgBox MyName
    MyName = Dir    ' Get next entry.
Loop
MsgBox "There were " & FileCount & " file(s) found."

[UnKnown]

คุณ ปิยะพันธุ์ Original post
ขอบพระคุณ คุณ pizza_p อย่างสูงครับ ที่ได้ให้ความรู้ดีๆแก่ผมครับ ตอนนี้ได้แล้วครับ
แต่ผมขอสอบถามอีกเรื่องนึงครับผม
คือถ้าผมจะ Import ไฟล์ ดังกล่าวที่เป็นไฟล์ xml จะต้องแก้ไขตรงไหนครับ
รบกวนแก้ไขโค๊ดให้ผมด้วยครับ โค๊ดผมเป็นดังนี้ครับ แต่มันจะ error ตรง .FoundFiles(i) ครับผม
ขอบคุณครับ

Dim POPathB As String
Dim POFileB As String

POPathB = "D:\Work\GetPOB2S\B2SPO\B2S_PO_123.XML"

       Application.ImportXML DataSource:=.FoundFiles(i), ImportOptions:=acAppendData
       DoCmd.RunMacro "UTL.ImportDatPO"
   
MsgBox "Process Complete.", vbOKOnly

[pizza_p]

ถ้ารู้ชื่อไฟล์ ก็ใส่ไปตรงๆได้เลยนี่ครับ

Dim POPathB As String
Dim POFileB As String

POPathB = "D:\Work\GetPOB2S\B2SPO\B2S_PO_123.XML"

       Application.ImportXML DataSource:=POPathB, ImportOptions:=acAppendData
       DoCmd.RunMacro "UTL.ImportDatPO"
   
MsgBox "Process Complete.", vbOKOnly

[UnKnown]

คุณ ปิยะพันธุ์ Original post
คือชื่อไฟล์จะเป็น B2S_PO_123.XML ครับ ก็แสดงว่าให้ผมใส่
แบบคุณ pizza_p เป็น POPathB ใช่หรือเปล่าครับ

[pizza_p]

ใช่ครับ