I Microsoft Excel er det at få oplysninger fra en lukket projektmappe en af de mest tidsbesparende måder at få nøjagtige data ved hjælp af VBA-kode. I denne artikel lærer vi, hvordan du læser oplysninger fra en lukket projektmappe ved hjælp af VBA i Microsoft Excel.
Hvis du får flere filer via e -mail eller en anden kilde, og du vil have oplysninger gemt i en bestemt celle, skal du læse denne vejledning.
For at forstå dette eksempel skal vi oprette nogle prøvefiler på en sti, som vi vil bruge i VBA -kode; her har vi gemt et par filer (nord- og vestfiler) i stien "D: \ testing".
For at udtrække data fra alle excel -filerne i en mappe skal vi følge nedenstående trin for at starte VB -editor:
- Klik på fanen Udvikler
- Vælg Visual Basic fra kodegruppen
- Kopier nedenstående kode i standardmodulet
Sub ReadDataFromAllWorkbooksInFolder () Dim FolderName As String, wbName As String, r As Long, cValue As Variant Dim wbList () As String, wbCount As Integer, i As Integer FolderName = "D: \ testing" 'create list of workbooks in foldername' --- Kommentar wbCount = 0 wbName = Dir (mappenavn & "\" & "*.xls") Mens wbName "" wbCount = wbCount + 1 ReDim Preserve wbList (1 til wbCount) wbList (wbCount) = wbName wbName = Dir Wend Hvis wbCount = 0 Afslut derefter Sub 'få værdier fra hver projektmappe' --- Kommentar r = 0 Workbooks.Add For i = 1 Til wbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A1") Celler (r, 1) .Formula = wbList (i) Celler (r, 2) .Formula = cValue Næste i Afslut Sub Private Function GetInfoFromClosedFile (ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Variant Dim arg As String GetInfoFromClosedFile = "" If Right (wbPath, 1) "\" Then wbPath = wbPath & "\" If Dir (wbPath & "\" & wbName) = "" Derefter Afslut funktion arg = "'" & wbPath & "[" & wb Navn & "]" & _ wsName & "'!" & Range (cellRef) .Address (True, True, xlR1C1) Ved fejl Genoptag Næste GetInfoFromClosedFile = ExecuteExcel4Macro (arg) Afslut funktion
Vi skal køre makroen, og følgende bliver øjebliksbillede af resultatet:
Konklusion: Ved hjælp af ovenstående kode kan vi hente data fra lukket projektmappe fra en bestemt celle.
Bemærk: Celle A1 bruges som et eksempel; Hvis du vil hente data fra en anden celle, skal du blot nævne den celle.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet