Ako odovzdať parametre z programu Excel do programu Microsoft Query

Mať vedomosti odovzdať parametre z aplikácie Microsoft Excel do dotazu v programe Microsoft Office Access môžete vytvoriť databázy programu dynamickejší . Excel je tabuľkový program sa často používa na ukladanie a analyzovať veľké množstvo dát . Access je relačný databázový systém slúži na navrhovanie lokálnych databáz . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných úloh , ako je odovzdávanie parametrov z programu Excel do programu Access . Otázka sa používa na načítanie informácií z databázových tabuliek . Veci , ktoré budete potrebovať v Microsoft Office Access
Microsoft Office Excel
Zobraziť viac Pokyny Cestuj 1

Otvorte program Microsoft Office Excel , zadajte " 1 " do " A1 " , " 2 " v " B1 " a " 3 " " C1 . " Uložte zošit ako " myExceldata " v " C : \\ " .
2

Spustite program Microsoft Office Access , zvoľte " Bland databázy " kliknite na tlačidlo " Vytvoriť " . Zvoľte menu " Database Tools " a kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a vyberte " Module " .
3

Kliknite na menu " Nástroje " , vyberte " Odkazy " a zaškrtnite políčko vedľa " Microsoft Excel , Object Library " . Kliknite na tlačidlo " OK " .
4

skopírujte a vložte nasledujúci kód jazyka VBA k otvoreniu " myExceldata " zošit . Budete používať hodnotu " B1 " ako parameter pre dotaz na dáta z " dbAccessTable " tabuľky vytvorené a zobrazí popis cez okno so správou .

Private Sub passExcelParamenters ( )

Dim strSQL as String

Dim dbs ako databáza

Dim rst ako Recordset

Dim XLSPar as Integer

Dim XLSApp ako Excel.Application

Dim XLXBook Ako Excel.Workbook

Dim XLSSheet Ako Excel.Worksheet

Set DBS = CurrentDb

Set XLXBook = Workbooks.Add ( Šablóna : = " G : \\ myExcelData . xlsx " )

Set XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Hárok1 " )

S XLSSheet

. Range ( " B1 " ) . Vyberte

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL = " CREATE TABLE dbAccessTable ( Prod_ID číslo , prodct TEXT ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( Prod_ID , prodct ) "

strSQL = strSQL & " VALUES ( 1 , ' auta ' ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( Prod_ID , prodct ) "

strSQL = strSQL a " VALUES ( 2 ​​, " nákladné vagóny " ) ; "

DoCmd.RunSQL ( strSQL )

sqlStr = " SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct "

sqlStr = sqlStr & " Z dbAccessTable "

sqlStr = sqlStr & " WHERE ( ( ( dbAccessTable.Prod_ID ) = " & ( XLSPar ) & " ) ) ; "

Set rst = dbs.OpenRecordset ( sqlStr )

rst.MoveLast

rst.MoveFirst

MsgBox " popis ID produktu v B1 je " & rst . Pole ( 1 ) . Hodnota

rst.Close

dbs.Close

End Sub
5

Stlačte " F5 " na spustenie podprogram .

• Predchádzajúca strana: Mailmerge v programe Excel Word 2003 Návod 
• Ďalšia strana: Ako používať vyhľadávanie v aplikácii Microsoft Excel