Snasui Excel Forum

Workbooks(ตัวเลข).Activate

dim lngBlankRowNum as Long
lngBlankRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
Application.goto (Range("A"&lngBlankRowNum).end(XlUp).Offset(1,0))

dim lngBlankRowNum As Long, Dim lngMaxRowNum As Long
lngMaxRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
lngBlankRowNum = Range("A"& lngMaxRowNum).end(XlUp).Offset(1,0).Row

ThisWorkbook.Path

ให้ใช้โค้ด

[code]Workbooks(ตัวเลข).Activate[/code]

ลอง
ปิดแฟ้มทั้งหมด
เปิดแฟ้มที่มีแมโครที่คุณเขียนไม่ได้
กดแป้น Ctrl+N
กดแป้น Atl+F11
ที่ VBE กดแป้น Ctrl+G
พิมพ์ Msgbox "The Name of Workbooks(1) is '" & Workbooks(1).Name &"'"
กด Enter สังเกตข้อความที่อยู่ในเครื่องหมาย ' ' ว่า เป็นชื่อแฟ้มอะไร
พิมพ์ Msgbox "The Name of Workbooks(2) is '" & Workbooks(2).Name &"'"
กด Enter สังเกตข้อความที่อยู่ในเครื่องหมาย ' ' ว่า เป็นชื่อแฟ้มอะไร

[color=#FF00BF]Workbooks(1)[/color] คือแฟ้มที่เปิดขึ้นเป็น[color=#FF00BF]อันดับแรก[/color]


เสริม
[color=#FF0000]กรณีที่คุณต้องการไปบรรทัดว่างที่ต่อจากบรรทัดสุดท้ายของตารางฐานข้อมูล[/color]

ให้ใช้โค้ด
[code]
dim lngBlankRowNum as Long
lngBlankRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
Application.goto (Range("A"&lngBlankRowNum).end(XlUp).Offset(1,0))[/code]

ถ้าต้องการทราบว่าหมายเลขบรรทัดว่างที่ต่อจากบรรทัดสุดท้ายของตารางฐานข้อมูล ให้ใช้รหัส

[code]dim lngBlankRowNum As Long, Dim lngMaxRowNum As Long
lngMaxRowNum = IIF(Application.Versioni < 8,16384,IIf(Application.Version < 12, 65536, 1048576))
lngBlankRowNum = Range("A"& lngMaxRowNum).end(XlUp).Offset(1,0).Row[/code]

ตรง Range("A"& lngMaxRowNum) เปลี่ยน[color=#800000]อักษรคอลัมน์[/color]ของเซลล์อ้างอิงให้ตรงตามการใช้งาน

[b]โค้ดการอ้างอิงโฟลเดอร์ที่แฟ้มที่มีแมโครวางอยู่[/b]
[code]ThisWorkbook.Path[/code]

โค้ดนี้จะทำให้ยีดหยุ่นกว่าการไปกำหนดค่าที่เซลล์ เพราะถ้าเปลี่ยนตำแหน่งวางของแฟ้มที่มีแมโคร รหัสจะทำงานได้ตลอดเวลา

เรียน ทุกท่าน ครับ

คือผมติดปัญหาเรื่อง Code การ Copy ไฟล์ หลายไฟล์ และ หลายยชีท
ผมเขียนได้แค่เปิดไฟล์ และ หลายชีท แต่ผมติดตรงที่ต้องเขียน code สลับ Workbook เก่า กับ ใหม่ ครับ

ดังนั้นผมรบกวนผู้รู้ตรวจสอบให้ทีครับ