Kā izveidot izklājlapu programmā Excel no piekļuves, izmantojot VBA

Autors: Roger Morrison
Radīšanas Datums: 18 Septembris 2021
Atjaunināšanas Datums: 18 Novembris 2024
Anonim
[Gatavs lietošanai] izklājlapu pamati 1.daļa
Video: [Gatavs lietošanai] izklājlapu pamati 1.daļa

Saturs

Excel darblapas izveide programmā Access var ietaupīt laiku, kad nepieciešams eksportēt datus uz Excel darblapu. Visual Basic for Applications (VBA) var būt spēcīgs instruments, lai automatizētu procesus Microsoft Office lietojumprogrammās. Izmantojot VBA, varat izmantot Microsoft Excel lietojumprogrammas objektu, lai izveidotu Excel izklājlapu no Access. Excel objekts ir sākuma punkts pārējam objekta modelim. Eksportējiet datus uz Excel ātrāk, saglabājot datus tieši Excel darblapā.


Instrukcijas

Saglabājiet datus Excel darblapā, izmantojot VBA (Jupiterimages / Photos.com / Getty Images)

    Instrukcijas

  1. Palaidiet Microsoft Office Access, noklikšķiniet uz "Blank Database" un noklikšķiniet uz pogas "Create", lai izveidotu tukšu datubāzi. Noklikšķiniet uz cilnes "Datu bāzes rīki" un noklikšķiniet uz "Visual Basic", lai atvērtu logu Microsoft Visual Basic. Noklikšķiniet uz izvēlnes "Ievietot" un noklikšķiniet uz "Modulis", lai ievietotu jaunu moduļa kodu.

  2. Noklikšķiniet uz izvēlnes "Rīki" un noklikšķiniet uz "Atsauces". Pārvelciet un atzīmējiet izvēles rūtiņu blakus "Microsoft Excel" Objektu bibliotēka (Microsoft Excel objekta bibliotēka). Noklikšķiniet uz "OK".

  3. Sāciet, ievadot šādu kodu VBA, lai izveidotu jaunu apakšprocedūru:


    Privāta Sub createSpreadSheet ()

  4. Turpiniet ievadīt šādu kodu, lai izveidotu trīs jaunus objektu mainīgos, kas tiks izmantoti, lai izveidotu Excel darblapu:

    Dim newExcelApp kā Excel.Application Dim newWbk kā Excel.Workbook Dim newWkSheet Kā Excel.Worksheet

  5. Pievienojiet šādu kodu, lai palaistu Excel un parādītu to:

    Iestatiet newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Ievadiet šādu kodu, lai pievienotu jaunu darbgrāmatu un darblapu:

    Set newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)

  7. Pievienojiet datus savai jaunajai darblapai, ierakstot šādu kodu:

    newWkSheet.Cells (1, 1) .Value = "Jauna darblapa ..."

  8. Saglabājiet jauno darbgrāmatu, kas izveidota, ievadot šādu kodu:

    newWkSheet.SaveAs ("C: darblapu.xlsx")

  9. Rediģējiet iepriekšējās darbības ceļu un ievadiet vajadzīgo direktoriju un faila nosaukumu.


  10. Lai pārtrauktu apakšprocedūru, ievadiet šādu kodu:

    Beigt Sub

  11. Nospiediet "F5", lai palaistu procedūru un izveidotu jaunu Excel darblapu.