Herbers Excel-Forum - das Archiv

Excel Datei mehrfach mit VBA kopieren | Herbers Excel-Forum

• Excel Datei mehrfach mit VBA kopieren von Stefan vom 02.01.2010 13:12:02
• AW: Excel Datei mehrfach mit VBA kopieren - von Renee am 02.01.2010 13:36:18
  • + 450 (nicht nur + 4) !! - von Renee am 02.01.2010 13:38:59
    • AW: + 450 (nicht nur + 4) !! - von Stefan am 03.01.2010 16:16:52
  • OT Split() direkt indizieren - von Reinhard am 02.01.2010 14:07:55
    • Bei ihr schon,... - von Luc:-? am 02.01.2010 14:38:48
      • AW: Bei ihr schon,... - von Stefan am 03.01.2010 16:15:51
• AW: Excel Datei mehrfach mit VBA kopieren - von Josef Ehrensberger am 02.01.2010 13:37:57
  • Extension vergessen ;-(( - von Josef Ehrensberger am 02.01.2010 13:41:18
    • AW: Extension vergessen ;-(( - von Stefan am 03.01.2010 16:16:18

Betrifft: Excel Datei mehrfach mit VBA kopieren
von: Stefan

Hallo Forum,
habe mir eine Excel Datei/Vorlage angelegt , die aus mehreren Tabellen besteht.
Diese möchte ich jetzt in einen anderen Ordner 450 mal kopieren und dabei soll die Nummerierung
mit 115 aufsteigend erfolgen.
Gibt es hierfür eine passende Makro, mit der ich mir diese Arbeit erleichtern könnte ?
Würde mich sehr über Hilfe freuen.
In vorraus viele Dank
Stefan

Betrifft: AW: Excel Datei mehrfach mit VBA kopieren
von: Renee

Sub SaveAs450Mal()
Const cStrgMeinZielOrdner = "C:\Anderer\Ordner\"
Dim intX As Integer
Dim strgBaseName As String
strgBaseName = Split(ThisWorkbook.Name, ".")(0)
For intX = 115 To (115 + 4)
ThisWorkbook.SaveCopyAs cStrgMeinZielOrdner & _
strgBaseName & _
Trim(Str(intX)) & ".xls"
Next intX
End Sub

Betrifft: + 450 (nicht nur + 4) !!
von: Renee
Geschrieben am: 02.01.2010 13:38:59
Erster Eintrag, erster Fehler ;-)
GreetZ Renée

Betrifft: AW: + 450 (nicht nur + 4) !!
von: Stefan
Geschrieben am: 03.01.2010 16:16:52
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan

Betrifft: OT Split() direkt indizieren
von: Reinhard

Betrifft: Bei ihr schon,...
von: Luc:-?
Geschrieben am: 02.01.2010 14:38:48
...Reinhard,... ;-)
Vgl meinen Beitrag dort!
Greetings & Happy New Year to you and the rare Lady from the Okavango-Delta!
Luc :-?

Betrifft: AW: Bei ihr schon,...
von: Stefan
Geschrieben am: 03.01.2010 16:15:51
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan

Betrifft: AW: Excel Datei mehrfach mit VBA kopieren
von: Josef Ehrensberger

' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copyFile()
  Dim strTargetPath As String, strTargetName As String
  Dim lngIndex As Long
  
  strTargetPath = "C:\" 'Zielverzeichnis - Anpassen!
  strTargetName = "Datei" 'Dateiname  - Anpassen!
  
  If Right(strTargetPath, 1) <> "\" Then strTargetPath = strTargetPath & "\"
  
  For lngIndex = 115 To 565
    ThisWorkbook.SaveCopyAs strTargetPath & strTargetName & CStr(lngIndex)
  Next
  
End Sub

Gruß Sepp

Betrifft: Extension vergessen ;-((
von: Josef Ehrensberger

Geschrieben am: 02.01.2010 13:41:18

' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copyFile()
  Dim strTargetPath As String, strTargetName As String, strExtention As String
  Dim lngIndex As Long
  
  strTargetPath = "C:\" 'Zielverzeichnis - Anpassen!
  strTargetName = "Datei" 'Dateiname  - Anpassen!
  strExtention = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "."))
  
  If Right(strTargetPath, 1) <> "\" Then strTargetPath = strTargetPath & "\"
  
  For lngIndex = 115 To 565
    ThisWorkbook.SaveCopyAs strTargetPath & strTargetName & CStr(lngIndex) & strExtention
  Next
  
End Sub

Gruß Sepp

Betrifft: AW: Extension vergessen ;-((
von: Stefan
Geschrieben am: 03.01.2010 16:16:18
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan