วิธีการส่งออกหลายคอลัมน์ไปยังไฟล์ข้อความแต่ละไฟล์ใน Excel
โดยปกติคุณสามารถส่งออกแผ่นงานไปยังไฟล์ txt ใน Excel ได้อย่างรวดเร็วและง่ายดายโดยใช้ฟังก์ชันบันทึกเป็น แต่คุณเคยพยายามบันทึกข้อมูลแต่ละคอลัมน์ลงในไฟล์ข้อความทีละไฟล์จากแผ่นงาน Excel หรือไม่? บทความนี้ผมจะพูดถึงวิธีแก้งานนี้โดยเร็วที่สุด
ส่งออกหลายคอลัมน์เป็นไฟล์ข้อความแต่ละไฟล์ด้วยรหัส VBA
ส่งออกแผ่นงานหลายแผ่นเป็นไฟล์ข้อความ / pdf / csv แต่ละไฟล์ด้วย Kutools for Excel
ส่งออกหลายคอลัมน์เป็นไฟล์ข้อความแต่ละไฟล์ด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณบันทึกข้อมูลแต่ละคอลัมน์ลงในไฟล์ข้อความทีละไฟล์ใน Excel ได้โปรดทำดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ส่งออกหลายคอลัมน์เป็นไฟล์ข้อความแต่ละไฟล์:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. หลังจากวางรหัสแล้วกรุณากด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และไฟล์ เบราว์เซอร์ กล่องโต้ตอบจะปรากฏขึ้นจากนั้นเลือกโฟลเดอร์เพื่อใส่ไฟล์ข้อความที่ส่งออกดูภาพหน้าจอ:
4. จากนั้นคลิก OK และข้อมูลแต่ละคอลัมน์ในแผ่นงานที่ใช้งานได้ถูกส่งออกไปยังไฟล์ข้อความทีละรายการดูภาพหน้าจอ:
ส่งออกแผ่นงานหลายแผ่นเป็นไฟล์ข้อความ / pdf / csv แต่ละไฟล์ด้วย Kutools for Excel
หากคุณต้องการส่งออกแผ่นงานหลายแผ่นเป็นไฟล์ข้อความ pdf หรือ csv ไฟล์ Kutools สำหรับ Excel's แยกสมุดงาน คุณสมบัติสามารถช่วยคุณได้
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำตามขั้นตอนต่อไปนี้:
1. คลิก Kutools พลัส > สมุดงาน > แยกสมุดงานดูภาพหน้าจอ:
2. ใน แยกสมุดงาน กล่องโต้ตอบตรวจสอบแผ่นงานที่คุณต้องการบันทึกเป็นไฟล์ txt, pdf, csv จากนั้นตรวจสอบ บันทึกเป็นชนิด จากนั้นเลือกประเภทไฟล์ที่คุณต้องการบันทึกเป็นจากนั้นคลิก แยก ในปุ่ม เรียกดูโฟลเดอร์ กล่องโต้ตอบเลือกโฟลเดอร์ที่จะใส่ไฟล์ที่ส่งออกดูภาพหน้าจอ:
3. จากนั้นคลิก OK และแผ่นงานที่คุณเลือกได้ถูกส่งออกไปยังรูปแบบไฟล์เฉพาะตามที่คุณต้องการดูภาพหน้าจอ:
คลิกเพื่อดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!