VBA - Povezovanje baze podatkov (MDB) z Excelom
Microsoft Excel, ki je priljubljena programska oprema SpreadSheet v Officeu, omogoča uporabnikom, da se povežejo z bazo podatkov Microsoft Access MDB. Povezovanje baze podatkov Microsoft Access MDB z Excelom se lahko izvede z uporabo makrov. Morda bo potrebno nekaj znanja o Excelu in makrih. Za povezavo baze podatkov Access z delovnimi listi Excel je potrebna knjižnica objektov Microsoft DAO. V Excelu lahko odprete Access Database in dostopate do podatkov v bazi podatkov. Različne manipulacije podatkov, kot so kopiranje podatkov v poljih v stolpce v Excelovem delovnem listu in drugi izračuni, se lahko izvede s povezovanjem Microsoftove baze podatkov Access v Excel.
- Dodajte referenco
- Knjižnica objektov Microsoft DAO XX
V splošnem modulu (npr. Modul1) prilepite spodnjo kodo
Sub CopyDBaccess () Dim BDexp Kot baza podatkov Dim Table kot Recordset Dim TbDef As TableDef Dim Ch Kot niz, Lig As Long, i As Integer Ch = "PAth & NameofDB.MDB" Nastavi BDexp = DBEngine.Workspaces (0). (Ch) Set Table = BDexp.OpenRecordset ("NameofTable", dbOpenDynaset) 'Debug.Print Table.Name Set TbDef = BDexp.TableDefs ("NameofTable") Lig = 3 dim Ime (TbDef.Fields.Count - 1) Kot niz 'Postavite naslove v stolpec S listi ("Sheet1") Za i = 0 V TbDef.Fields.Count - 1' Pour avoir toute la ligne 'Debug.Print TbDef.Fields (i) .Name Name (i) = TbDef .Področja (i) .Name. Celice (Lig, i + 3) = Ime (i) Naprej 'Klicatelj iz prvega zapisa Table.MoveFirst Lig = 4 Medtem ko ni tabele.EOF Za i = 0 V TbDef.Fields.Count - 1 "Za vse vrstice. Klici (Lig, i + 3) = Tabela (Ime (i)) Naprej i Lig = Lig + 1 Table.MoveNext" Pojdi na naslednji zapis Wend End With Table.Close BDexp.Close Set BDexp = Nič Nastavi tabelo = Nič ne konča Pod