Inhaltsverzeichnis
Beschreibung schreiben
Schreibt Daten in eine sequentielle Datei.
Schreibsyntax
| 1 | Schreiben #Dateinummer, [Ausgabeliste] |
Die Write-Anweisung enthält 2 Argumente:
Dateinummer: Jede gültige Dateinummer.
Ausgabeliste: Optional. Ein oder mehrere durch Kommas getrennte numerische Ausdrücke oder Zeichenfolgenausdrücke zum Schreiben in eine Datei.
Beispiele für die Excel VBA-Schreibfunktion
| Vorname | Nachname | Alter | Geschlecht |
| Robert | Stepp | 20 | Männlich |
| Jennifer | Mariscal | 33 | Weiblich |
| David | Romig | 35 | Männlich |
| Karmel | Ingram | 26 | Weiblich |
Um Range("A2:D5") in einem Blatt wie dem obigen Bild in eine Datei auszugeben, können Sie den folgenden Code verwenden.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile(strFile As String, rng As Range)Zeile als Bereich abblenden, Zelle als BereichDim FileNumber As IntegerFileNumber = FreeFileÖffnen Sie strFile für die Ausgabe als #FileNumberFür jede Zeile in rng.RowsFür jede Zelle in Reihe.ZellenWenn cell.Column = row.Cells.Count ThenSchreiben Sie #FileNumber, ZelleAndersSchreiben Sie #FileNumber, Zelle,Ende WennNächste ZelleNächste ReiheSchließen #DateinummerEnd SubUnter Write_Example()Dim strOrdner als StringDim strFile As StringDim dlgFolder As FileDialogDim rng As RangeSet dlgFolder = Application.FileDialog(msoFileDialogFolderPicker)Wenn dlgFolder.Show = True ThenstrFolder = dlgFolder.SelectedItems(1)AndersAbo beendenEnde WennSetze rng = Range("A1:D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Die Ausgabe in die Datei „Write_Output.txt“:
| 12345 | "Vorname","Nachname","Alter","Geschlecht""Robert","Stepp","20","Männlich""Jennifer","Mariscal","33","Weiblich""David","Romig","35","Männlich""Carmel","Ingram","26","Weiblich" |
