Aeronautica	Comunicatii	Drept	Informatica	Nutritie	Sociologie
Tehnica mecanica

Baze de date

Qdidactic » stiinta & tehnica » informatica » baze de date
Comunicarea cu EXCEL

Comunicarea cu EXCEL

MODELUL OBJECT EXCEL

Extras din modelul Object Excel ( Collections si Object).

OBIECTELE SI COLECTIILE EXCEL

Workbooks	Colectia tutror claselor (obiectele Workbook) deschise.

Worksheets	Colectia tuturor foilor de calcul (obiecte Worksheet) ale unei clase.
Charts	Colectia tuturor obiectelor Name din aplicatie. Fiecare obiect Name reprezinta un nume definit pentru o plaja de celule.
SmartTag Options	Obiect reprezentand optiunile referitoare la butoanele active. Exemplu: activarea tuturor butoanelor ActivateWorkBook.SmartTagOptions_ .EmbedSmarttags = True
Styles	Colectia tuturor descrierilor de stil (obiecte Style)
CustomViews	Colectia de obiecte personalizate (obiecte CustomView).

COLECTIA WORKBOOKS

Se compune din:

Add	Creaza un nou Workbook, care devine cel activ, si il alatura colectiei Workbooks. Exemplu: WorkBook.add
Close	Inchide Workbook-ul Excel deschis. Exemplu: WorkSheets.Close
Open	Deschide Workbook-ul specificat care devine activ si il alatura colectiei Workbooks. Exemplu: WorkBook.Open Filename:=”C:gabigabi1.xls”
Save	Salveaza toate Workbook-urile deschise. Exemplu: WoorkBooks.Save

OBIECTELE WORKBOOK

Un obiect Workbook permite crearea unei referinte la o clasa Excel.

Proprietatea Active Workbook desemneaza o clasa activa.

Activate	Activeaza un fisier deja deschis. Exemplu: Documents(„Cumparatori.xls”).Activate
Close	Inchide un fisier Excel deschis. Exemplu: Documents(„Cumparatori.xls”).Close
PrintPreview	Afiseaza foaia activa in modul PrintPreview iniantea listarii. Exemplu ActiveWorkbook.PrintPreview
Save	Salveaza un Workbook. Exemplu ActiveWorkbook.Save
SaveAs	Salveaza un Workbook sub un nou nume si/sau sub un nou format. Exemplu ActiveWorkbook.SaveAs FileName:=”Gabi.xlt”

SCRIEREA DATELOR IN CELULELE EXCEL

Exemplu:

Acest exemplu demonstreaza cum se afiseaza continutul unui tabel Access in Excel (Exportul datelor din Access in Excel):

Private Sub ExportXLS_Client()

`Obiecte Access

Dim dbsGabi as DAO.database

Dim stClient As DAO.RecordSet

Dim fld As DAO.Field

`Obiecte Excel

Dim appExcel As Excel.application

Dim wkbClient As Excel.Workbook

Dim wksClient As Excel.Woorksheet

`Variabile ciclice

Dim intLig As Integer

Dim intCol As Integer

` crearea unei mape Excel

Set appExcel = CreateObject(„Excel.Application”)

Set wkbclient = appExcel.Workbook.Add

Set wksClient = appExcel.ActiveSheet

appExcel.Visible = True

`Deschiderea tabelului Clienti

Set dbsGabi = DbEngine.OpenDatabase(„C:gabigabi1.mdb”)

Set rstClient = dbsOpenRecordSet(„Clienti”, dbOpenDynaset)

`Actualizarea unei foi active

With wksClient

`Antetele coloanelor completate de numele campurilor

intCol = 1

For Each fld In rstClient.Fields

.Cells(1,intCol).Value = fld.Name

intCol =IintCol + 1

Next fld

`Parcurgerea inregistrarilor

`Adaugarea unei linii pentru fiecare inregistrare

intLig = 2

Do While Not rstClient.Fields

Intcol =1

For Each fld In rstClient.Fields

.Cells(intLig, intCol).Value = fld.Value

intCol = intCol + 1

Next fld

intLig = intLig +1

rstClient.MoveNext

Loop

`Atribuirea unui nume foii Excel

.Name = „lista de clienti”

End With

`Inregistrarea mapei de lucru

wkbClient.SaveAs „C:ClientiClienti.xls”

`Inchide Excel

appExcel.Quit

End Sub

Contact \|- ia legatura cu noi -\|
Adauga document \|- pune-ti documente online -\|
Termeni & conditii de utilizare \|- politica de cookies si de confidentialitate -\|
Copyright © \|- 2024 - Toate drepturile rezervate -\|