AW: Automatisiertes erstellen von CSV-Files
05.07.2017 11:25:58
CSV-Files
Hallo!
Ich war da wohl zu generell unterwegs
Kann man sagen; Du bist schon der zweite diese Woche, dem ich entgegnen muss: Wenn Du den Installateur rufst, und sagst "Dieser Wasserhahn tropft", und er repariert ihn, sagst Du dem dann nachher auch "Achso, eigentlich hab ich doch den anderen Wasserhahn gemeint"?! Es macht wenig Spaß hier Hilfe anzubieten, wenn dann hinterher immer Anforderungen geändert werden, das Original dann doch nicht so ist wie das Beispiel usw. - einfach für's nächste Mal dran denken, dass hier (noch) keine Bots Hilfestellung geben, sondern andere Menschen Zeit investieren.
In diesem Fall folgender Code:
Sub b()
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim WbZ As Workbook
Dim WsQ As Worksheet: Set WsQ = WbQ.Worksheets("Basis")
Dim r As Range, a, i&, j&
Application.ScreenUpdating = False
a = Array("Info", "Material", "Documents", "Reference")
Set r = WsQ.Range("B7:B10")
For i = LBound(a) To UBound(a)
WbQ.Worksheets(a(i)).Copy
Set WbZ = ActiveWorkbook
WbZ.SaveAs Filename:=r(i + 1).Text, FileFormat:=xlCSV
WbZ.Close False
Set WbZ = Nothing
Next i
Set WbQ = Nothing: Set WsQ = Nothing: Set r = Nothing
Erase a
End Sub
Die Anordnung der Blätter "Info", "Material" und Co in der Mappe ist egal, allerdings muss die Position der Blattnamen im durchlaufenen Array auch mit den Zellpositionen in Basis übereinstimmen.
Soll heißen: Bei
a = Array("Info", "Material", "Documents", "Reference")
MUSS
im Bereich B7:B10 die erste Zelle (B7) die Pfadangabe für "Info" enthalten, die zweite (B8) die Pfadangabe für "Material" usw.
LG
Michael