Schrijven in Cel van Excel lukt niet

[mulderm]

Hallo,


In Access heb ik de volgende code:

sub test()

Dim ex as New Excel.Application
ex.DisplayAlerts =False
ex.Workbooks.Open "c:\test.xls

ex.Range("A1").value= "Verwerkt"

ex.ActiveWorkbook.Save
ex.Quit
ex.DisplayAlerts = True
Set ex = Nothing

End Sub

Als Excel gewoon opgestart is en test.xls is NIET geopend
dan werkt het perfect.

Maar als test.xls geopend is werkt deze niet, cel A1
blijft leeg!
Ik wil namelijk dat altijd in Cel A1 geschreven wordt
ongeacht of dit Excelbestand (test.xls) geopend staat
of niet.
Kan iemand mij helpen?

Groeten,

mulderm

 

[Bartuls]

Dit wordt veroorzaakt doordat je in je code per definitie een nieuw excel workbook aanmaakt.

In jou geval zul je eerst moeten kijken of excel al geopend is. Als dat het geval is dan zul je je ex object hieraan moeten koppelen.

 

[mulderm]

Hallo Bartuls

Wat is de code hiervoor om te controleren of deze bestand al geopend is ?

mulderm

 

[Bartuls]

Onderstaande link bevat de code die nodig is om te controleren of Excel al gestart is.
http://www.mvps.org/access/api/api0007.htm

 

[mulderm]

Dankjewel voor de informatie, heb hier veel aan.

mulderm