Sut i ddolennu trwy ffeiliau mewn cyfeiriadur a chopïo data i mewn i brif ddalen yn Excel?
Gan dybio bod nifer o lyfrau gwaith Excel mewn ffolder, a'ch bod am ddolen trwy'r holl ffeiliau Excel hyn a chopïo data o ystod benodol o daflenni gwaith o'r un enw i mewn i brif daflen waith yn Excel, beth allwch chi ei wneud? Mae'r erthygl hon yn cyflwyno dull i'w gyflawni mewn manylion.
Dolen trwy ffeiliau mewn cyfeiriadur a chopïo data i mewn i brif ddalen gyda chod VBA
Dolen trwy ffeiliau mewn cyfeiriadur a chopïo data i mewn i brif ddalen gyda chod VBA
Os ydych chi am gopïo data penodol yn ystod A1: D4 o bob dalen1 o lyfrau gwaith mewn ffolder benodol i brif ddalen, gwnewch fel a ganlyn.
1. Yn y llyfr gwaith byddwch yn creu prif daflen waith, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr cod.
Cod VBA: dolennu trwy ffeiliau mewn ffolder a chopïo data i mewn i brif ddalen
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 SubNodyn:
3. Gwasgwch y F5 allwedd i redeg y cod.
4. Yn yr agoriad Pori ffenestr, dewiswch y ffolder sy'n cynnwys y ffeiliau y byddwch chi'n dolennu drwyddynt, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna crëir prif daflen waith o'r enw “New Sheet” ar ddiwedd y llyfr gwaith cyfredol. Ac mae data yn ystod A1: D4 o'r holl Daflen 1 mewn ffolder a ddewiswyd wedi'i restru y tu mewn i'r daflen waith.
Erthyglau cysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
