Innehållsförteckning
Skriv Beskrivning
Skriver data till en sekventiell fil.
Skriv Syntax
1 | Skriva #FileNumber, [OutputList] |
Skriv -satsen innehåller 2 argument:
Filnummer: Alla giltiga filnummer.
Utmatningslista: Frivillig. Ett eller flera kommaavgränsade numeriska uttryck eller stränguttryck för att skriva till en fil.
Exempel på Excel VBA -skrivfunktion
Förnamn | Efternamn | Ålder | Kön |
Robert | Stepp | 20 | Manlig |
Jennifer | Mariscal | 33 | Kvinna |
David | Romig | 35 | Manlig |
Carmel | Ingram | 26 | Kvinna |
För att mata ut intervall (“A2: D5”) i ett ark som bilden ovan till en fil kan du använda följande kod.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile As String, rng As Range)Dim rad Som Range, cell As RangeDim FileNumber som heltalFileNumber = FreeFileÖppna strFile för utmatning som #FileNumberFör varje rad i rng.RowsFör varje cell i rad. CellerOm cell.Column = row.Cells.Count DåSkriv #FileNumber, cellAnnanSkriv #FileNumber, cell,Avsluta omNästa cellNästa radStäng #FileNumberAvsluta SubSub Skriv_Exempel ()Dim strFolder Som strängDim strFile As StringDim dlgFolder som FileDialogDim rng As RangeAnge dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Om dlgFolder.Show = True dåstrFolder = dlgFolder.SelectedItems (1)AnnanAvsluta SubAvsluta omStäll in rng = Range ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngAvsluta Sub |
Utdata till filen “Write_Output.txt”:
12345 | "Förnamn", "Efternamn", "Ålder", "Kön""Robert", "Stepp", "20", "Male""Jennifer", "Mariscal", "33", "Female""David", "Romig", "35", "Man""Carmel", "Ingram", "26", "Female" |