Sheets aus einer Datei kopieren und speichern
26.04.2007 13:16:00
ronald
hab folgendes Problem:
Ich möchte gerne aus meinem Workbook 2 Sheets auswählen und diese in einer separaten Datei abspeichern lassen, bzw. diese beiden Sheets in einer separaten Datei öffen und ggf. auch selbst abspeichern.
Habe schon mehre Versuche gestartet, die bisher aber alle erfolglos geblieben sind. Die "neue" Datei wir zwar geöffnet, jeoch ist diese ohne Inhalt.
Bin für jede Hilfe dankbar!!
Im Voraus schon mal DANKE für den Support
LG Ron
Sub ExtractPages_click()
Dim wks As Worksheet
Dim sPath As String
Set wks = Sheet4 'ausserdem fehlt hier noch das Sheet32
sPath = Application.GetSaveAsFilename("PSB_" & ThisWorkbook.Name)
Close
Open sPath For Output As #10
With Sheet4
End With
Close
MsgBox "Datei gespeichert unter " & sPath & ThisWorkbook.Name
End Sub