Hente data lukket excel ark

Eksempel til inspiration:
Dim xsti
Dim hentFra As Excel.Application
Sub hentFraAndetArk()
Rem Henter stien - her ligger filerne i samme mappe
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
Rem hent værdien fra D3 i filen xfil_2.xls
    Set hentFra = CreateObject("Excel.Application")
    hentFra.Workbooks.Open xsti + "xfil_2.xls"
    hentværdi = hentFra.Sheets("Ark1").Cells(3, 4).Value

Rem indsætter værdien i C1 i xfil_1.xls (makroen ligger i denne fil)
    ActiveWorkbook.Sheets("Ark1").Cells(1, 3).Value = hentværdi
   
    hentFra.Quit
    Set hentFra = Nothing
End Sub

Hej supertekst
Det virker fint, lige det jeg ledte efter.

Hvordan med at skrive i en lukket fil.??

Har du også et bud på det.??

/fajens

Hej fajens

Det var så godt...

Det skulle også kunne lade sig gøre - men hvorfra vil du så aktivere VBA-koden?
I eksemplet ligger koden i xfil_1.

Men du kan f.eks. nok gøre det fra en excel.skabelon - er det sådan du tænker - eller anden fil fra Office-verdenen?

MVH

Hej supertekst

Jeg vil hente en værdi fra xfil_2.xls celle D3
ind i xfil_1.xls celle C1 .

Lave beregning med værdien og gemme den igen i xfil_2.xls celle D4
koden liger stadig i xfil_1.xls som er åben hele tiden.

Håber det var til at forstå .
/fajens

Du kan ikke skrive til en lukket fil.
Du er nødt til at åbne den, men den behøver jo ikke være visible.
men... da intet er helt umuligt et hern et par metoder med ADO

http://www.eksperten.dk/artikler/378
http://www.erlandsendata.no/english/index.php?d=envbadacwbdbado

Dim xsti
Dim hentFra As Excel.Application
Sub hentFraAndetArk()
Rem Henter stien - her ligger filerne i samme mappe
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
Rem hent værdien fra D3 i filen xfil_2.xls
    Set hentFra = CreateObject("Excel.Application")
    hentFra.Workbooks.Open xsti + "xfil_2.xls"
    hentværdi = hentFra.Sheets("Ark1").Cells(3, 4).Value

Rem indsætter værdien i C1 i xfil_1.xls (makroen ligger i denne fil)
    ActiveWorkbook.Sheets("Ark1").Cells(1, 3).Value = hentværdi
   
Rem Beregninger på værdien - her via makroen
Rem - ellers skal formlen ligge i Xfil_1, der resulterer i en anden beregnet celle
Rem Denne skal så overføres til xfil_2
    nyværdi = hentværdi / 2                'beregning
   
    hentFra.Sheets("Ark1").Cells(4, 4).Value = nyværdi
    hentFra.ActiveWorkbook.Save
    hentFra.ActiveWorkbook.Close
   
    hentFra.Quit
    Set hentFra = Nothing
End Sub

Hej supertekst

Jeg kan bruge det du har lavet.
Så du får point

/fajens

Hej bak

Dit forslag har jeg oså set på men så er det nok bedre at lave det hele forfra med database, det burde det være lavet i førdte omgang men det er noget jeg har 'arvet'.
så tak for hjælpen

/fajens