Napišite opis
Zapisuje podatke v zaporedno datoteko.
Napišite skladnjo
1 | Pišite #FileNumber, [OutputList] |
Stavek Write vsebuje 2 argumenta:
Število datotek: Vsaka veljavna številka datoteke.
OutputList: Neobvezno. Eden ali več številskih izrazov ali nizov, ločenih z vejicami, za zapis v datoteko.
Primeri zapisovalne funkcije Excel VBA
Ime | Priimek | Starost | Spol |
Robert | Stepp | 20 | Moški |
Jennifer | Mariscal | 33 | Ženska |
David | Romig | 35 | Moški |
Karmel | Ingram | 26 | Ženska |
Če želite izvesti obseg (»A2: D5«) na listu, kot je zgornja slika, v datoteko, lahko uporabite naslednjo kodo.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile kot niz, rng kot obseg)Zatemni vrstico kot obseg, celico kot obsegZatemni datotečno številko kot celo številoFileNumber = FreeFileOdprite strFile za izpis kot #številko datotekeZa vsako vrstico v rng.RowsZa vsako celico V vrsti. CeliceČe cell.Column = row.Cells.Count PotemNapiši #Številka datoteke, celicaSicer paNapišite #FileNumber, celica,Konec ČeNaslednja celicaNaslednja vrsticaZaprite #FileNumberEnd SubSub Write_Example ()Zatemni str mapo kot nizZatemni strFile As StringZatemni dlgFolder kot FileDialogDim rng As RangeNastavi dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Če je dlgFolder.Show = True PotemstrFolder = dlgFolder.SelectedItems (1)Sicer paZapri podKonec ČeNastavi rng = območje ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Izhod v datoteko "Write_Output.txt":
12345 | "Ime", "Priimek", "Starost", "Spol""Robert", "Stepp", "20", "Moški""Jennifer", "Mariscal", "33", "Ženska""David", "Romig", "35", "Moški""Karmel", "Ingram", "26", "Ženska" |