Flytte data imellem to åbne excel applikationer m. vba

Hej

1) Er der flere ark i filerne?
2) Hvorfra og hvortil?
3) Skal der bevares data på "modtagerarket" - eller kan ark1 erstattes af det kopierede?
4) Hvilken "hændelse" skal udføre VBA-koden?

Hej supertekst

Ad 1) Ja 4 ark til file tempRes og 7 ark i filen SumResultater

Ad 2) Fra tempRes til filen SumResultater

Ad 3)I første omgang er det fint med hele arket (navn: temp ) som ikke eksistere i filen SumResultater.

ad 4) en knap i SumResultater på arket "start".

hilsen oleelo

Ok

Rem Anbringes under arket Start

Rem Version 1
Rem =========
Private Sub CommandButton1_Click()
Dim antalXls As Integer, vbaXLSNavn As String, f As Integer
Dim dataXLSNavn As String

Dim vbaXLS As Object, dataXLS As Object

Rem antal åbne XLS-filer
    antalXls = Workbooks.Count

Rem VBA-filens navn
    vbaXLSNavn = ActiveWorkbook.Name
   
    For f = 1 To antalXls
        If Workbooks(f).Name <> vbaXLSNavn Then
            dataXLSNavn = Workbooks(f).Name
            Set dataXLS = Workbooks(f)
            Exit For
        End If
    Next f
   
    dataXLS.Activate
    Sheets("temp").Select
    Sheets("temp").Copy Before:=Workbooks("SumResultater.xlsm").Sheets(2)
End Sub

Hvis ønskeligt - kan du få mine testfiler - @-adresse under min profil.

Hej igen

Koden virker fint HVIS mit ark 'tempRes' er Åbnet i den samme Excel som 'SumResultater'  , hvis jeg derimod har Excel åben to gange med hver sin fil så virker koden ikke da den ikke kan se den anden Excel begivenhed  "antalXls=1"

Håber du kan hjælp mig vider, problemet er at få flere åbne Excel begivenheder til "se hinanden".

hilsen oleelo

Så godt din beskrivelse af problemet.
Hvordan kan jeg selv simulere denne situation?

Hej
Jeg har Excel liggende på "StartLinjen" , starter Excel. Højreklikker henover Excel på "StartLinjen" og kikker på Excel.
I Tast Manager ses nu at Excel er startet to gange. Jeg har Windows 7 og Excel 2007.

Oleelo

Hej
Tak for det - jeg anvender Win 10 & office 2007 & 2013
Vender tilbage onsdag.

Hej
Har fået de ønskede omgivelser - men endnu er det ikke lykkedes.
Fortsætter..

Bemærk - her anvendes en kopiering til arket "Temp" i filen
SumResultater

Rem Version 2
Rem =========
Private Sub CommandButton1_Click()
Dim antalRæk As Integer, antalKol As Integer

Dim xlsApp As Excel.Application, xlsRes As Excel.Application

Dim antalXls As Integer, f As Integer
Const dataXLSNavn = "tempRes.xlsx"
Const vbaXLSNavn = "SumResultater.xlsm"
Dim vbaXLS As Excel.Application, dataXLS As Excel.Application
Dim sti As String
    sti = ActiveWorkbook.Path & "\"
    Set xlsApp = GetObject(sti & "tempRes.xlsx").Application
    xlsApp.Sheets("temp").Activate
   
    antalRæk = xlsApp.ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = xlsApp.ActiveCell.SpecialCells(xlLastCell).Column
   
    xlsApp.Range(xlsApp.Cells(1, 1), xlsApp.Cells(antalRæk, antalKol)).Select
    xlsApp.Selection.Copy
   
Rem ---

    Set xlsRes = GetObject(sti & "sumResultater.xlsm").Application
    xlsRes.Sheets("temp").Activate
    xlsRes.ActiveSheet.Range("A1").Select
   
    ActiveSheet.Paste
    xlsApp.Application.CutCopyMode = False
End Sub

Hej
Jeg får først kikket på det i morgen, med det ser da rigtig ud.
Så på forhånd tak
Oleelo

Hej

Ok - selv tak

Hej
Nu har jeg testes på min egne filer og det virker helt efter hensigten,super

Tak oleelo

Jeg prøver lige igen at Accepter dit svar
oleelo

Og Igen

Fint & selv tak..