Ændre feltværdi i Excel fra Access

Denne kan forbedres på mange områder, men den virker

Private Sub Kommandoknap1_Click()
Dim A As String
Dim xApp As Object

'Tildel den værdi der skal overføres til A

A =

    Set xApp = CreateObject("Excel.Application")
    xApp.Workbooks.Open Filename:="C:\test\testfil.xls"
    xApp.Sheets("Ark3").Select
    xApp.Visible = True
    xApp.range("A1").Value = a
    xApp.activeworkbook.Save
End Sub

Da du ikke fortæller hvor værdien der skal overføres, kommer fra, hvor koden afvikles fra osv. er det sværet at give et mere præcist svar.

Tak, jeg prøver!

Nej, men jeg er sikker på at det virker anyways....vender lige tilbage...

OK

Excel lukker ikke til sidst - nogle forslag?

Tilføj xApp.Activeworkbook.Close

som sidste linie

SEJT!

Tak for hjælpen forresten!

Velbekomme!

WOW - det kan jeg vist da godt bruge.

Nogle kollegaer har gennem tiden knastet nogle beregninger ind i nogle ensopbyggede regneark ( gud bedre det). NU kan de ikke lave statistik på møget uden at åbne hver eneste ark og klippe/klistre.

Nu er problemet også, at arkene ligger i +1000 mapper/undermapper - en mappe for hver eneste vej i Danmark ( gud bedre det).

Hvis man nu kunne kombinere sådan en LÆSErutine ala det ovenstående med en rutine, der iterativt arbejdede sig ned i mapperne og faldt arkene osv.

Jeg må ud og finde/lave sådan en - hvis der da ikke lige var en, der havde en sådan liggende

Et tip til dig 3xa - gik en gang på http://www.mvps.org/access/

Henrik

Jeps Henrik, har den. Men dette specifikke problem var ikke beskrevet ordenligt, og her er det gode jo ved Eksperten, at der sidder levende mennesker og svarer på dine spørgsmål og derfor kan give dig netop den løsning du behøver.

mvps.org er nok en af de bedste hjemmesider overhovedet. Både /Access , /Word osv, men selv de giver jo ikke svar på alt.

MVP'erne selv er jo til gengæld levende mennesker, og dem træffer man nemmest i nyhedsgrupperne, specielt i nyehdesgrupperne på serveren news.microsoft.com hvor de er ganske gode til at give svar på spørgsmål.