Domino 9 und frühere Versionen > ND7: Entwicklung

Object automation error

<< < (2/3) > >>

Demian:
Moin,moin,

also bei mir geht folgender Code:


--- Code: ---Set v_xlApp = CreateObject("Excel.Application")
v_xlApp.Workbooks.Add
v_xlapp.visible = True
Set v_xlSheet = v_xlApp.Workbooks(1).Worksheets(1)
With v_xlSheet     
     .cells(3,3).Formula = "=if(A1=0,0,A2)"
End With
--- Ende Code ---

Gruß
Demian

oson00:
Hallo,

ich hatte malt einen ähnlichen Fehler und da lag es daran, dass die Vorlage-Datei, die EXCEL-Standardmäßig startet, weniger Arbeitsblätter bereit hielt als ich angenommen habe.

Ich wollte auf Blatt 3 schreiben, dass existierte aber nicht und schon kam der Fehler hoch.

Kontrollier mal, wie die Vorlage aussieht.

andre1987:
Hallo,

ich greife das Thema mal wieder auf, denn ich habe ein ähnliches Problem. Ich muss einen Excel-Export erweitern, dass ein weiteres Feld incl. einer Formel "exportiert" wird.

Ich habe es bis hierhin geschafft:

xlsheet.Cells(rows,40).Formula = |=WENN($J2="Herr";WENN($K2="";"Sehr geehrter Herr";VERKETTEN("Sehr geehrter Herr";" ";$K2));WENN($K2="";"Sehr geehrte Frau";VERKETTEN("Sehr geehrte Frau";" ";$K2)))|

Damit bekomme ich aber einen OLE Error. Ich habe herausgefunden das Notes mir aus einem " zwei "" macht. Das verstehht Excel natürlich nicht.

Hat jemand vielleicht eine Idee ??

Gruß
André   

Fedaykin:
Hallo Andrè

Versuch es doch mal xlsheet.Cells(rows,40).FormulaLocal oder schreibe die Formel in englisch.

Gruss
Remo

andre1987:
Hallo Remo,

danke so funktioniert es :-) !!

Kannst du mir vielleicht mitteilen warum oder was .FormulaLocal macht ? Wird das ganze als String übergeben ??


Gruß
André

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete