Preberite informacije iz zaprtega delovnega zvezka z uporabo VBA v programu Microsoft Excel

Anonim

V Microsoft Excelu je pridobivanje informacij iz zaprtega delovnega zvezka eden od načinov, kako prihraniti čas s pomočjo kode VBA, ki prihrani čas. V tem članku se bomo naučili brati informacije iz zaprtega delovnega zvezka z uporabo VBA v programu Microsoft Excel.

Če po e -pošti ali katerem koli drugem viru prejemate več datotek in želite, da so podatki shranjeni v določeni celici, preberite to vadnico.

Za razumevanje tega primera moramo ustvariti nekaj vzorčnih datotek na poti, ki jo bomo uporabili v kodi VBA; tukaj smo shranili nekaj datotek (datoteke North & West) na poti “D: \ testing”.

Če želite izvleči podatke iz vseh datotek excel v mapi, moramo za zagon urejevalnika VB slediti spodnjim korakom:

  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

  • Kopirajte spodnjo kodo v 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" 'ustvarite seznam delovnih zvezkov v imenu mape' --- Komentar wbCount = 0 wbName = Dir (Ime mape & "\" & "*.xls") Medtem ko wbName "" wbCount = wbCount + 1 Shrani ReDim wbList (1 Za wbCount) wbList (wbCount) = wbName wbName = Dir Wend Če je wbCount = 0, potem zapustite pod "dobite vrednosti iz vsakega delovnega zvezka" --- Komentirajte r = 0 delovnih zvezkov. Dodajte za i = 1 V wbCount r = r + 1 cValue = GetInfoFromClosedFile (Ime mape, wbList (i), "List1", "A1") Celice (r, 1) .Formula = wbList (i) Celice (r, 2) .Formula = cValue Next i End Sub Zasebna funkcija GetInfoFromClosedFile (ByVal wbPath As String, _ wbName As String, wsName As String, cellRef Kot niz) Kot različica Dim arg Kot niz GetInfoFromClosedFile = "" Če je prav (wbPath, 1) "\" Potem wbPath = wbPath & "\" Če Dir (wbPath & "\" & wbName) = "" Potem zapustite funkcijo arg = "'" & wbPath & "[" & wb Ime & "]" & _ wsName & "'!" & Razpon (cellRef). Naslov (True, True, xlR1C1) On Error Resume Next GetInfoFromClosedFile = ExecuteExcel4Macro (arg) Končna funkcija

Zagnati moramo makro in naslednji bo posnetek rezultata:

Zaključek: Z uporabo zgornje kode lahko dobimo podatke iz zaprtega delovnega zvezka iz določene celice.

Opomba: celica A1 je uporabljena kot primer; če želite pridobiti podatke iz katere koli druge celice, morate to celico preprosto omeniti.

Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.

Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte