Excel zu Text

[sheffield]

Hallo
Ich möchte die Spalten (A1:A60) und (H1:H60) aus einer Excel Tabelle („Book98“) als Text Datei ausgeben, ohne Excel-Datei zu öffnen.

Ist es mit VBA möglich?

danke für die Hilfe

t

[RPP63]

Moin!

ohne Excel-Datei zu öffnen.

Warum?
Du kannst die Datei ja unsichtbar öffnen.

Code:

Sub RPP()
Application.ScreenUpdating = False
Workbooks.Open "J:\Beschreibung.xlsx"
    ' hier der Code
ActiveWorkbook.Close False
End Sub

Das Schreiben in eine Textdatei grob nach diesem Muster:
http://www.supportnet.de/fresh/2006/4/id1312474.asp
Wobei Du eine Schleife über die Bereiche laufen lassen musst.

Es geht eleganter, ist aber schwieriger zu verstehen.
Außerdem sind Deine Bereiche so klein, dass hier keine Optimierung notwendig sein sollte.

Gruß Ralf

[schauan]

Hallöchen,

es ist auf jeden Fall recht einfach, die Daten mit VBA bei offener Datei zu holen. Warum muss sie denn geschlossen bleiben? Aus einer geschützten Mappe bekommst Du die Daten z.B. auch nicht raus, wenn Du sie geschlossen lässt.

Du könntest aber auch einfach die Daten per Formel rausholen, dabei bleibt die Datei zu. Wie Ralf schon schreibt, es sind keine großen Bereiche. Da geht das mit den Formeln auch recht schnell. Du kannst die Formeln auch per VBA setzen und anschließend mittels Kopieren - Inhalte einfügen - Werte entfernen.

Dann gibt es noch zwei weitere Möglichkeiten, die ich der Vollständigkeit halber erwähnen möchte.
1. mit Verwendung einer Excel4Macro-Funktion - näheres siehe z.B. hier: http://www.online-excel.de/excel/singsel_vba.php?f=82
2. mit Verwendung von ADO - näheres siehe z.B: hier: http://www.online-excel.de/excel/singsel_vba.php?f=135