Daten exportieren und speichern in einem
24.01.2005 21:32:21
Andreas
habe durch Eure Hilfe (Danke Sepp ;-)) ein Tabellenblatt kopiert und in ein neues eingefügt.
Hier der Code fürs Exportieren
_________
Sub BlattExportieren()
Workbooks("Mappe1.xls").Sheets("EXPORT").Copy
ActiveSheet.Name = "Exportdaten"
End Sub
__________
Ich würde den Code gerne ergänzen, sodass das neue Tabellenblatt ("Exportdaten") gleich abgespeichert, bzw. durch den Befehl "Speichern unter:" einen bestimmten Namen vorschlägt.
Hier der Code fürs speichern: (Den habe ich momentan einem Button zugeordnet.)
______________
Private Sub CmdBtnSpeichern_Click()
Application.SendKeys Sheets("Daten").[g103].Value & "_" & _
Sheets("Daten").[j103].Value & ".xls"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
______________
ÜBRIGENS WICHTIG !!!! ("Daten" existiert nur in der Arbeitsmappe "Mappe1")
Nun zu meiner FRAGE:
Kann mir jemand diese Codes verbinden, sodass ich das (neue!!) Tabellenblatt ("Exportdaten") unter dem Dateinamen "Daten![g103]_Daten![j103].xls" abspeichere?
Wäre super, wenn Ihr mir helfen könntet....
Danke
Grüße
Andy
Anzeige