ich habe folgende Frage:
mit diesem Makro kann ich eine beliebige Datei in eine andere Importieren.
kann ich dieses Makro so umschreiben, dass ich eine Datei als ein neues Excel SHEET in ein bestehendes Workbook importiere?
Thanx
JAN;)
Dim sName As String
Dim dName As String
With Application
sName = .GetOpenFilename(Title:= _
"Dateien kopieren Quelle")
If sName = "False" Then Exit Sub
dName = .GetSaveAsFilename(Title:= _
"Dateien kopieren Ziel")
If dName = "False" Then Exit Sub
End With
FileCopy Source:=sName, Destination:=dName
End Sub