วิธีการนำเข้าไฟล์ข้อความไปยัง Excel เป็นแผ่นงานแยกต่างหากพร้อมชื่อดั้งเดิมใน Excel
คุณเคยพยายามนำเข้าไฟล์ข้อความไปยัง Excel เป็นแผ่นงานแยกต่างหากโดยใช้ชื่อดั้งเดิมของไฟล์ใน Excel หรือไม่? ในบทความนี้ฉันแนะนำรหัส VBA เพื่อนำเข้าไฟล์ข้อความจากโฟลเดอร์หนึ่งไปยัง Excel พร้อมชื่อได้อย่างรวดเร็ว
นำเข้าไฟล์ข้อความไปยัง Excel พร้อมชื่อ
นำเข้าไฟล์ข้อความไปยัง Excel พร้อมชื่อ
1. เปิดใช้งาน Excel กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล.
2. คัดลอกและวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ
VBA: นำเข้าไฟล์ข้อความพร้อมชื่อ
Sub LoadPipeDelimitedFiles()
'UpdatebyExtendoffice20181010
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
Dim xWS As Worksheet
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Set xWS = Sheets(xCount)
xWS.Select
xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3 กด F5 เพื่อเรียกใช้รหัสจากนั้นเลือกโฟลเดอร์ที่มีไฟล์ข้อความที่คุณต้องการนำเข้าสู่ Excel ในไฟล์ เลือกโฟลเดอร์ โต้ตอบ
4 คลิก OKไฟล์ข้อความในโฟลเดอร์จะถูกนำเข้าใน Excel เป็นแผ่นเดียวพร้อมชื่อของตัวเอง
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
