Flytte filer fra mappe til en anden mappe

Const mappe1Navn = "Mappe1"
Const mappe2Navn = "Mappe2"
Dim sti As String
Public Sub HentFraMappe()
   
    sti = ActiveWorkbook.Path & "\"
    hentOgFlytFiler mappe1Navn, mappe2Navn
End Sub
Private Sub hentOgFlytFiler(mappe1, mappe2)
Dim fs, f, f1, fc, fNavn As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti & mappe1)
    Set fc = f.Files
   
    For Each f1 In fc
Rem Åbner filen
        Workbooks.Open f1
   
Rem ... overførsel af data til MitRegneark fra fil
Rem ...
Rem ...

Rem Luk file
        ActiveWorkbook.Close
       
Rem Flyt til mappe2
        f1.Move (sti & mappe2 & "\" & f1.Name)
    Next
End Sub

Virker.

...men hvordan flytter jeg ("A1:B3").Value fra filen, der flyttes over i mit regneark. Havde godt nok noget kode, som jeg skrev, men?

Vender tilbage lidt senere

Nu mangler jeg at få at vide, hvordan "A1:B3" skal placeres i MitRegneark, når nu der er 5 filer i mappe1?

I princippet er det egentlig bare, hvordan jeg refererer til den aktuelle fil og til mit regneark.
Som jeg vil bruge det, går jeg ind på ark 1, kolonne A og så
Range("A65536").End(xlUp).Select

Ok - kommer her:

Rem Version 2
Const mappe1Navn = "Mappe1"
Const mappe2Navn = "Mappe2"
Dim sti As String
Dim mitRegneArk As Object
Public Sub HentFraMappe()
    Set mitRegneArk = ActiveWorkbook
   
    sti = ActiveWorkbook.Path & "\"
    hentOgFlytFiler mappe1Navn, mappe2Navn
End Sub
Private Sub hentOgFlytFiler(mappe1, mappe2)
Dim fs, f, f1 As Object, fc, fNavn As String
Dim fx As Workbook

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti & mappe1)
    Set fc = f.Files
   
    For Each f1 In fc
Rem Åbner filen
        Workbooks.Open f1
       
Rem ... overførsel af data til MitRegneark fra fil
        ActiveWorkbook.Sheets(1).Range("A1:B3").Copy
       
        With mitRegneArk.Sheets(1)
            .Paste
        End With
        Set fx = ActiveWorkbook
Rem ...
Rem ...
Rem Luk file
        fx.Application.CutCopyMode = False
        fx.Close
       
Rem Flyt til mappe2
        f1.Move (sti & mappe2 & "\" & f1.Name)
    Next
End Sub

Melder objekt run time error'424': OLbjekt required

        With mitRegneArk.Sheets(1)

Anvender du ovenstående kode - eller en tilpasning af egen kode.
Har ikke haft problemer under min test.

Bruger dette:


Const mappe1Navn = "Flytte1"
Const mappe2Navn = "Flytte2"
Dim sti As String

Public Sub HentFraMappe()
    Set mitRegneArk = ActiveWorkbook
   
    sti = ActiveWorkbook.Path & "\"
    hentOgFlytFiler mappe1Navn, mappe2Navn
End Sub


Private Sub hentOgFlytFiler(mappe1, mappe2)
Dim fs, f, f1 As Object, fc, fNavn As String
Dim fx As Workbook

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti & mappe1)
    Set fc = f.Files
   
    For Each f1 In fc
Rem Åbner filen
        Workbooks.Open f1
       
Rem ... overførsel af data til MitRegneark fra fil
        ActiveWorkbook.Sheets(1).Range("A1:B3").Copy
       
        With mitRegneArk.Sheets(1)
            .Paste
        End With
        Set fx = ActiveWorkbook
Rem ...
Rem ...
Rem Luk file
        fx.Application.CutCopyMode = False
        fx.Close
       
Rem Flyt til mappe2
        f1.Move (sti & mappe2 & "\" & f1.Name)
    Next
End Sub

Rem Version 2
Const mappe1Navn = "Mappe1"
Const mappe2Navn = "Mappe2"
Dim sti As String
Dim mitRegneArk As Object    '<--------

Som sædvanlig en fornøjelse.
Tak for hjælpen.

Selv tak - en fornøjelse at kunne hjælpe :-)