Indsætte formel i Excel

Jeg ved ikke om du kan indsætte en formel, men du kan styre Excel fra Access. I flg. kpde sender jeg data fra Access til Excel. Til sidst tælles posterne og sættes ind nederst i Excel. Derefter justeres kolonnebredderne:

Dim Obvar As Object, wkb As Object, Rst As Recordset
Dim I As Integer, Tek As String, Tek1 As String, Tek2 As String, Excelpågrebet As String
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Tabel1", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Obvar.Visible = True
Set wkb = Obvar.Workbooks.Add
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Dato"
For I = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(I, 1).Value = Str$(Rst.Fields![Datotid])
Rst.MoveNext
Next
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 5).Value = Tek
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit

Prøv at indspille en makro, kopier den og indsæt den i din overførselskode.

Et lille simpelt eksempel som indsætter to værdier og en formel!

Dim exObj As New Excel.Application
exObj.Visible = True
exObj.Workbooks.Add

exObj.ActiveSheet.Cells(1, 1).Value = 1
exObj.ActiveSheet.Cells(1, 2).Value = 2

exObj.ActiveSheet.Cells(1, 3).Value = "=A1+B1"

Kræver reference til Microsoft Excel object library.... ;O)))

Hej Mads.

Min kode kræver også en reference til Excel. Men jeg tror faktisk ikke det er det spørgeren vil. Men derimod indsætte f.eks en Hvis formel i formelvinduet i Excel. Og der er jeg på bar grund.

="a1+b1" ER jo en formel... ??

Enig. Men hvordan får dette i formelvinduet:

="a1+b1"

Prøv med

.Formula

i stedet for

.Value

Ja, det er noget derhenad, nu mangler jeg bare at formatere denne streng, så Access ikke skriver Application or object error i linien
xlsheet.Cells(j, i + 1) = "=VÆRDI(HØJRE($L$5)&TIME($I5)&MINUT($I5)"

Dim exObj As New Excel.Application
exObj.Visible = True
Sådan:

exObj.Workbooks.Add

exObj.ActiveSheet.Cells(1, 1).Value = 1
exObj.ActiveSheet.Cells(1, 2).Value = 2
exObj.ActiveSheet.Range("C1").Formula = "=a1+b1"

Ups, det var sådan her den så ud nu.
xlsheet.Cells(j, i + 1) = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5)"

xlsheet.Cells(j, i + 1).formula = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5)"

Der er ingen forskel på at skrive
xlsheet.Cells(j, i + 1).formula = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5)"
eller
xlsheet.Cells(j, i + 1).value = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5)"
eller
xlsheet.Cells(j, i + 1) = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5)"

Jeg kan i hvert fald se at fejlen opstår i delen efter = tegnet
(xlsheet.Cells(j, i + 1).formula = "=A1+B1") virker nemlig fint.

Inserting a Worksheet Function into a Cell
To insert a worksheet function into a cell, you specify the function as the value of the Formula property of the corresponding Range object. In the following example, the RAND worksheet function (which generates a random number) is assigned to the Formula property of range A1:B3 on Sheet1 in the active workbook.

Sub InsertFormula()
    Worksheets("Sheet1").Range("A1:B3").Formula = "=RAND()"
End Sub

Worksheets("Sheet1").Range("A1:B3").Formula = "=RAND()"
virker også fint.....hmmm....

Og du er sikker på, at formlen er korrekt?

Prøv at indsætte formlen direkte i Excel og se hvad der sker.

Mangler der ikke en slutparentes ) ?

formlen virker fint

Denne er checket og formlen virker, koden i Access går bare i fejl alligevel...

xlsheet.Cells(j, i + 1) = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5))"

Hvis jeg fjerner = fra formlen, så skrives der
VÆRDI(($L$5)&TIME($I5)&MINUT($I5))
i cellen
Hvis jeg så sætter et = foran formlen i cellen, regner den den korrekte værdi ud. :( :( :(

xlsheet.Cells(j, i + 1).Formula = "=VÆRDI(($L$5)&TIME($I5)&MINUT($I5))"

Heller ikke, det gør stadig ingen forskel m/u .Formula

Prøv med
.FormulaR1C1

Heller ikke, mads.
Men jeg kan da sige så meget at denne også fejler!

xlsheet.Cells(j, i + 1).Formula = "=TIME(I5)"

HMMM!!!!
Udtrykket
xlsheet.Cells(j, i + 1).Formula = "=HOUR(I5)"
virker tilgengæld!!!!!

Så nu er jeg i det mindste på rette spor! :)

xlsheet.Cells(j, i + 1).Formula = "=VALUE(($L$5)&HOUR($I5)&MINUTE($I5))"

OK, du var der jo allerede selv ;0)

Så har jeg en stump der VIRKER!
xlsheet.Cells(j, i + 1).Formula = "=VALUE(($L$" & j & ")&HOUR($I" & j & ")&MINUTE($I" & j & "))"
Takker for hjælpen allesammen, læg et svar, så I kan få nogle point.

svar ;O)

Bare hold mig udenfor, min indsats var ret begrænset ;0)

Well, du lå faktisk inde med den korrekte løsning, sjap.... :)