Ինչպե՞ս ֆայլեր տեղադրել գրացուցակում և պատճենել տվյալները Excel- ի գլխավոր թերթի մեջ:
Ենթադրելով, որ թղթապանակում կան բազմաթիվ Excel աշխատանքային գրքեր, և դուք ցանկանում եք պտտվել այս բոլոր Excel ֆայլերի մեջ և տվյալների պատճենել նույն անունի սահմանված տիրույթից ՝ Excel- ի գլխավոր աշխատանքային թերթում, ի՞նչ կարող եք անել: Այս հոդվածը մանրամասնորեն ներկայացնում է դրան հասնելու մեթոդ:
Ֆայլերի միջով անցեք գրացուցակում և պատճենեք տվյալները VBA կոդով հիմնական թերթի մեջ
Ֆայլերի միջով անցեք գրացուցակում և պատճենեք տվյալները VBA կոդով հիմնական թերթի մեջ
Եթե ցանկանում եք A1: D4 տիրույթի սահմանված տվյալները պատճենել որոշակի թղթապանակի աշխատանքային գրքերի բոլոր թերթ 1-ից `հիմնական թերթիկի մեջ, խնդրում ենք վարվել հետևյալ կերպ.
1. Աշխատանքային գրքում դուք կստեղծեք հիմնական աշխատանքային թերթ, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:
VBA կոդ. Թղթապանակում տեղադրեք թղթապանակի ֆայլերը և պատճենեք տվյալները հիմնական թերթիկի մեջ
Sub Merge2MultiSheets()
Dim xRg As Range
Dim xSelItem As Variant
Dim xFileDlg As FileDialog
Dim xFileName, xSheetName, xRgStr As String
Dim xBook, xWorkBook As Workbook
Dim xSheet As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
xSheetName = "Sheet1"
xRgStr = "A1:D4"
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
With xFileDlg
If .Show = -1 Then
xSelItem = .SelectedItems.Item(1)
Set xWorkBook = ThisWorkbook
Set xSheet = xWorkBook.Sheets("New Sheet")
If xSheet Is Nothing Then
xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
Set xSheet = xWorkBook.Sheets("New Sheet")
End If
xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
If xFileName = "" Then Exit Sub
Do Until xFileName = ""
Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
xFileName = Dir()
xBook.Close
Loop
End If
End With
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Նշում:
3. Սեղմեք F5 ծածկագիրը գործելու համար:
4. Բացման մեջ Թերթել պատուհանը, ընտրեք պանակը, որը պարունակում է այն ֆայլերը, որոնցում դուք կփոխանցեք, ապա կտտացրեք OK կոճակ Տեսեք,
Այնուհետև ընթացիկ աշխատանքային գրքի վերջում ստեղծվում է «Նոր թերթ» անունով հիմնական աշխատաթերթ: Իսկ ընտրված թղթապանակի A1: D4 տիրույթի բոլոր տվյալները նշված են աշխատաթերթի ներսում:
Առնչվող հոդվածներ քանակը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: