Hallo Community,
ich habe eine Excel Datei mit relativ vielen Sheets. Durch den Befehl subSpeichern wird die komplette Excel lokal auf dem Rechner
in einen bestimmten Pfad gespeichert.
Nun würde ich gerne einen Befehl subSpeichern2 erstellen, wo nur ein bestimmtes Sheet in einer anderen Excel Tabelle gespeichert wird.
Dabei müssten die Daten immer überschrieben werden. Kann man die Funktion unten entsprechend anpassen und wenn ja wie?
Danke
ich habe eine Excel Datei mit relativ vielen Sheets. Durch den Befehl subSpeichern wird die komplette Excel lokal auf dem Rechner
in einen bestimmten Pfad gespeichert.
Nun würde ich gerne einen Befehl subSpeichern2 erstellen, wo nur ein bestimmtes Sheet in einer anderen Excel Tabelle gespeichert wird.
Dabei müssten die Daten immer überschrieben werden. Kann man die Funktion unten entsprechend anpassen und wenn ja wie?
Danke
Visual Basic-Quellcode
- Public Sub subSpeichern()
- Dim FSO As Object
- Dim strDateiname As String
- Dim strPfadname As String
- Dim WshShell As Object
- Dim strDokumente As String
- Set WshShell = CreateObject("WScript.Shell")
- Set FSO = CreateObject("Scripting.FileSystemObject")
- 'strDokumente = WshShell.SpecialFolders("MyDocuments")
- strDokumente = "C:\Users\User\Desktop\test"
- strPfadname = strDokumente
- strDateiname = "Formatierung1.xlsm"
- Err.Clear
- On Error Resume Next
- ' Lokal speichern
- If FSO.FolderExists(strPfadname) Then
- Application.DisplayAlerts = False ' verhindert Meldung zum Überschreiben einer vorhandenen Datei
- ActiveWorkbook.SaveAs Filename:=strPfadname & "\" & strDateiname, FileFormat:=xlOpenXMLWorkbookMacroEnabled, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges
- Application.DisplayAlerts = True ' Meldungen wieder anzeigen
- If Err.Number <> 0 Then
- MsgBox "Fehler " & Err.Number & vbLf & Err.Description, vbCritical + vbOKOnly, "Fehler beim speichern"
- End If
- Else
- MsgBox strPfadname & vbLf & "Nicht vorhanden", vbCritical + vbOKOnly, "Fehler beim speichern"
- End If
- End Sub