วิธีการนำเข้าไฟล์ข้อความหลายไฟล์ไปยังแผ่นงานหลายแผ่น
สมมติว่ามีไฟล์ข้อความหลายไฟล์ในโฟลเดอร์ของคอมพิวเตอร์ของคุณตอนนี้คุณต้องการนำเข้าไฟล์ข้อความเหล่านี้ไปยังสมุดงาน Excel และวางไฟล์ข้อความแต่ละไฟล์ลงในแผ่นงานแยกกัน การคัดลอกและวางไฟล์ข้อความแต่ละไฟล์ลงในแผ่นงานทีละไฟล์จะเสียเวลามากที่นี่ฉันสามารถพูดคุยเกี่ยวกับเทคนิคบางอย่างสำหรับคุณในการแก้ปัญหานี้
นำเข้าไฟล์ข้อความหลายไฟล์เพื่อแยกแผ่นงานด้วยรหัส VBA
แยกสมุดงานเป็นไฟล์ข้อความ / pdf / csv / xlsx แยกกันหลายไฟล์ด้วย Kutools for Excel
นำเข้าไฟล์ข้อความหลายไฟล์เพื่อแยกแผ่นงานด้วยรหัส VBA
รหัส VBA ต่อไปนี้อาจช่วยให้คุณนำเข้าไฟล์ข้อความแต่ละไฟล์ลงในแผ่นงานแยกกันภายในสมุดงานใหม่ได้ในคราวเดียวโปรดทำดังนี้
1. กด ALT + F11 ใน Excel เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: นำเข้าไฟล์ข้อความหลายไฟล์ไปยังแผ่นงานแยกกัน:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. หลังจากวางรหัสด้านบนแล้วให้กด F5 คีย์เพื่อเรียกใช้รหัสนี้และในหน้าต่างที่โผล่ออกมาโปรดระบุโฟลเดอร์ที่มีไฟล์ข้อความไปที่โฟลเดอร์เพื่อเลือกไฟล์ข้อความที่คุณต้องการนำเข้าสู่แผ่นงานดูภาพหน้าจอ:
4. จากนั้นคลิก จุดเปิด ไฟล์ข้อความที่เลือกทั้งหมดจะถูกนำเข้าสู่สมุดงานใหม่และแต่ละไฟล์จะอยู่ในแผ่นงานเดียว
5. ในที่สุดคุณสามารถบันทึกสมุดงานใหม่ได้ตามที่คุณต้องการ
แยกสมุดงานเป็นไฟล์ข้อความ / pdf / csv / xlsx แยกกันหลายไฟล์ด้วย Kutools for Excel
บางครั้งคุณอาจต้องดำเนินการที่ตรงกันข้ามกับงานข้างต้นกล่าวคือคุณต้องแยกสมุดงานเพื่อแยกไฟล์ข้อความ Kutools สำหรับ Excel's แยกสมุดงาน ยูทิลิตี้สามารถช่วยคุณแก้งานนี้ได้อย่างรวดเร็วและง่ายดาย
| Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้ :( ดาวน์โหลด Kutools for Excel ได้ฟรีทันที! )
1. เปิดใช้งานสมุดงานที่คุณต้องการแบ่งเป็นไฟล์ข้อความหลายไฟล์
2. คลิก Enterprise > สมุดงาน > แยกสมุดงานดูภาพหน้าจอ:
3. ใน แยกสมุดงาน กล่องโต้ตอบ:
(1. ) ตรวจสอบแผ่นงานที่คุณต้องการแยก
(2. ) ตรวจสอบ ระบุรูปแบบการบันทึกจากนั้นเลือกรูปแบบไฟล์ที่คุณต้องการบันทึกตัวอย่างเช่นคุณสามารถเลือกได้ TXT, CSV, รูปแบบไฟล์ PDF, xlsx or XLS รูปแบบไฟล์ตามที่คุณต้องการ
(3. ) จากนั้นคลิก แยก ในกล่องพร้อมต์ต่อไปนี้ระบุโฟลเดอร์ที่จะส่งออกไฟล์แยกต่างหาก
 |
 |
 |
4. จากนั้นคลิก OK และแผ่นงานที่คุณเลือกจะถูกแบ่งและบันทึกลงในโฟลเดอร์ที่คุณต้องการด้วยรูปแบบตามที่คุณต้องการ
ดาวน์โหลด Kutools for Excel ได้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
