Snasui Excel Forum

Posted: **Wed Feb 27, 2013 9:57 am**

รบกวนสอบถามรูปแบบการเขียน 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

Posted: **Wed Feb 27, 2013 1:14 pm**

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

Posted: **Wed Feb 27, 2013 3:07 pm**

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

Posted: **Wed Feb 27, 2013 3:18 pm**

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

Posted: **Wed Feb 27, 2013 4:56 pm**

ได้แล้วค่ะ ลองทำ 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

Posted: **Thu Feb 28, 2013 6:36 pm**

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

Snasui Excel Forum

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

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

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

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

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

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

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