อยาก Copy .txt File ไปลง File Excel ด้วย VBA

[lumidoll]

รบกวนสอบถามรูปแบบการเขียน VBA Code โดยใช้ปุ่ม Command Button Copy .txt File ไปวางใน Sheet ของ File Excel
เช่น Copy C:\New folder\Book2.txt ไปวางที่ C:\New folder\Book1.xlsm Sheet: Data1
Copy C:\New folder\Book3.txt ไปวางที่ C:\New folder\Book1.xlsm Sheet: Data2
Copy C:\New folder\Book4.txt ไปวางที่ C:\New folder\Book1.xlsm Sheet: Data3
โดย Record Macro ได้รหัสดังนี้ค่ะ

Code: Select all

ActiveSheet.Shapes("CmdCopyData").Select
    Windows("Book2.txt").Activate
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Book3.txt").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Book4.txt").Activate
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[snasui]

Code ที่เขียนมาติดปัญหาใดครับ

[lumidoll]

เวลา Run ด้วย Macro ไม่ติดค่ะ แต่เวลา กดปุ่มเพื่อจะ Copy มัน Error ตั้งแต่บรรทัดแรกเลยค่ะ
ต้องปรับอะไรเพิ่มหรือเปล่าคะ

[snasui]

ไม่พบ Code ในไฟล์ที่แนบมาครับ

[lumidoll]

ได้แล้วค่ะ ลองทำ Macro ใหม่แล้ว Copy ไป VBA Code แล้ว Run อีกครั้งพอติดก็แก้ไข
ได้เป็น Code ตามด้านล่างนี้ค่ะ ขอบคุณมากนะคะ

Code: Select all

Private Sub CmdCopyData_Click()

    Windows("Book2.txt").Activate
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Book3.txt").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Book4.txt").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Sheets("Data3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Control").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

[bank9597]

แนบไฟล์ พร้อมโค๊ดครับ เพื่อจะได้ทดสอบข้อผิดพลาดได้