[VBA & Word] rs.addnew & formulaarray

[Jarcol]

Hallo allemaal,

Ik wil een formulaarray gebruiken om de vanuit word met vba meteen goed in een excelsheet te zetten, maar ik weet niet hoe ik het goed moet formuleren..

Ik heb al flink zitten google-en en hier ook rond gekeken maar kom het via deze methode nergens tegen!

Ik heb deze code nu, maar dan blijft de formule als in de cel staan, ipv dat de formule wordt uitgevoerd.

Visual Basic:

    Dim Db As New XLSConnection
    Dim rs As Object
    Dim QueyStr As String
    Db.XlsOpen ("D:\001_Documentatie\03Rapportage\Management rapport.xls")
    
    QueryStr = "SELECT * FROM [Rapport$]"
    
    Set rs = Db.Query(QueryStr)

    Debug.Print "Initiele situatie:"
    Do While Not rs.EOF
      Debug.Print rs("Document").Value & vbTab & rs("Van").Value & vbTab & _
                rs("Categorie").Value & vbTab & rs("Betreft").Value & vbTab & _
                rs("Soort").Value & vbTab & rs("Waarde").Value & vbTab & _
                rs("Datum_aangemaakt").Value & vbTab & rs("Datum_gewijzigd").Value
      rs.MoveNext
    Loop
    
    rs.AddNew
    rs!Document = cboBetreft.Value & " - " & txtTitel.Value
    rs!Van = cobVan1.Value
    rs!categorie = cobCategorie.Value
    rs!betreft = cboBetreft.Value
    rs!Soort = cboSoort.Value
    rs!Waarde.FormulaArray = "=HYPERLINK(" & Chr$(34) & "http://www.google.nl" & Chr$(34) & "; " & Chr$(34) & "google.nl" & Chr$(34) & ")"
    rs!Datum_aangemaakt = Date$ & " - " & Time$
    rs!Datum_gewijzigd = Date$ & " - " & Time$
    rs.Update
      
    Debug.Print "Situatie na INSERT:"
    
    QueryStr = "SELECT * FROM [Rapport$]"
    
    Set rs = Db.Query(QueryStr)
    
    Do While Not rs.EOF
        Debug.Print rs("Document").Value & vbTab & rs("Van").Value & vbTab & _
                rs("Categorie").Value & vbTab & rs("Betreft").Value & vbTab & _
                rs("Soort").Value & vbTab & rs("Titel").Value & vbTab & _
                rs("Datum_aangemaakt").Value & vbTab & rs("Datum_gewijzigd").Value
      rs.MoveNext
    Loop

De formule die nu bij waarde staat is wat simpel, er komt dadelijk een iets ingewikkeldere formule te staan, maar dit is om het overzichtelijk te houden!

Hoe kan ik hier nou het beste FormulaArray gebruiken?

[Lustucru]

AL met al komt het er toch op neer dat je hier een lap code dumpt met aan ons de vraag om er de fout uit te halen. Daar is GoT nog steeds niet voor bedoeld.
Krijg je foutmeldingen, zo ja, welke? Waar komt dat xlsconnection object vandaan? Over welke versie van office praten we hier? Welke relevante links heb je wél gevonden? Waarom formulaarrya als er geen sprake is van een matrixformule? Hoezo is formulaarray een property van een veld van een recordset? Waarom gebruik je niet de standaardmanier om naar bereiken te verwijzen?