วิธีการนำเข้า / คัดลอกข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบัน
เป็นเรื่องง่ายที่เราจะคัดลอกข้อมูลจากแผ่นงานที่เปิดอยู่และวางลงในสมุดงานอื่นที่เปิดอยู่ แต่คุณเคยพยายามนำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานที่เปิดอยู่หรือไม่? บทความนี้ฉันจะพูดถึงวิธีการนำเข้าข้อมูลจากสมุดงานปิด
นำเข้าข้อมูลจากสมุดงานปิดลงในสมุดงานปัจจุบันด้วยรหัส VBA
นำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบันด้วย Kutools for Excel
นำเข้าข้อมูลจากสมุดงานปิดลงในสมุดงานปัจจุบันด้วยรหัส VBA
รหัส VBA ต่อไปนี้อาจช่วยคุณคัดลอกข้อมูลจากสมุดงานโดยไม่ต้องเปิดไปยังสมุดงานที่เปิดใช้งานอยู่โปรดทำตามขั้นตอนต่อไปนี้:
1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: นำเข้าข้อมูลจากสมุดงานที่ปิดลงในสมุดงานปัจจุบัน
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และในไฟล์ เปิดไฟล์ หน้าต่างเลือกสมุดงานที่คุณต้องการนำเข้าข้อมูลดูภาพหน้าจอ:
4. จากนั้นคลิก จุดเปิด และ KutoolsforExcel กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงของข้อมูลที่คุณต้องการนำเข้าสู่สมุดงานอื่นดูภาพหน้าจอ:
5. จากนั้นคลิก OK ในกล่องโต้ตอบที่โผล่ออกมาให้เลือกเซลล์ที่คุณต้องการใส่ข้อมูลดูภาพหน้าจอ:
6. และคลิก OKข้อมูลในสมุดงานที่ปิดอยู่จะถูกนำเข้าสู่สมุดงานปัจจุบัน
นำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบันด้วย Kutools for Excel
รหัส VBA อาจค่อนข้างยากสำหรับผู้เริ่มต้น Excel ของเราดังนั้นที่นี่ฉันจะแนะนำเครื่องมือที่มีประโยชน์ให้คุณ -Kutools สำหรับ Excelเดียวกันกับที่ แทรกไฟล์ที่เคอร์เซอร์ คุณสามารถแทรกเนื้อหาทั้งหมดของแผ่นงานจากสมุดงานปิดได้อย่างรวดเร็วและง่ายดาย
| Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. คลิก Kutools พลัส > นำเข้าส่งออก > แทรกไฟล์ที่เคอร์เซอร์ดูภาพหน้าจอ:
2. ใน แทรกไฟล์ที่เคอร์เซอร์ ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:
(1. ) คลิก 
ปุ่มเพื่อเลือกเซลล์ที่คุณต้องการใส่ข้อมูลที่นำเข้า
(2. ) คลิก 
เพื่อเลือกสมุดงานที่คุณต้องการนำเข้าข้อมูล
หมายเหตุ ค่าเท่านั้น (ไม่มีสูตร): หากคุณเลือกตัวเลือกนี้ระบบจะนำเข้าเฉพาะค่าและจะไม่นำเข้าสูตร
อย่าโอนการจัดรูปแบบ: การเลือกตัวเลือกนี้จะนำเข้าข้อมูลลงในแผ่นงานโดยไม่ต้องจัดรูปแบบ
3. จากนั้นคลิก OKถ้ามีมากกว่าหนึ่งเวิร์กชีตในสมุดงานก เลือกแผ่นงาน กล่องโต้ตอบจะปรากฏขึ้นโปรดระบุแผ่นงานที่คุณต้องการนำเข้าข้อมูลดูภาพหน้าจอ:
4. จากนั้นคลิก OK ข้อมูลในแผ่นงานที่เลือกถูกนำเข้าสู่สมุดงานปัจจุบัน
คลิกเพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับคุณลักษณะแทรกไฟล์ที่เคอร์เซอร์
ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!
Demo: นำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบันด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
