Rašyti Aprašymą
Įrašo duomenis į nuoseklų failą.
Rašykite sintaksę
1 | Rašyk #FileNumber, [OutputList] |
Rašymo teiginyje yra 2 argumentai:
Failo numeris: Bet koks galiojantis failo numeris.
Išvesties sąrašas: Neprivaloma. Viena ar kelios kableliais atskirtos skaitinės išraiškos arba eilutės išraiškos, skirtos įrašyti į failą.
„Excel VBA“ rašymo funkcijos pavyzdžiai
Pirmas vardas | Pavardė | Amžius | Lytis |
Robertas | Stepas | 20 | Patinas |
Jennifer | Mariscal | 33 | Moteris |
Deividas | Romig | 35 | Patinas |
Karmelis | Ingramas | 26 | Moteris |
Norėdami į failą išvesti diapazoną („A2: D5“) lape, kaip parodyta aukščiau, galite naudoti šį kodą.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile kaip eilutė, rng kaip diapazonas)Pritemdyti eilutę kaip diapazonas, langelį kaip diapazonasDim FileNumber As IntegerFileNumber = FreeFileAtidarykite strFile išvestį kaip #FileNumberKiekvienai eilutei Rng. EilutėsKiekvienai langeliui eilutėje. LąstelėsJei langelis. Stulpelis = eilutė. Ląstelės. Skaičiuokite TadaParašykite #FileNumber, langelįKitasRašykite #FileNumber, langelį,Pabaiga JeiKitas langelisKita eilutėUždaryti #FileNumberPabaiga SubSub Write_Example ()„Dim strFolder“ kaip eilutėDim strFile As StringDim dlgFolder kaip FileDialogDim rng As RangeNustatykite dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Jei dlgFolder.Show = Tiesa tadastrFolder = dlgFolder.SelectedItems (1)KitasIšeiti iš SubPabaiga JeiNustatyti rng = Diapazonas („A1: D5“)strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngPabaiga Sub |
Išvestis į failą „Write_Output.txt“:
12345 | „Vardas“, „Pavardė“, „Amžius“, „Lytis“„Robertas“, „Stepas“, „20“, „Vyras“„Jennifer“, „Mariscal“, „33“, „Moteris“„Deividas“, „Romig“, „35“, „Vyras“„Karmelis“, „Ingramas“, „26“, „Moteris“ |