Sisällysluettelo
Kirjoita kuvaus
Kirjoittaa tiedot peräkkäiseen tiedostoon.
Kirjoita syntaksi
| 1 | Kirjoittaa #FileNumber, [OutputList] |
Write -lause sisältää 2 argumenttia:
Tiedoston numero: Mikä tahansa kelvollinen tiedostonumero.
Lähtölista: Valinnainen. Yksi tai useampi pilkuilla erotettu numeerinen lauseke tai merkkijonolauseke tiedostoon kirjoittamista varten.
Esimerkkejä Excel VBA -kirjoitustoiminnosta
| Etunimi | Sukunimi | Ikä | Sukupuoli |
| Robert | Stepp | 20 | Uros |
| Jennifer | Mariscal | 33 | Nainen |
| David | Romig | 35 | Uros |
| Carmel | Ingram | 26 | Nainen |
Jos haluat tulostaa alueen (“A2: D5”) yllä olevan kuvan kaltaisesta taulukosta tiedostoon, voit käyttää seuraavaa koodia.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile As String, rng As Range)Himmennä rivi alueena, solu alueenaDim FileNumber kokonaislukunaFileNumber = FreeFileAvaa strFile tulostusta varten #FileNumberJokaiselle riville rng.RowsJokaiselle riville solulleJos solu.sarake = rivi.Solut.lasketaan sittenKirjoita #Tiedostonumero, soluMuuKirjoita #Tiedostonumero, solu,Loppu JosSeuraava soluSeuraava riviSulje #FileNumberEnd SubSub Write_Example ()Himmennä strFolder merkkijononaDim strFile merkkijononaDim dlgFolder FileDialoginaDim rng as RangeAseta dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Jos dlgFolder.Show = Tosi sittenstrFolder = dlgFolder.SelectedItems (1)MuuLopeta SubLoppu JosAseta rng = alue ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Lähtö tiedostoon Write_Output.txt:
| 12345 | "Etunimi", "Sukunimi", "Ikä", "Sukupuoli""Robert", "Stepp", "20", "Mies""Jennifer", "Mariscal", "33", "nainen""David", "Romig", "35", "Mies""Carmel", "Ingram", "26", "nainen" |
