İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də mətn fayllarını Excel-də orijinal adları olan ayrı-ayrı vərəqlər kimi necə gətirmək olar?

Mətn fayllarını Excel-də faylların orijinal adları olan ayrı-ayrı vərəqlər kimi idxal etməyə cəhd etdinizmi? Bu yazıda, mətn fayllarını bir qovluqdan Excel'e adları ilə tez bir şəkildə daxil etmək üçün VBA kodunu təqdim edirəm.
orijinal adı 1 kimi doc idxal mətni

Mətn fayllarını Excel-ə adlar ilə gətirin

Excel-də ayrı-ayrı iş kitabına bir çox işi tez birləşdirin

Microsoft Excel-də, bir iş kitabçasından bir iş kitabından yeni bir iş faylına kopyalayıp yapıştırarak yeni bir Excel faylı olaraq saxlaya və ya bölüşdürə bilərsiniz. Böyük bir iş kitabının hər bir səhifəsini / iş səhifəsini ayrıca Excel, txt, csv, pdf faylları kimi bölmək istəyirsinizsə, bu çətin görünür. Lakin ilə Excel üçün Kutools'S Split İş Kitabı kommunal, tez bir zamanda bununla məşğul ola bilərsiniz. 60 gün pulsuz sınaq üçün tıklayın!
doc split iş kitabı 1
Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Mətn fayllarını Excel-ə adlar ilə gətirin

1. Excel'i aktivləşdirin, basın Alt + F11 düymələri aktivləşdirmək Proqramlar üçün Microsoft Visual Basic sonra pəncərəni basın Taxmaq > Modules.
orijinal adı 2 kimi doc idxal mətni

2. Aşağıdakı kodu kopyala və yapışdırıb Modules scripts.

VBA: Mətn faylları adları ilə idxal edin

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath Dəyişik Dim xFileDialog kimi FileDialog Dim xFile Dəyişən Dim xCount Uzun Dim kimi xWS Xəttin işi olaraq Xətti GoTo ErrHandler Set xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Seçin XFileDialog.Show = -1 Sonra xStrPath = xFileDialog.SelectedItems (1) Əgər xStrPath = "" Sonra Sub Exit.ScreenUpdating = False xFile = Dir (xStrPath & "\ *. txt "XFile" xClose + 1 xWS = Sheets (xCount) xWS.Select xWS.Name = "TEXT" və Sol (xFile, Len (xFile) - 4) ActiveSheet.QueryTables.Add = "TEXT;" & xStrPath & "\" & xFile, maqsad: = Range ("A1") .Adı = "a" & xCount .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = Yanlış .PreserveFormatting = Doğru .RefreshOnFileOpen = Yanlış .RefreshStyle = xlInsertDeleteCells .SavePassword = Yanlış .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 = Doğru .Restresh BackgroundQuery: = False xFile = Loop Application ilə Dir End. Screensaver = True Exit Sub ErrHandler: MsgBox "faylları txt", "Excel üçün Kutools" Sub

3. Basın F5 kodu çalıştırın, sonra da Excel-də idxal etmək istədiyiniz mətn faylları olan bir qovluq seçin Bir qovluq seçin dialoq.
orijinal adı 3 kimi doc idxal mətni

4. klik OK, qovluqdakı mətn faylları Excel-də öz adları ilə bir səhifədə idxal olundu.


10-un Kəşfini Firefox, Chrome, İnternet kimi bir çox Word sənədini / Excel iş kitabını gözdən keçirin və redaktə edin!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Burada, Office Tab birbaşa Word pəncərəsində və ya Excel pəncərəsində birdən çox Word sənədinə və ya Excel kitablarına göz atmanıza imkan verən oxşar işlənməni dəstəkləyir və onların sekmelerini tıklayarak asanlıqla keçid edə bilərsiniz.
Ofis Sekmesinin pulsuz sınaq üçün basın!

Firefox kimi bir pəncərədə birdən çox söz sənədinə göz atın


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.