M圜onnection = New ("provider=.12.0 Data Source='" & OpenFileDialog.FileName & "' Extended Properties='Excel 12. M圜onnection = New ("provider=.12.0 Data Source='" & OpenFileDialog.FileName & "' Extended Properties='Excel 12.0 Xml HDR=YES IMEX=1 '") (1000) 'Esperar a que termine la instancia Office (await libreOffice thread)ĭim M圜onnection As 'Preparar conexión para realizar consulta tipo sql (preparing connection)ĭim M圜ommand As InstOffice = objOffice.createInstance(".Desktop")ĭim myDoc = instOffice.loadComponentFromURL("file:///" & ("\", "/"), "_default", 0, obj)ĭim hojas = myDoc.getSheets().getElementNames() 'Obtener nombres de las hojas de calculo (get Spreadsheet names) ObjOffice = CreateObject("") 'preparar instancia libreOffice (prepare libreOffice instance) If (OpenFileDialog.ShowDialog() = .OK) Then OpenFileDialog.Filter = "Spreadsheets (*.xls*)|*.xls*"
This is a part of VB Sample in which i got connection to oledb to create some queries. Visual formatting is a separate step in LibreOffice. Thats how I find a table when opening a Microsoft Office file anyway and it seems to work fine in both directions interchangeably.
Data > Define Range in LibreOffice seems the same as Home > Format as Table in Microsoft Office. If you had installed LibreOffice look for cli_basetypes.dll, cli_cppuhelper.dll, cli_oootypes.dll, cli_uno.dll, cli_ure.dll, cli_uretypes.dll then add references to your project, it must work for you, i also installed "Microsoft Office Compatibility Pack for Word, Excel, and PowerPoint File Formats" and "Microsoft Access Database Engine 2010 Redistributable" (to get ACE.OLEDB.12.O connection without complete Office installation). You’re likely after Data > Select Range in LibreOffice.
0 kommentar(er)
