Microsoft Excel

Herbers Excel/VBA-Archiv

Excel Datei mehrfach mit VBA kopieren | Herbers Excel-Forum


Betrifft: Excel Datei mehrfach mit VBA kopieren von: Stefan
Geschrieben am: 02.01.2010 13:12:02

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
Geschrieben am: 02.01.2010 13:36:18

Hi Stefan,

vielleicht so:

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
New Years greetings from Renée


  

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
Geschrieben am: 02.01.2010 14:07:55

Hallo Renée,

danke dir, wußte nicht daß dies geht:

= Split(ThisWorkbook.Name, ".")(0)

Das wird mir sicher hilfreich sein.

"New Years greetings from" geht antürlich gar nicht *schelt*
siehe https://www.herber.de/forum/messages/1126610.html

:-))

Gruß
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
Geschrieben am: 02.01.2010 13:37:57

Hallo Stefan,

gehört in die zu kopierende Datei.

' **********************************************************************
' 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


Beiträge aus den Excel-Beispielen zum Thema "Excel Datei mehrfach mit VBA kopieren"