วิธีการนำเข้า / คัดลอกข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบัน

เป็นเรื่องง่ายที่เราจะคัดลอกข้อมูลจากแผ่นงานที่เปิดอยู่และวางลงในสมุดงานอื่นที่เปิดอยู่ แต่คุณเคยพยายามนำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานที่เปิดอยู่หรือไม่? บทความนี้ฉันจะพูดถึงวิธีการนำเข้าข้อมูลจากสมุดงานปิด

นำเข้าข้อมูลจากสมุดงานปิดลงในสมุดงานปัจจุบันด้วยรหัส 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โปรดดำเนินการดังนี้:

1. คลิก Kutools พลัส > นำเข้าส่งออก > แทรกไฟล์ที่เคอร์เซอร์ดูภาพหน้าจอ:

2. ใน แทรกไฟล์ที่เคอร์เซอร์ ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

(1. ) คลิก ปุ่มเพื่อเลือกเซลล์ที่คุณต้องการใส่ข้อมูลที่นำเข้า

(2. ) คลิก เพื่อเลือกสมุดงานที่คุณต้องการนำเข้าข้อมูล

หมายเหตุ ค่าเท่านั้น (ไม่มีสูตร): หากคุณเลือกตัวเลือกนี้ระบบจะนำเข้าเฉพาะค่าและจะไม่นำเข้าสูตร

อย่าโอนการจัดรูปแบบ: การเลือกตัวเลือกนี้จะนำเข้าข้อมูลลงในแผ่นงานโดยไม่ต้องจัดรูปแบบ

3. จากนั้นคลิก OKถ้ามีมากกว่าหนึ่งเวิร์กชีตในสมุดงานก เลือกแผ่นงาน กล่องโต้ตอบจะปรากฏขึ้นโปรดระบุแผ่นงานที่คุณต้องการนำเข้าข้อมูลดูภาพหน้าจอ:

4. จากนั้นคลิก OK ข้อมูลในแผ่นงานที่เลือกถูกนำเข้าสู่สมุดงานปัจจุบัน

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!