17. november 2005 - 09:31Der er
7 kommentarer og 1 løsning
Hente data lukket excel ark
I et excel regnenark vil jeg, ved hjælp af VBA, gerne hente/gemme data fra en bestemt celle et andet regneark uden at åbne det først. Noget lignebde som en query fra database. Kan man det.?? Evt. hvordan??
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
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
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
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.