Supportnet / Forum / Tabellenkalkulation
Probleme beim Speichern
Frage
Hallo
Lade aus einem csv Daten die ich in eine Liste schreibe und dann abspeichere. Jetzt habe ich folgendes Problem:
Wenn ich meine Datei Speicher z.B von Test.xls nach Test1.xls befinde ich mich dann im Test1.xls und dort wird der Code weitererverarbeitet. Das problem ist das ich das in einer Schleife mache und wenn ich den nächsten Datensatz einlese und speichern will bin ich nicht mehr im test sondern im test1. Speichere es wie folgt:
[code]
Dim objWS As Workbook
Dim Typ
Dim vDateiname As Variant
Set objWS = Workbooks.Open("C:\Temp\Blech.xls")
rwIndex = 3
For colIndex = 4 To 100
Set objWS = Workbooks.Open("C:\Temp\Blech.xls")
With Worksheets("blech").Cells(rwIndex, colIndex)
If .Value = "" Then
Exit For
End If
If Worksheets("blech").Cells("4", colIndex) = "0" Then
GoTo Nexte
End If
MsgBox .Value
MsgBox Worksheets("blech").Cells("4", colIndex)
Typ = .Value
End With
Workbooks("test.xls").Activate
Range("A1") = "Typ:" & Typ
Range("C4") = Format(Now(), "dd.mm.yyyy")
Range("C6") = objWS.Worksheets("blech").Cells("23", colIndex)
Range("C7") = objWS.Worksheets("blech").Cells("24", colIndex)
Range("C8") = objWS.Worksheets("blech").Cells("26", colIndex)
Range("C9") = objWS.Worksheets("blech").Cells("25", colIndex)
Range("C10") = objWS.Worksheets("blech").Cells("31", colIndex)
Range("C11") = objWS.Worksheets("blech").Cells("33", colIndex)
Range("C12") = objWS.Worksheets("blech").Cells("32", colIndex)
Range("C13") = objWS.Worksheets("blech").Cells("36", colIndex)
Range("C14") = objWS.Worksheets("blech").Cells("37", colIndex)
Range("C15") = objWS.Worksheets("blech").Cells("38", colIndex)
Range("C16") = objWS.Worksheets("blech").Cells("14", colIndex)
Range("C17") = objWS.Worksheets("blech").Cells("15", colIndex)
Range("C18") = objWS.Worksheets("blech").Cells("16", colIndex)
Range("C19") = objWS.Worksheets("blech").Cells("19", colIndex)
Range("C20") = objWS.Worksheets("blech").Cells("20", colIndex)
Range("C21") = objWS.Worksheets("blech").Cells("29", colIndex)
vDateiname = "Anwendungsdaten" & Typ & ".xls"
ChDir "C:\Test\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\" & vDateiname _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox ActiveWorkbook.FullName
Nexte:
Next colIndex
[/code]
wie kann ich das lösen?
Antwort 1 von reto
Habs raus das Zauberwort heisst:
ActiveWorkbook.SaveCopyAs