Kopieren van een sheet naar een andere file

Status
Niet open voor verdere reacties.

Willemvk1975

Gebruiker
Lid geworden
13 sep 2017
Berichten
15
Ik wil een sheet uit het ene werkblad kopieren naar een ander werkblad.
De doelfile moet echter niet 1 specifieke file zijn, maar afhankelijk van iets wat in de tekst van de bronsheet zit.
Zowel de bron file als de doelfile zijn geopend en ik start de macro vanuit de bronfile.

Als cel I2 van de bronfile "R.A1128" bevat, moet de doelfile "C:\Users\wka\Desktop\ExcelTest\Nieuwe map\R.A1128.xlsx" zijn


Ik heb de volgende code:

Code:
Sub Sheetkopie1()

Dim path As String
Dim filename As String
Dim sheetnaam As String
Dim doelfile As String
path = "C:\Users\wka\Desktop\ExcelTest\Nieuwe map\"
filename = Range("I2")
sheetnaam = Range("E1")
doelfile = path & filename & ".xlsx"
ActiveSheet.Name = sheetnaam
ActiveSheet.Copy Workbooks(doelfile).Worksheets(1)

End Sub

Wat doe ik fout?
 
Wil je kijken of dit werkt?

Code:
Sub Sheetkopie1()
ActiveSheet.Copy Before:=Workbooks(Range("I2") & ".xlsx").Sheets(1)
ActiveSheet.Name = Range("E1")
End Sub
 
Laatst bewerkt:
SjonR

Het werkt! Bedankt.

Wat is de reden dat het bij mij niet werkte?
Omdat beide files al geopend zijn, is het complete pad naar de file niet meer nodig?
 
Als het al geopend is volstaat de verwijzing naar het bestandsnaam, aangezien er geen twee bestanden met dezelfde naam geopend kunnen zijn.

In jouw opzet zou dit werken:

Sub Sheetkopie1()

Code:
Dim filename As String
Dim sheetnaam As String

filename = Range("I2") & ".xlsx"
sheetnaam = Range("E1")
ActiveSheet.Copy Before:=Workbooks(filename).Sheets(1)
ActiveSheet.Name = sheetnaam

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan