Anhängen an eine Nicht-Excel-Textdatei (Microsoft Excel)
Wenn Sie ein Makro zum Schreiben von Informationen in eine Textdatei verwenden, möchten Sie möglicherweise Informationen zu einer vorhandenen Datei hinzufügen, anstatt eine neue Textdatei von Grund auf neu zu erstellen. Dazu müssen Sie lediglich die Datei zum Anhängen und nicht zum Ausgeben öffnen. Der folgende Code zeigt diesen Vorgang:
Open "MyFile.Dat" For Append As #1 For J = 1 to NewValues Print #1, UserVals(OrigVals + J) Next J Close #1
Wenn die Datei für den Anhänge-Modus geöffnet wird, werden am Ende der Datei neue Informationen hinzugefügt, ohne den vorhandenen Inhalt zu stören.
Beachten Sie, dass die Informationen in diesem Tipp zeigen, wie Sie Daten zu einer Textdatei hinzufügen. Es gibt nicht an, woher diese Daten stammen sollen. Mit anderen Worten, wenn Sie möchten, dass die Daten aus Informationen stammen, die in Variablen in Ihrem Makro gespeichert sind, müssen Sie festlegen, welche Variableninhalte in die Datei geschrieben werden sollen. (Der Beispielcode verwendet tatsächlich Variablen – das UserVals-Array – zum Schreiben von Informationen in die Textdatei.)
Wenn Sie jedoch möchten, dass die Informationen aus einem Arbeitsblatt abgerufen werden, müssen Sie den Code erstellen, der die Informationen aus den gewünschten Zellen abruft und sie wiederum in die Textdatei schreibt. (In diesem Tipp geht es nicht darum, die Daten zu erfassen, sondern sie in die Datei zu schreiben.)
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (2536) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: