FlexPro
HistoryBase
Ingénierie
Formation
Téléchargements
Assistance FlexPro
Connaissance
Communauté
À propos de nous
Références
Emplois
Contact général
Liste des revendeurs
Assistance FlexPro
FR
DE
EN
Porte-plaquette
Produits et solutions
Support et téléchargements
Entreprise
Magazine
Contact
Langue
MyWeisang

Paramètres du compte.

Topic

Import data from an excell workbook

Page d'accueil ' Communauté ' Automation et VBA ' Importation de données à partir d'un excellent cahier de travail

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Auteur
    Messages
  • #34991
    Nicolas Beaupré
    Participant

    I got an excell workbook “blast2” witch is inserted in my database. I want to access the data in it or import it in DataSets. This workbook as more than one sheet. I’ve put an exemple of that workbook in attachment.

    I’ve created an ExcelFolder object that way and it refer to the correct element.
    [code]Dim fExcell As ExcelFolder
    Set fExcell = ActiveDatabase.RootFolder.Object(“blast2”, fpObjectTypeExcelWorkbook)[/code]

    How can I access, for exemple, the data in the C:5 cell of the tir1 sheet ?

    #34993
    Nicolas Beaupré
    Participant

    I got an excell workbook “blast2” witch is inserted in my database. I want to access the data in it or import it in DataSets. This workbook as more than one sheet. I’ve put an exemple of that workbook in attachment.

    I’ve created an ExcelFolder object that way and it refer to the correct element.
    [code]Dim fExcell As ExcelFolder
    Set fExcell = ActiveDatabase.RootFolder.Object(“blast2”, fpObjectTypeExcelWorkbook)[/code]

    How can I access, for exemple, the data in the C:5 cell of the tir1 sheet ?

    #34992
    Bernhard Kantz
    Participant

    You can create a [b]ExcelDataLink[/b].

    In VBA you could use this code:
    [code]
    Dim oExcel As ExcelFolder
    Set oExcel = ActiveDatabase.RootFolder.Object(“blast2”, fpObjectTypeExcelWorkbook)
    With oExcel.Add(“data”, fpObjectTypeExcelDataLink)
    .YComponent = “tir1!C5”
    .YLineByLine = True
    ‘.Evaluate
    .Update
    End With
    [/code]
    support@weisang.com

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Vous devez être connecté pour répondre à ce sujet.