Napišite opis
Zapisuje podatke u sekvencijalnu datoteku.
Napišite sintaksu
1 | Pisati #FileNumber, [OutputList] |
Naredba Write sadrži 2 argumenta:
Broj datoteke: Bilo koji valjani broj datoteke.
OutputList: Izborno. Jedan ili više numeričkih izraza razgraničenih zarezima ili nizova za ispis u datoteku.
Primjeri Excel VBA funkcije pisanja
Ime | Prezime | Dob | Spol |
Robert | Stepp | 20 | Muški |
Jennifer | Mariscal | 33 | Žena |
David | Romig | 35 | Muški |
Karmel | Ingram | 26 | Žena |
Za ispis raspona (“A2: D5”) na listu poput gornje slike u datoteku, možete koristiti sljedeći kod.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile kao niz, rng kao raspon)Zatamnite red kao raspon, ćeliju kao rasponZatamni broj datoteke kao cijeli brojFileNumber = FreeFileOtvorite strFile za izlaz kao #FileNumberZa svaki red U rng.RowsZa svaku ćeliju u redu.ćelijeAko je cell.Column = row.Cells.Count ZatimNapišite #Broj datoteke, ćelijaDrugoNapišite #Broj datoteke, ćelija,Završi akoSljedeća ćelijaSljedeći redZatvorite #Broj datotekeKraj podmPrimjer podzapisivanja ()Zatamni mapu kao nizDim strFile As StringDim dlgFolder kao FileDialogDim rng As RangePostavi dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ako je dlgFolder.Show = Tačno tadastrFolder = dlgFolder.SelectedItems (1)DrugoIzlaz iz podvZavrši akoPostavi rng = raspon ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngKraj podm |
Izlaz u datoteku "Write_Output.txt":
12345 | "Ime", "Prezime", "Dob", "Spol""Robert", "Stepp", "20", "Muški""Jennifer", "Mariscal", "33", "Ženski""David", "Romig", "35", "Muški""Karmel", "Ingram", "26", "Ženski" |