U Microsoft Excelu dobivanje informacija iz zatvorene radne knjige jedan je od načina koji štedi vrijeme za dobivanje točnih podataka pomoću VBA koda. U ovom ćemo članku naučiti čitati informacije iz zatvorene radne knjige pomoću VBA -e u programu Microsoft Excel.
Ako primate više datoteka putem e -pošte ili bilo kojeg drugog izvora i želite dobiti podatke pohranjene u određenoj ćeliji, trebali biste pročitati ovaj vodič.
Da bismo razumjeli ovaj primjer, moramo stvoriti neke uzorke datoteka na putu koji ćemo koristiti u VBA kodu; ovdje smo spremili nekoliko datoteka (datoteke Sjever i Zapad) u "D: \ testing" stazi.
Da bismo izvukli podatke iz svih excel datoteka u mapi, moramo slijediti korake u nastavku za pokretanje VB uređivača:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Kopirajte donji kod u standardni modul
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" 'stvorite popis radnih knjiga u nazivu mape' --- Komentar wbCount = 0 wbName = Dir (Naziv mape & "\" & "*.xls") Dok je wbName "" wbCount = wbCount + 1 ReDim čuva wbList (1 Za wbCount) wbList (wbCount) = wbName wbName = Dir Wend Ako je wbCount = 0, tada izađite iz Sub 'get values from each workbook' --- Comment r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A1") Ćelije (r, 1) .Formula = wbList (i) Ćelije (r, 2) .Formula = cValue Dalje i Završetak pod privatne funkcije GetInfoFromClosedFile (ByVal wbPath kao niz, _ wbName kao niz, wsName kao niz, cellRef Kao niz) Kao varijanta Dim arg Kao niz GetInfoFromClosedFile = "" Ako je ispravno (wbPath, 1) "\" Zatim wbPath = wbPath & "\" Ako Dir (wbPath & "\" & wbName) = "" Zatim izađite iz funkcije arg = "'" & wbPath & "[" & wb Ime & "]" & _ wsName & "'!" & Raspon (cellRef). Adresa (True, True, xlR1C1) On Greška Nastavi dalje GetInfoFromClosedFile = ExecuteExcel4Macro (arg) Završna funkcija
Moramo pokrenuti makro i sljedeće će biti snimka rezultata:
Zaključak: Koristeći gornji kod, možemo dobiti podatke iz zatvorene radne knjige iz određene ćelije.
Napomena: Ćelija A1 koristi se kao primjer; ako želite dohvatiti podatke iz bilo koje druge ćelije, jednostavno morate spomenuti tu ćeliju.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte