Microsoft Excelissä tietojen saaminen suljetusta työkirjasta on yksi aikaa säästävimmistä tavoista saada tarkkoja tietoja VBA-koodin avulla. Tässä artikkelissa opimme lukemaan tietoja suljetusta työkirjasta käyttämällä VBA: ta Microsoft Excelissä.
Jos saat useita tiedostoja sähköpostitse tai muusta lähteestä ja haluat saada tiettyyn soluun tallennettuja tietoja, sinun kannattaa lukea tämä opetusohjelma.
Tämän esimerkin ymmärtämiseksi meidän on luotava joitain mallitiedostoja polulle, jota käytämme VBA -koodissa; täällä olemme tallentaneet pari tiedostoa (pohjois- ja länsitiedostot) "D: \ testaus" -polulle.
Jos haluat poimia tietoja kaikista kansion Excel -tiedostoista, meidän on suoritettava seuraavat vaiheet VB -editorin käynnistämiseksi:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Kopioi alla oleva koodi vakiomoduuliin
Sub ReadDataFromAllWorkbooksInFolder () Dim FolderName As String, wbName As String, r Niin pitkä, cValue As Variant Dim Dim wbList () Kuten merkkijono, wbCount As Integer, i As Integer FolderName = "D: \ testing" 'luo työkirjojen luettelo kansion nimellä' --- Kommentti wbCount = 0 wbName = Dir (FolderName & "\" & "*.xls") Vaikka wbName "" wbCount = wbCount + 1 ReDim Preserve wbList (1 to wbCount) wbList (wbCount) = wbName wbName = Dir Wend Jos wbCount = 0 Sitten Exit Sub 'hae arvot jokaisesta työkirjasta' --- Kommentti r = 0 Työkirjat.Lisää i = 1 WbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A1") Solut (r, 1) .Formula = wbList (i) Solut (r, 2) .Formula = cValue Seuraava i End Sub Private Function GetInfoFromClosedFile (ByVal wbPath As String, _ wbName As String, wsName As String, cellRef Kuten merkkijono) Varianttina Dim arg Kuten merkkijono GetInfoFromClosedFile = "" Jos oikein (wbPath, 1) "\" Sitten wbPath = wbPath & "\" If Dir (wbPath & "\" & wbName) = "" Sitten Lopeta toiminto arg = "" "& wbPath &" ["& wb Nimi & "]" & _ wsNimi & "'!" & Range (cellRef) .Osoite (True, True, xlR1C1) On Error Jatka seuraavaksi GetInfoFromClosedFile = ExecuteExcel4Macro (arg) End Function
Meidän on suoritettava makro ja seuraava on tilannekuva tuloksesta:
Johtopäätös: Käyttämällä yllä olevaa koodia voimme saada tietoja suljetusta työkirjasta tietystä solusta.
Huomautus: Esimerkkinä käytetään solua A1; jos haluat noutaa tietoja mistä tahansa muusta solusta, sinun on vain mainittava kyseinen solu.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse