คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
สวัสดีเพื่อนสมาชิกทุกท่าน วันนี้ขอรบกวนเรื่องของการเขียนโค๊ด vba จากไฟล์ที่แนบมา ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub Import_Data()
Dim strName As String
Dim rSource As Range
strName = "Book1.xlsx"
Windows(strName).Activate
With Sheets("Sheet1")
Set rSource = .Range("A2", .Range("F" & Rows.Count))
End With
rSource.Copy
Windows("Test.xlsm").Activate
Sheets("Database").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Subสามารถปรับ Code เป็นตามด้านล่างครับbank9597 wrote:ไฟล์ Test จะเป็นไฟล์หลัก ใช้คัดลอกข้อมูลใน Sheet1 ของไฟล์ที่เปิดล่าสุด ตัวอย่างเช่น เปิดไฟล์ Test แล้ว ตามด้วยไฟล์ Book1 คำสั่งจะสั่งบันทึกข้อมูลในไฟล์ Book1 ชีท Sheet1 มาลงในชีท Database ไฟล์ Test
Code: Select all
Sub Import_Data0()
With Workbooks(Workbooks.Count).Sheets("Sheet1")
.Range("A2", .Range("F" & Rows.Count).End(xlUp)).Copy _
Workbooks("Test.xlsm").Sheets("Database").Range("A2")
End With
End Subsnasui wrote:สามารถปรับ Code เป็นตามด้านล่างครับbank9597 wrote:ไฟล์ Test จะเป็นไฟล์หลัก ใช้คัดลอกข้อมูลใน Sheet1 ของไฟล์ที่เปิดล่าสุด ตัวอย่างเช่น เปิดไฟล์ Test แล้ว ตามด้วยไฟล์ Book1 คำสั่งจะสั่งบันทึกข้อมูลในไฟล์ Book1 ชีท Sheet1 มาลงในชีท Database ไฟล์ TestCode: Select all
Sub Import_Data0() With Workbooks(Workbooks.Count).Sheets("Sheet1") .Range("A2", .Range("F" & Rows.Count).End(xlUp)).Copy _ Workbooks("Test.xlsm").Sheets("Database").Range("A2") End With End Sub
ทำไมโค๊ดถึงสั้นได้ขนาดนี้ ผมเขียนมาเสียยาวเลย
แสดงผลได้รวดเร็วมากครับ ขอบคุณอาจารย์มากครับ ผมจะเอาไปปรับใช้ต่อไปครับ