Scrivi descrizione
Scrive i dati in un file sequenziale.
Scrivi sintassi
1 | Scrivi #FileNumber, [OutputList] |
L'istruzione Write 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 scrittura 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 ("A2: D5") in un foglio come l'immagine sopra in un file, è possibile utilizzare il seguente codice.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile(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 ThenScrivi #FileNumber, cellaAltroScrivi #FileNumber, cella,Finisci seCella successivaRiga successivaChiudi #FileNumberFine sottotitoloSub Write_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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngFine sottotitolo |
L'output nel file "Write_Output.txt":
12345 | "Nome","Cognome","Età","Sesso""Robert","Stepp","20","Maschio""Jennifer","Mariscal","33","Femmina""David","Romig","35","Maschio""Carmel","Ingram","26","Femmina" |