-
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
Accueil > Community > Automation and VBA > Copy a matrix into excel > Reply To: Copy a matrix into excel
January 7, 2016 at 3:28 pm
#12899
![Peter Seitz](https://www.weisang.com/wp-content/uploads/2016/09/default_avatar.jpg)
Member
Hello,
i have a 29×29 dimensional matrix which I want to include in an excel sheet.
For example a matrix build up within in a formula like this:
Dim Output = ? # 29 # 29 // Dim a 29x29 matrix
Output[0,28][0,28] = -1 // Fill all cells with -1
[ Output]
I want this Output to be copied into an excel sheet. I used following code:
Option Explicit
Const sExcelSheet As String = "P:\TestFile.xlsx"
Sub DataIntoExcel()
'access data from FlexPro
Dim oFolder As Folder
Set oFolder = ActiveDatabase.RootFolder
Dim matrix
Set matrix = oFolder.Object("Formel", fpObjectTypeFormula).Value
' open Excel sheet
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
With oExcel
.Visible = True
.Workbooks.Open Filename:=sExcelSheet, ReadOnly:=False
With .Workbooks(1)
Dim oSheet As Object
Set oSheet = .Worksheets(1)
oSheet.Range("C3:AE31") = matrix
End With
End With
Set oExcel = Nothing
End Sub
The matrix is supposed to be placed starting at cell C3 or placed in the area from C3 to AE31. I keep getting runtime errors though.
Can someone tell me what i did wrong. Thanks in advance.
kind regards,
Peter