Snasui Excel Forum

Posted: **Sun Aug 17, 2014 11:25 am**

โพสโค๊ดก่อนนะครับ

Sub Macro3()
    Range("B1:M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("ch03-02.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.WindowState = xlMinimized
    Range("B1:M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ch03-02.xlsm").Activate
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A11").Select
    ActiveSheet.Paste
End Sub

ไฟล์ ch03-02 ตำแหน่งอยู่ที่ C:\Users\Admin\Desktop\ch03-02.xlsm

ไฟล์ dw ตำแหน่งอยู่ที่ C:\Users\Admin\Desktop\dw.xlsx

ไฟล์ dw2 ตำแหน่งอยู่ที่ C:\Users\Admin\Desktop\dw2.xlsx

ปัญหาคือตอนผมบันทึกmacro มันจะเป็นคำสั่งแค่

Code: Select all

Windows("ch03-02.xlsm").Activate

ผมอยากให้มันเปิดไฟล์ขึ้นมาเองโดยระบุตามที่อยู่แล้วคัดลอกข้อมูลตามคำสั่ง แล้วปิดไฟล์ที่เปิดมานั้น แล้วไปเปิดไฟล์2 โดยเอาไปวางไว้sheet คือ ch03-02 และการวางนะเนต้องเป็นการวางแบบไดนามิกต่อกันมาเลยๆลงมา ไฟล์แนบมาแล้วครับ

Posted: **Mon Aug 18, 2014 8:38 pm**

รอท่านอื่นมาดูให้อีกครั้งน่ะครับ

Posted: **Mon Aug 18, 2014 11:21 pm**

เมื่อต้องการให้เปิดไฟล์ก่อนทำงานและปิดไฟล์หลังทำงานเสร็จ เช่น Copy, Paste ควรบันทึก Macro ตามขั้นตอนงานที่ทำ เช่นการเปิดไฟล์ ปิดไฟล์มาด้วย

ใน Code ผมไม่พบว่ามีการเปิดไฟล์ ปิดไฟล์ ลองบันทึกมาก่อน ติดตรงไหนค่อยถามกันต่อครับ

Snasui Excel Forum

vbaเปิดexcell ขึ้นมาดึงข้อมูลจากเซลที่ระบุ

vbaเปิดexcell ขึ้นมาดึงข้อมูลจากเซลที่ระบุ

Re: vbaเปิดexcell ขึ้นมาดึงข้อมูลจากเซลที่ระบุ

Re: vbaเปิดexcell ขึ้นมาดึงข้อมูลจากเซลที่ระบุ