Innehållsförteckning
Skriv ut Beskrivning
Skriver visningsformaterad data till en sekventiell fil.
Skriv ut syntax
| 1 | Skriva ut #FileNumber, [OutputList] |
Print -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 -utskriftsfunktion
| 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 ("A1: D5") i ett ark som bilden ovan till en fil kan du använda följande kod.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()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")'Skriva utstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngAvsluta SubSub PrintRangeToFile (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 ut #FileNumber, cellAnnanSkriv ut #FileNumber, cell,Avsluta omNästa cellNästa radStäng #FileNumberAvsluta Sub |
Utdata till filen “Print_Output.txt”:
| 12345 | Förnamn Efternamn Ålder KönRobert Stepp 20 ManJennifer Mariscal 33 KvinnaDavid Romig 35 ManCarmel Ingram 26 Kvinna |
