VBA - duomenų bazės (MDB) prijungimas prie „Excel“

„Microsoft Excel“, kuri yra populiari „SpreadSheet“ programinė įranga „Office“, leidžia vartotojams prisijungti prie „Microsoft Access MDB“ duomenų bazės. „Microsoft Access MDB“ duomenų bazės prijungimas prie „Excel“ gali būti atliekamas naudojant makrokomandas. Gali prireikti šiek tiek žinių apie „Excel“ ir makrokomandas. „Access“ duomenų bazės prijungimui prie „Excel“ darbalapių reikia „Microsoft DAO“ objekto bibliotekos. Galima atidaryti „Access“ duomenų bazę „Excel“ ir prieiti prie duomenų bazės duomenų. Jungiant „Microsoft Access“ duomenų bazę į „Excel“, galima atlikti įvairias duomenų manipuliacijas, tokias kaip duomenų kopijavimas laukuose į „Excel“ darbalapio stulpelius ir kiti skaičiavimai.

Toliau pateikiami patarimai, kaip prijungti prieigos duomenų bazę (MDB) prie „Excel“
  • Pridėti nuorodą
  • „Microsoft DAO“ objektų biblioteka XX

Bendrame modulyje (pvz., 1 modulyje) įklijuokite toliau pateiktą kodą

 „Sub CopyDBaccess“ () „Dim BDexp“ kaip duomenų bazės „Dim Table“ kaip įrašymo įrenginys „Dim TbDef“ kaip „TableDef“ „Dim Ch“ kaip eilutė, „Lig“ kaip ilgai, i kaip „Integer“ Ch = "PAth & NameofDB.MDB" Nustatykite BDexp = DBEngine.Workspaces (0) .OpenDatabase (Ch) Nustatyti lentelę = BDexp.OpenRecordset ("Name ofTable", dbOpenDynaset) "Debug.Print Table.Name Set TbDef = BDexp.TableDefs (" NameofTable ") Lig = 3 dim vardas (TbDef.Fields.Count - 1) kaip eilutė „Įdėkite pavadinimus į stulpelį„ Lapai “(„ Lapas1 “) Dėl i = 0 į TbDef.Fields.Count - 1 'Pour avoir toute la ligne' Debug.Print TbDef.Fields (i) .Name pavadinimas (i) = TbDef .Išrašai (i) .Pavadinimas .Pavadinimai (Lig, i + 3) = Vardas (i) Kitas „Skambintojas iš 1 įrašo Lentelė.Perkelti pirmąjį ligą = 4, o ne lentelę.EUF už i = 0 į TbDef.Fields.Count - 1 „Visai eilutei .Kelės (Lig, i + 3) = Lentelė (Vardas (i)) Kitas i Lig = Lig + 1 Table.MoveNext 'Eiti į kitą įrašą Wend End with Table.Uždarykite BDexp.Close Set BDexp = Nothing Nustatyti lentelę = Nieko pabaiga 

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai