Ինչպե՞ս թղթապանակից բազմաթիվ տեքստային ֆայլեր ներմուծել մեկ աշխատանքային թերթի մեջ:
Դեպքերի համար այստեղ դուք ունեք բազմաթիվ տեքստային ֆայլեր ունեցող պանակ, այն, ինչ ցանկանում եք անել, այս տեքստային ֆայլերը ներմուծել մեկ աշխատանքային թերթի մեջ, ինչպես ցույց է տրված ստորև նշված նկարից: Փոխանակ տեքստային ֆայլերը մեկ առ մեկ պատճենելու, կա՞ն հնարքներ տեքստային ֆայլերը մեկ թղթապանակից մեկ թերթի մեջ արագ ներմուծելու համար:
Ներմուծեք բազմաթիվ տեքստային ֆայլեր մեկ թղթապանակից մեկ թերթիկի մեջ VBA- ով
Excel- ի համար Kutools- ով ներմուծեք տեքստային ֆայլ ակտիվ բջիջ
Ներմուծեք բազմաթիվ տեքստային ֆայլեր մեկ թղթապանակից մեկ թերթիկի մեջ VBA- ով
Ահա VBA կոդը կարող է օգնել ձեզ ներմուծել բոլոր տեքստային ֆայլերը մեկ հատուկ թղթապանակից նոր թերթի մեջ:
1. Միացրեք աշխատանքային գիրքը, որը ցանկանում եք ներմուծել տեքստային ֆայլեր և սեղմել Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք ներքևում գտնվող VBA կոդ ՝ Մոդուլներ պատուհան.
VBA. Ներմուծեք բազմաթիվ տեքստային ֆայլեր մեկ թղթապանակից մեկ թերթ
Sub Test()
'UpdatebyExtendoffice6/7/2016
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
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
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub
3. Մամուլ F5 երկխոսություն ցուցադրելու համար և ընտրեք պանակ, որը պարունակում է տեքստային ֆայլեր, որոնք ցանկանում եք ներմուծել: Տեսեք,
4: սեղմեք OK, Այնուհետև տեքստային ֆայլերը ներմուծվում են ակտիվ աշխատանքային գրքույկ ՝ որպես առանձին նոր թերթ:
Excel- ի համար Kutools- ով ներմուծեք տեքստային ֆայլ ակտիվ բջիջ
Եթե ցանկանում եք մեկ տեքստային ֆայլ ներմուծել որոշակի բջիջ կամ տիրույթ, կարող եք դիմել Excel- ի համար նախատեսված գործիքներ'S Տեղադրեք ֆայլը կուրսորում կոմունալ.
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: | ||
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք բջիջ, որը ցանկանում եք ներմուծել տեքստային ֆայլը և կտտացնել Kutools Plus > Ներմուծման արտահանման > Տեղադրեք ֆայլը կուրսորում, Տեսեք,
2. Դրանից հետո դուրս է գալիս երկխոսություն, կտտացրեք Թերթել ցուցադրելու համար Ընտրեք ֆայլ բջջի կուրսորի դիրքի երկխոսության մեջ տեղադրելու համար հաջորդը ընտրեք Տեքստային ֆայլեր բացվող ցուցակից, ապա ընտրեք տեքստային ֆայլը, որը ցանկանում եք ներմուծել: Տեսեք,
3: սեղմեք բաց > Ok, և նշված տեքստի ֆայլը տեղադրվել է կուրսորի դիրքում, տես նկարի նկարը.
Ներմուծեք / տեղադրեք տեքստի ֆայլը կուրսորը
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: