Rakstīt aprakstu
Ieraksta datus secīgā failā.
Uzrakstiet sintaksi
1 | Rakstīt #FileNumber, [OutputList] |
Rakstīšanas rakstā ir 2 argumenti:
Faila numurs: Jebkurš derīgs faila numurs.
Izvades saraksts: Neobligāti. Viena vai vairākas komatatdalītas skaitliskas izteiksmes vai virkņu izteiksmes, ko rakstīt failā.
Excel VBA rakstīšanas funkcijas piemēri
Vārds | Uzvārds | Vecums | Dzimums |
Roberts | Steps | 20 | Vīrietis |
Dženifera | Mariscal | 33 | Sieviete |
Dāvids | Romig | 35 | Vīrietis |
Karmels | Ingram | 26 | Sieviete |
Lai failā izdrukātu diapazonu (“A2: D5”), piemēram, iepriekš redzamo attēlu, varat izmantot šādu kodu.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile kā virkne, rng kā diapazons)Dim rindas kā diapazons, šūna kā diapazonsDim FileNumber kā vesels skaitlisFileNumber = FreeFileAtveriet strFile izvadam kā #FileNumberKatrai rindai rindā. RindasKatrai šūnai rindā. ŠūnasJa šūna.Kolonna = rinda.Šūnas.Skaitīt TadUzrakstiet #FileNumber, šūnuCitādiUzrakstiet #FileNumber, šūnu,Beigas JaNākamā šūnaNākamā rindaAizvērt #FileNumberBeigu apakšSub Write_Example ()Dim strFolder kā virkneDim strFile kā virkneDim dlgFolder kā FileDialogDim rng As RangeIestatiet dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ja dlgFolder.Show = True TadstrFolder = dlgFolder.SelectedItems (1)CitādiIziet no apakšnodaļasBeigas JaIestatīt rng = Diapazons ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngBeigu apakš |
Izeja failā “Write_Output.txt”:
12345 | "Vārds", "uzvārds", "vecums", "dzimums""Roberts", "Steps", "20", "Vīrietis""Jennifer", "Mariscal", "33", "sieviete""Dāvids", "Romigs", "35", "Vīrietis""Karmels", "Ingrams", "26", "Sieviete" |