V aplikaci Microsoft Excel je získání informací z uzavřeného sešitu jedním z nejvíce časově úsporných způsobů získání přesných dat pomocí kódu VBA. V tomto článku se naučíme číst informace z uzavřeného sešitu pomocí VBA v Microsoft Excelu.
Pokud dostáváte více souborů prostřednictvím e -mailu nebo jiného zdroje a chcete získat informace uložené v konkrétní buňce, měli byste si přečíst tento návod.
Abychom porozuměli tomuto příkladu, musíme vytvořit nějaké ukázkové soubory na cestě, kterou použijeme v kódu VBA; zde jsme uložili několik souborů (soubory North & West) do cesty „D: \ testing“.
Chcete -li extrahovat data ze všech souborů aplikace Excel ve složce, musíme ke spuštění VB editoru provést následující kroky:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Zkopírujte níže uvedený kód do standardního modulu
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' --- Komentář wbCount = 0 wbName = Dir (FolderName & "\" & "*.xls") While wbName "" wbCount = wbCount + 1 ReDim Preserve wbList (1 To wbCount) wbList (wbCount) = wbName wbName = Dir Wend Pokud wbCount = 0, pak Exit Sub 'získejte hodnoty z každého sešitu' --- Komentář r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A1") Buňky (r, 1). Vzorec = wbList (i) Buňky (r, 2). Vzorec = cValue Další i Končí Sub Soukromá funkce 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) = "" Then Exit Function arg = "'" & wbPath & "[" & wb Jméno & "]" & _ wsNázev & "'!" & Range (cellRef) .Address (True, True, xlR1C1) On Error Resume Next GetInfoFromClosedFile = ExecuteExcel4Macro (arg) End Function
Musíme spustit makro a následující bude snímek výsledku:
Závěr: Pomocí výše uvedeného kódu můžeme získat data z uzavřeného sešitu z konkrétní buňky.
Poznámka: Jako příklad je použita buňka A1; pokud chcete načíst data z jakékoli jiné buňky, jednoduše ji musíte zmínit.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail
