สมัครสมาชิก
 

ต้องการเปลี่ยนนามสกุลไฟล์หลังจากimport



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

27 พ.ย. 61 , 23:21:22
อ่าน 73 ครั้ง

aek

จากกระทู้นี้ https://www.thai-access.com/index.php?topic=540.0 ครับ

Private Sub Command1_Click()
    Dim strPath As String
    Dim strFile As String
    Dim strTable As String
    Dim StrFileName As string

    strTable = "ชื่อตารางเป้าหมาย"     
    strPath = "d:\โฟลเดอร์ที่เก็บไฟล์ .txt"
    strFile = Dir(strPath & "*.txt")

    Do While strFile <> ""
    StrFileName = strPath & strFile       
    DoCmd.TransferText acImportDelim, "importdata", strTable, StrFileName ,False
           
    strFile = Dir
    Loop
End Sub

คือ strPath จะมีไฟล์ใหม่มาเพิ่มตลอด ต้องการไม่ให้ import ไฟล์เดิมซ้ำ(เพราะทำให้โปรแกรม importนานเกินจำเป็น) และไม่อยากลบไฟล์ต้นฉบับ(ต้องการเปลี่ยนจาก *.txt เป็น *.xxx หลักจาก import แล้ว) ต้องเขียนโค้ดเพิ่มอย่างไรครับ ขอบคุณครับ

 

28 พ.ย. 61 , 08:39:36
ตอบกลับ #1

ปิ่นณรงค์

: ต้องการเปลี่ยนนามสกุลไฟล์หลังจากimport
« ตอบกลับ #1 เมื่อ: 28 พ.ย. 61 , 08:39:36 »
เพิ่มนิดนึงประมาณนี้ครับ เพิ่ม CODE ให้เมื่อ Dir มาแล้ว Import เข้าไปในตารางแล้วก็ให้แก้นามสกุลไฟล์นั้นเป็น .XXX ก่อนจึงจะไป Dir อันใหม่มา Import ต่อ

Private Sub import_Click()
    Dim strPath As String
    Dim strFile As String
    Dim strTable As String
    Dim StrFileName As String
    Dim strextensionNew As String

    strTable = "Table1"
    strPath = "D:\textfile\"
    strFile = Dir(strPath & "*.txt")
    If strFile = "" Then
    MsgBox "ไม่พบไฟล์ที่จะ Import !!", vbCritical, "แจ้งเตือน"
    Exit Sub
    End If
    Do While strFile <> ""
    StrFileName = strPath & strFile
    DoCmd.TransferText acImportDelim, "", strTable, StrFileName, False
   
    strextensionNew = Left(StrFileName, InStrRev(StrFileName, ".") - 1) & ".xxx"
   
   
   
    Name StrFileName As strextensionNew
    strFile = Dir
    Loop
End Sub
« แก้ไขครั้งสุดท้าย: 28 พ.ย. 61 , 12:03:39 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: aek

28 พ.ย. 61 , 09:57:23
ตอบกลับ #2

aek

: ต้องการเปลี่ยนนามสกุลไฟล์หลังจากimport
« ตอบกลับ #2 เมื่อ: 28 พ.ย. 61 , 09:57:23 »
สุดยอดไปเลย ขอบคุณมากๆครับ ได้ตามที่ต้องการเลยครับ :grin: :grin: :grin:

 


บอร์ดเรียนรู้ Access สำหรับคนไทย