Stampa descrizione
Scrive dati formattati per la visualizzazione in un file sequenziale.
Sintassi di stampa
| 1 | Stampa #FileNumber, [OutputList] |
L'istruzione Print contiene 2 argomenti:
Numero file: Qualsiasi numero di file valido.
Elenco di output: Opzionale. Una o più espressioni numeriche delimitate da virgole o espressioni stringa da scrivere in un file.
Esempi di funzione di stampa VBA di Excel
| Nome di battesimo | Cognome | Età | Genere |
| Roberto | Stepp | 20 | Maschio |
| Jennifer | Mariscal | 33 | Femmina |
| David | Romig | 35 | Maschio |
| Carmelo | Ingram | 26 | Femmina |
Per emettere Range ("A1: D5") in un foglio come l'immagine sopra in un file, è possibile utilizzare il codice seguente.
| 1234567891011121314151617181920212223242526272829303132333435363738 | SottoStampa_Esempio()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng come intervalloImposta dlgFolder = Application.FileDialog(msoFileDialogFolderPicker)Se dlgFolder.Show = True AllorastrFolder = dlgFolder.SelectedItems(1)AltroEsci SottoFinisci seImposta rng = Intervallo ("A1: D5")'StampastrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngFine sottotitoloSub PrintRangeToFile(strFile As String, rng As Range)Dim riga come intervallo, cella come intervalloDim FileNumber As IntegerFileNumber = FreeFileApri strFile per l'output come #FileNumberPer ogni riga in rng.RowsPer ogni cella nella riga.CelleIf cell.Column = row.Cells.Count ThenStampa #FileNumber, cellAltroStampa #FileNumber, cella,Finisci seCella successivaRiga successivaChiudi #FileNumberFine sottotitolo |
L'output nel file "Print_Output.txt":
| 12345 | Nome Cognome Età SessoRobert Stepp 20 maschioJennifer Mariscal 33 FemminaDavid Romig 35 maschioCarmel Ingram 26 Femmina |
