[VBA] aanroepen Excel Cells uit Access

[Paxlie]

Kheb de volgende code:

code:

Dim xlApp As Object ' Declare variable to hold the reference.
    
Set xlApp = CreateObject("excel.application")
xlApp.Visible = True
xlApp.Cells(1, 1).value = "blah"xlApp.Quit  
Set xlApp = Nothing

Nu is het echter zo dat ie geen cells wil aanroepen. Ik krijg dan Error 1024. Dus ik denk, dan gaan we vrolijk weer eens zoeken in de help, as usual. Alleen, de help geeft een error bij die code. Het bovenstaande stukje code komt overigens ook uit de help. Ik heb het al op verscheidene manieren geprobeerd, maar ik krijg het niet voor elkaar om een waarde in een Cell te kunnen zetten of om hem uit te lezen of iets dergelijks. Weet iemand hoe het anders wel zou moeten? Kheb het gevoel alsof ik iets over het hoofd zie, maar ik zie dus niet wat

[Verwijderd]

Heb je de optie speciaal plakke al geprobeert..?

Of werkt dat nie met Access en Excel.

Sow bekent benk nou ook weer nie met Office

[Verwijderd]

Ik dacht dat bij een CreateObject Excel wordt opgestart zonder een Sheet, m.a.w. Cells werkt dan ook niet

[Paxlie]

Excel is nog niet opgestart als ik die code laat runnen. Hij opent dan dus excel en dan staat er wel een sheet. Dus volgens mij ligt het daar ook niet aan....

[Verwijderd]

Ik zie in Google alleen maar voorbeelden waarbij altijd eerst een bestand wordt geopend, of eerst een Workbook wordt toegevoegd. Vreemd dat Microsoft niet eens z'n eigen object-model kent...

Probeer het volgende eens, voor de zekerheid

code:

Set xlApp = CreateObject("excel.application")
xlApp.Visible = True
xlApp.Workbooks.Add  'Dit is dus je extra regel
xlApp.Cells(1, 1).value = "blah"
xlApp.Quit  
Set xlApp = Nothing

[Skinny]

code:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

'Laat excel wel zien
xlApp.Visible = True

'Voeg een workbook toe (standaard met 3 sheets)
xlApp.Workbooks.Add

'Zet "blaat" in cel A1
xlApp.Sheets(1).Cells(1, 1).Value = "Blaat" 

'Zet een tekst in cel A3
xlApp.Sheets("Blad1").Range("A3").Value = "Dit is cel A3"

'Sluit workbook zonder op te slaan
xlApp.Workbooks(1).Close False 

'Sluit Excel
xlApp.Quit

'Verwijder object
Set xlApp = Nothing

Zo moet het goed gaan

[Paxlie]

Mijn dank is groot!!! Spanks dudes!