-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
-
-
-
- +49 6894 929600
- infoweisang.com
- Google Maps
Import data from an excell workbook
Accueil > Community > Automation and VBA > Import data from an excell workbook
- This topic has 2 replies, 2 voices, and was last updated 18 years, 8 months ago by
Nicolas Beaupré.
-
AuthorPosts
-
January 12, 2006 at 11:45 pm #12424
Nicolas Beaupré
MemberI 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.
Dim fExcell As ExcelFolder Set fExcell = ActiveDatabase.RootFolder.Object("blast2", fpObjectTypeExcelWorkbook)
How can I access, for exemple, the data in the C:5 cell of the tir1 sheet ?
January 12, 2006 at 11:45 pm #8105Nicolas Beaupré
MemberI 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.
Dim fExcell As ExcelFolder Set fExcell = ActiveDatabase.RootFolder.Object("blast2", fpObjectTypeExcelWorkbook)
How can I access, for exemple, the data in the C:5 cell of the tir1 sheet ?
January 13, 2006 at 12:05 am #8702Bernhard Kantz
ParticipantYou can create a ExcelDataLink.
In VBA you could use this 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
-
AuthorPosts
- You must be logged in to reply to this topic.