Note: The other languages of the website are Google-translated. Back to English

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

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

นำเข้าข้อมูลจากสมุดงานปิดลงในสมุดงานปัจจุบันด้วยรหัส 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 คีย์เพื่อเรียกใช้รหัสนี้และในไฟล์ เปิดไฟล์ หน้าต่างเลือกสมุดงานที่คุณต้องการนำเข้าข้อมูลดูภาพหน้าจอ:

doc นำเข้าข้อมูลจากสมุดงานปิด 1

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

doc นำเข้าข้อมูลจากสมุดงานปิด 2

5. จากนั้นคลิก OK ในกล่องโต้ตอบที่โผล่ออกมาให้เลือกเซลล์ที่คุณต้องการใส่ข้อมูลดูภาพหน้าจอ:

doc นำเข้าข้อมูลจากสมุดงานปิด 3

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


นำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบันด้วย Kutools for Excel

รหัส VBA อาจค่อนข้างยากสำหรับผู้เริ่มต้น Excel ของเราดังนั้นที่นี่ฉันจะแนะนำเครื่องมือที่มีประโยชน์ให้คุณ -Kutools สำหรับ Excelเดียวกันกับที่ แทรกไฟล์ที่เคอร์เซอร์ คุณสามารถแทรกเนื้อหาทั้งหมดของแผ่นงานจากสมุดงานปิดได้อย่างรวดเร็วและง่ายดาย

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

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

doc นำเข้าข้อมูลจากสมุดงานปิด 5

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

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

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

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

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

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

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

doc นำเข้าข้อมูลจากสมุดงานปิด 8

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

คลิกเพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับคุณลักษณะแทรกไฟล์ที่เคอร์เซอร์

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


Demo: นำเข้าข้อมูลจากสมุดงานที่ปิดไปยังสมุดงานปัจจุบันด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับข้างต้น ฉันกำลังพยายามใช้ VBA แต่เมื่อฉันไปถึงขั้นตอน #3: 3 จากนั้นกดปุ่ม F5 เพื่อเรียกใช้รหัสนี้ และในหน้าต่าง เปิดไฟล์ ให้เลือกเวิร์กบุ๊กที่คุณต้องการนำเข้าข้อมูล ฉันไม่สามารถ "ดูได้" " ไฟล์ที่ฉันต้องนำเข้าข้อมูล! โฟลเดอร์ไม่แสดงไฟล์นั้น! ฉันจะทำอย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับเคล็ดลับที่ยอดเยี่ยมที่นี่ ฉันจัดการเพื่อให้งานเขียนโค้ดกับโปรเจ็กต์ปัจจุบันของฉันได้ คำถามของฉันคือฉันจะตั้งค่าเริ่มต้นของ ''เซลล์ปลายทาง'' เป็นช่วง ''A5'' ได้อย่างไรโดยไม่ต้องเปิด InputBox
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas Quando faço alteração ของ algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บึนเดีย! เขาใช้มาโครและ realmente ฉัน fue muy util, pero quisiera saber, ¿como puedo agregar una instruccion a la macro para que se peguen solo los valores y no las formulas al libro abierto y tambiéra quen al quisiera adicional สำหรับ poder seguir pegando datos de otros archivos cerrados...

Esto es porque yo recibo ข้อมูลของ los Candidatos y lo debo de concentrar en un formato maestro
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันใช้งานได้ดี ขอบคุณ ฉันมีปัญหากับการคัดลอกสูตรไม่ใช่ค่า ฉันจะคัดลอกเฉพาะค่าได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดี แต่ในไฟล์ที่ฉันเปิด มันจะอนุญาตให้ฉันเปิดจากแท็บที่อยู่ล่าสุดเท่านั้น มีวิธีให้ฉันเลือกเวิร์กชีตที่ต้องการก่อนเลือกช่วงเซลล์หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี แพทริค เมื่อใช้โค้ดข้างต้น หากกล่องข้อความปรากฏขึ้น คุณสามารถคลิกแท็บแผ่นงานที่ต้องการ จากนั้นเลือกช่วงของเซลล์ได้ โปรดลองอีกครั้ง ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ฉันต้องนำเข้าช่วงของข้อมูล (ด้วยการรักษารูปแบบ) จากสมุดงาน 5 แบบ (แต่ละแผ่นมี 3 แผ่น ต้องนำเข้าเพียงแผ่นเดียว) เป็น 5 แผ่นงานที่ระบุในสมุดงานหลัก (แผ่นงานปลายทางต้องมีชื่อเหมือนกันตลอดเวลา ซึ่งต่างจากชื่อชีตต้นทาง) ทุกสัปดาห์ชื่อไฟล์ต้นฉบับ/ชีตจะแตกต่างกัน คุณช่วยเรื่องนี้ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พลาดของสำคัญ. ต้องนำเข้าเฉพาะค่าเท่านั้น (ไม่ใช่สูตร)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL