Tartalomjegyzék
Leírás írása
Az adatokat soros fájlba írja.
Szintaxis írása
1 | Ír #FileNumber, [OutputList] |
Az Write utasítás 2 érvet tartalmaz:
Ügyirat száma: Bármilyen érvényes fájlszám.
Kimeneti lista: Választható. Egy vagy több vesszővel elválasztott numerikus kifejezés vagy karakterlánc-kifejezés fájlba íráshoz.
Példák az Excel VBA írási funkciójára
Keresztnév | Vezetéknév | Kor | Nem |
Robert | Stepp | 20 | Férfi |
Jennifer | Mariscal | 33 | Női |
David | Romig | 35 | Férfi |
Carmel | Ingram | 26 | Női |
A tartomány („A2: D5”) a fenti képhez hasonló lapon fájlba történő kiadásához használja a következő kódot.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile mint karakterlánc, rng mint tartomány)Dim sor mint tartomány, cella mint tartományFájlszám halvány egészFileNumber = FreeFileNyissa meg az strFile fájlt #FileNumber -kéntMinden sorhoz rng.SorokMinden egyes cellához SorbanHa cella.Oszlop = sor.Sejtek.SzámÍrja be a #FileNumber cella értékétMásÍrja be a #FileNumber cellat,Vége HaKövetkező cellaKövetkező sorZárja be a #FileNumber számotEnd SubSub Write_Example ()Dim strFolder karakterlánckéntDim strFile karakterlánckéntDim dlgFolder FileDialog névenDim rng mint tartományÁllítsa be a dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ha dlgFolder.Show = Igaz akkorstrFolder = dlgFolder.SelectedItems (1)MásKilépés a SubbólVége HaRng = tartomány beállítása ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
A „Write_Output.txt” fájl kimenete:
12345 | "Keresztnév", "Vezetéknév", "Kor", "Nem""Robert", "Stepp", "20", "Férfi""Jennifer", "Mariscal", "33", "nő""Dávid", "Romig", "35", "Férfi""Carmel", "Ingram", "26", "Nő" |