การรัน modules โดยต้องการให้เปลี่ยน ชื่อ ไฟลืไปเรื
กระทู้เก่าบอร์ด อ.Yeadram

 1,044   3
URL.หัวข้อ / URL การรัน modules โดยต้องการให้เปลี่ยน ชื่อ ไฟลืไปเรื

รบกวนสอบถามผู้รู้ทีครับ
สมมุติว่า เรามี ไฟล์ excel อยู่ 10ไฟล์
ชื่อ 01 ถึง 10 วางอยู่ในที่เดียวกันหมด
หากเราต้องการเขียนคำสั่งให้ มัน import ข้อมูลของทั้งสิบไฟล์ เอาไปรวมอยู่ใน ตารางเดียวกันทั้งหมดต้องทำอย่างไรครับ ข้อมูลภายในมี ลักษณะเหมือนกันหมด แต่ record ไม่เท่ากัน เขียนคำสั่งอย่างไรบ้างครับ
Concept ประมาณ
1.import ไฟล์ 1
2.ลบทิ้ง
3.import ไฟล์ 2
...
ประมาณนี้อ่ะครับ คือมันมีไฟล์ที่ ต้อง import เข้าเป็นร้อยไฟล์ เลยอยากได้คำสั่งที่ มันสามารถเปลี่ยนชื่อไฟล์ได้เอง คล้ายกับ loop + ไปที่ละหนึ่ง ไม่ทราบว่าพอจะทำได้ไหมครับ
โดย: kittipongb เมื่อ: 21 มิ.ย. 2556 , 16:50

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R16419
ประมาณนี้อ่ะครับ แต่อยากให้มัน + ชื่อไฟล์ไปทีละหนึ่ง
---
Function MacroT21()
On Error GoTo MacroT21_Err

    DoCmd.SetWarnings False
    DoCmd.TransferText acLinkFixed, "T21", "HPF00T21", "D:\Documents and Settings\KittipongB\My Documents\ougogood\work\T21\App all\HP\HPF00T21.TXT", False, ""
    DoCmd.OpenQuery "QueryT21HP", acViewNormal, acEdit
    DoCmd.DeleteObject acTable, "HPF00T21"
    DoCmd.TransferText acLinkFixed, "T21", "HPF00T21", "D:\Documents and Settings\KittipongB\My Documents\ougogood\work\T21\App all\HP\HPF00T22.TXT", False, ""
    DoCmd.OpenQuery "QueryT21H2", acViewNormal, acEdit
    DoCmd.DeleteObject acTable, "HPF00T21"
MacroT21_Exit:
    Exit Function

MacroT21_Err:
    MsgBox Error$
    Resume MacroT21_Exit
โดย: kittipong เมื่อ: 21 มิ.ย. 2556 , 16:58
2 @R16421
ใช้ for ลูปได้ครับ ตย.เช่น

dim N as Integer
for N = 1 to 10
   ...
   DoCmd.TransferText ..... , "D:\.....\HPF00T" & format$(N,"00") & ".TXT"
   ...
next N
โดย: สันติสุข เมื่อ: 21 มิ.ย. 2556 , 20:18
3 @R16470
ทำได้แล้วครับ ขอบคุณมาก ครับ
โดย: kittipongb เมื่อ: 25 มิ.ย. 2556 , 16:05
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3521s