Programmā Microsoft Excel informācijas iegūšana no slēgtās darbgrāmatas ir viens no laikietilpīgākajiem veidiem, kā iegūt precīzus datus, izmantojot VBA kodu. Šajā rakstā mēs uzzināsim, kā lasīt informāciju no slēgtās darbgrāmatas, izmantojot Microsoft Excel VBA.
Ja jūs saņemat vairākus failus pa e -pastu vai jebkuru citu avotu un vēlaties iegūt informāciju, kas saglabāta noteiktā šūnā, jums vajadzētu izlasīt šo pamācību.
Lai saprastu šo piemēru, mums ir jāizveido daži failu paraugi ceļā, kuru izmantosim VBA kodā; šeit mēs esam saglabājuši pāris failus (ziemeļu un rietumu failus) ceļā “D: \ testēšana”.
Lai iegūtu datus no visiem Excel failiem mapē, mums ir jāveic šādas darbības, lai palaistu VB redaktoru:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Nokopējiet zemāk esošo kodu standarta modulī
Sub ReadDataFromAllWorkbooksInFolder () Dim FolderName As String, wbName As String, r Cik ilgi, cValue As Variant Dim wbList () Kā virkne, wbCount As Integer, i As Integer FolderName = "D: \ testēšana" "izveidot darbgrāmatu sarakstu mapē" --- Komentārs wbCount = 0 wbName = Dir (FolderName & "\" & "*.xls") Kamēr wbName "" wbCount = wbCount + 1 ReDim Saglabāt wbList (1 To wbCount) wbList (wbCount) = wbName wbName = Dir Wend Ja wbCount = 0, tad Exit Sub 'iegūst vērtības no katras darbgrāmatas' --- Komentārs r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A" Kā virkne) Kā variants Dim arg Kā virkne GetInfoFromClosedFile = "" Ja pareizi (wbPath, 1) "\" Tad wbPath = wbPath & "\" If Dir (wbPath & "\" & wbName) = "" Tad iziet no funkcijas arg = "" "& wbPath &" ["& wb Nosaukums & "]" & _ wsVārds & "'!" & Diapazons (cellRef). Adrese (True, True, xlR1C1) pēc kļūdas Atsākt nākamo GetInfoFromClosedFile = ExecuteExcel4Macro (arg) Beigu funkcija
Mums ir jāpalaiž makro, un rezultāts būs momentuzņēmums:
Secinājums: Izmantojot iepriekš minēto kodu, mēs varam iegūt datus no slēgtās darbgrāmatas no konkrētas šūnas.
Piezīme. Kā piemēru tiek izmantota šūna A1; ja vēlaties izgūt datus no jebkuras citas šūnas, jums vienkārši jāpiemin šī šūna.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē