Satura rādītājs
Drukāt aprakstu
Ieraksta displeja formāta datus secīgā failā.
Drukas sintakse
| 1 | Drukāt #FileNumber, [OutputList] |
Drukātā paziņojumā 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 drukas 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 (“A1: D5”), piemēram, iepriekš redzamo attēlu, varat izmantot šādu kodu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_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")'DrukātstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngBeigu apakšSub PrintRangeToFile (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 TadDrukāt #Faila numurs, šūnaCitādiDrukāt #FileNumber, šūna,Beigas JaNākamā šūnaNākamā rindaAizvērt #FileNumberBeigu apakš |
Izeja failā “Print_Output.txt”:
| 12345 | Vārds Uzvārds Vecums DzimumsRoberts Steps, 20 gadiJennifer Mariscal 33 SievieteDavid Romig 35 VīrietisKarmela Ingram 26 Sieviete |
