Speichern in Pfad

Forumthread: Speichern in Pfad

Speichern in Pfad

12.11.2008 17:21:00

Roger

Hallo,
von Tino habe ich vor kurzem untenstehenden Code erhalten. Funktioniert tip top. Nun habe ich aber einen individuellen Pfad nähmlich: I:\Rapporte\Gedruckt Wie muss ich nun diesen Pfad in den Code einfügen? Vielen Dank für die Hilfe,
Roger

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Speichern in Pfad

12.11.2008 17:24:25

Hajo_Zi
AW: Speichern in Pfad

12.11.2008 17:24:00

Tino
AW: Speichern in Pfad

12.11.2008 17:26:00

Roger
AW: Speichern in Pfad

12.11.2008 17:33:14

Tino
AW: Speichern in Pfad

12.11.2008 17:43:00

Roger

AW: Speichern in Pfad

12.11.2008 17:24:25

Hajo_Zi

Hallo Roger,
den Code sehe ich nicht. Ich würde aber schreiben den alten Ordner durch den neuen Ordner ersetzen.

AW: Speichern in Pfad

12.11.2008 17:24:00

Tino

Hallo,
kannst Du den Code nochmal zeigen.
Gruß Tino

AW: Speichern in Pfad

12.11.2008 17:26:00

Roger

Sorry, habe ihn vergessen einzufügen. Nun aber unten:
Option Explicit


Sub Kopieren()
Dim objDatei As Workbook
Dim SelBereich As Range
Dim i As Integer
Dim strDateiname As String, strPfad As String
'Dateiname
strDateiname = Range("C4") & Range("D16") & ".xls"
'Pfad
strPfad = Environ$("USERPROFILE")
If Right$(strPfad, 1) = "\" Then strPfad = Left$(strPfad, Len(strPfad) - 1)
strPfad = Left$(strPfad, InStrRev(strPfad, "\")) & "Administrator\Eigene Dateien\Raporte\"
Set SelBereich = Range("A1:G27")
Set objDatei = Workbooks.Add
'nicht benötigte Tabellen löschen
Application.DisplayAlerts = False
For i = objDatei.Sheets.Count To 2 Step -1
objDatei.Sheets(i).Delete
Next i
Application.DisplayAlerts = True
'Bereich kopieren
SelBereich.Copy objDatei.Sheets(1).Range("A1")
'Datei speichern unter
objDatei.SaveAs strPfad & strDateiname
'Datei schließen
objDatei.Close False
End 

Sub

AW: Speichern in Pfad

12.11.2008 17:33:14

Tino

Hallo,
hier die Lösung mit fester Pfadvorgabe, Kommentare stehen im Code.

Option Explicit

Sub Kopieren()
Dim objDatei As Workbook
Dim SelBereich As Range
Dim i As Integer
Dim strDateiname As String

'hier Pfad angeben, beachte abschließen mit \ 
Const strPfad As String = "I:\Rapporte\Gedruckt\"
'Dateiname 
strDateiname = Range("C4") & Range("D16") & ".xls"

  
Set SelBereich = Range("A1:G27")
Set objDatei = Workbooks.Add
  
'nicht benötigte Tabellen löschen 
Application.DisplayAlerts = False
For i = objDatei.Sheets.Count To 2 Step -1
 objDatei.Sheets(i).Delete
Next i
Application.DisplayAlerts = True
  
'Bereich kopieren 
SelBereich.Copy objDatei.Sheets(1).Range("A1")
'Datei speichern unter 
objDatei.SaveAs strPfad & strDateiname
'Datei schließen 
objDatei.Close False
  
End Sub

Gruß Tino

AW: Speichern in Pfad

12.11.2008 17:43:00

Roger

Hallo Tino,
Funktioniert bestens. Vielen Dank nochmals,
Roger

Beliebteste Forumthreads (12 Monate)

Forumthread: Speichern in Pfad

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread