Office: VBA: csv-Datei schließen, falls geöffnet

Hallo,
ich habe in einer Excel 2003-Datei Datensätze in Zeilen angeordnet, die per Makro in eine csv-Datei kopiert werden sollen.
Hierzu soll zuerst geprüft werden, ob die csv-Datei (von der vorherigen Bearbeitung u.U. noch) geöffnet ist. Falls sie geöffnet ist soll sie ohne Speichern von Änderungen geschlossen werden. (Falls sie nicht geöffnet ist soll sie auch nicht geöffnet werden.)
Nun soll die Datei gelöscht werden, damit sie danach per Makro ohne Inhalte erzeugt und geöffnet werden kann. Und danach sollen die Excel-Daten in die csv-Datei kopiert werden.

Ich bastel daran jetzt schon recht lange herum, leider erfolglos, sodass ich mich natürlich über Hilfe freue!
m172nld

Auszug aus VBA:
Sheets("Werte").Select
Rows("2:80").Select
Selection.Copy

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
If Dir("Pfad\Dateiname.csv") "" Then
Kill "Pfad\Dateiname.csv"
End If

Application.CutCopyMode = False
ChDir "Pfad"
ActiveWorkbook.SaveAs Filename:= _
"Pfad\Dateiname.csv", _
FileFormat:=xlCSV, CreateBackup:=False

:)

 

Hi,

ob eine Arbeitsmappe geöffnet ist kannst du z.B. mit folgenden Code prüfen und ist sie offen, wird sie geschlossen ohne Speichern:

Code:

Weshalb musst du die Datei löschen? Du kannst sie beim Speichern doch einfach überschreiben. Damit keine Überschreiben-Abfrage kommt, setzt du vor dem Speichern Appliation.DisplayAlerts auf False und anschließend wieder auf True.

 

Hallo, Karin,
danke für die schnelle Antwort.
Klappt wie gewünscht!

Sicherlich hast du Recht, wenn du vermutest, dass ich die Datei ja auch überschreiben könnte. Aber ich bin nur ein PC-User, der nicht immer Lust hat, auf Problemlösungen durch unsere EDV-Abteilung (lange) zu warten. Und der beschriebene Weg war der, auf den ich gekommen bin. Eine andere, elegantere Lösung wäre sicher "schöner"!

Ziel des Ganzen ist:
1. Aus Emails (mit immer gleichem Aufbau) werden Daten in eine Exceldatei auf ein Tabellenblatt jeweils in die Zellen 1-17 in nebeneinander liegende Spalten von Spalte A an kopiert. Dann werden sie per Makro auf ein anderes Tabellenblatt kopiert und dabei werden verschiedene Ersetzungen bzw. Korrekturen (fehlerhafte Kleinschreibungen zum Beispiel) an den Eingaben aus den Emails durchgeführt.
Von dem Excel-Tabellenblatt werden sie wiederum auf ein anderes Tabellenblatt kopiert und dabei der Aufbau verändert, sodass die Informationen aus einer Email in einer Zeile nebeneinander stehen. In weiteren Zellen in jeder Zeile stehen bereits zusätzliche Informationen, mit denen jeder Datensatz versehen werden muss.
Dann wird das Tabellenblatt kopiert, eine ggf. bestehende Datei.csv gelöscht, dann eine Datei.csv geöffnet und die kopierten Daten in die Datei.csv eingefügt. Anschließend werden in der Datei.csv noch notwendige Korrekturen durchgeführt (wie zum Beispiel das Ergänzen fehlender Anreden). Nach der Bearbeitung bzw. Kontrolle der Daten in dieser Datei.csv schließe ich sie und muss sie dann noch mit dem Texteditor öffnen, da ich in manchen Zellen noch vorhandenen ": " bzw. ":" jeweils durch "" ersetzen muss. Dies kann ich leider nicht mit dem Makro erledigen, da dann führende Nullen bei Feldern mit Postleitzahlen oder Telefonnummern wegfallen würden. Für diesen Zweck wäre es natürlich wunderbar, wenn dies beim Schließen der Datei.csv automatisch geschähe!

Aber mit dem aktuellen Stand bin ich auch schon ausgesprochen zufrieden. Zudem bastelt ein EDVer an einer Lösung, die die ": " bzw. ":" beim Einlesen der Datensätze in ein Importmodul löscht.

Freundliche und dankbare Grüße!
Jürgen