Skip i'r prif gynnwys

Sut i agor pob ffeil Excel o ffolder yn gyflym?

Yn yr erthygl hon, rwy'n cyflwyno'r macro i agor pob llyfr gwaith o ffolder benodol.

Agorwch yr holl lyfrau gwaith mewn ffolder gyda VBA

Rhestrwch holl enwau ffeil un ffolder penodol gyda Kutools ar gyfer Excel syniad da3


Agorwch yr holl lyfrau gwaith mewn ffolder gyda VBA

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r sgript.

VBA: Agorwch yr holl ffeiliau Excel mewn ffolder

Sub OpenFiles()
'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    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
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop
End Sub

doc agor ffeiliau o ffolder 1

3. Gwasgwch F5 allwedd, mae deialog yn ymddangos ar gyfer dewis ffolder rydych chi am agor yr holl lyfrau gwaith ynddo. Gweler y screenshot:
doc agor ffeiliau o ffolder 2

4. Cliciwch OK, ac mae'r holl lyfrau gwaith yn y ffolder benodol wedi'u hagor.


Rhestrwch holl enwau ffeil un ffolder penodol gyda Kutools ar gyfer Excel

Ac eithrio agor ffeiliau mewn ffolder, a ydych erioed wedi ceisio rhestru holl enwau ffeiliau un ffolder benodol? Gyda Kutools ar gyfer Excel'S Rhestr Enw Ffeil cyfleustodau, gallwch chi restru pob math neu un math penodol o ffeiliau yn gyflym mewn un ffolder.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Rhestr Enw Ffeil. Gweler y screenshot:
doc agor ffeiliau o ffolder 4

2. Yn y Rhestr Enw Ffeil deialog, dewiswch ffolder rydych chi am restru ffeiliau ohono, nodwch y math o ffeil rydych chi am ei rhestru, ac yna nodwch uned maint y ffeil yn ôl yr angen. Os ydych chi eisiau, gallwch greu hypergysylltiadau i'r enwau ffeiliau a fydd yn rhestru. Gweler y screenshot:
doc agor ffeiliau o ffolder 5

3. Cliciwch Ok, ac mae'r holl ffeiliau yn y ffolder benodol wedi'u rhestru ar ddalen newydd o'r llyfr gwaith gweithredol. Gweler y screenshot:
doc agor ffeiliau o ffolder 6

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...

Disgrifiad


Mae 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations