Natisni opis
Zapisuje oblikovane podatke v zaporedno datoteko.
Natisni skladnjo
1 | Natisni #FileNumber, [OutputList] |
Izjava Print vsebuje 2 argumenta:
Število datotek: Vsaka veljavna številka datoteke.
OutputList: Neobvezno. Eden ali več številskih izrazov ali nizov, ločenih z vejicami, za zapis v datoteko.
Primeri funkcije tiskanja Excel VBA
Ime | Priimek | Starost | Spol |
Robert | Stepp | 20 | Moški |
Jennifer | Mariscal | 33 | Ženska |
David | Romig | 35 | Moški |
Karmel | Ingram | 26 | Ženska |
Če želite izvesti obseg (»A1: D5«) na listu, kot je zgornja slika, v datoteko, lahko uporabite naslednjo kodo.
1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Zatemni str mapo kot nizZatemni strFile As StringZatemni dlgFolder kot FileDialogDim rng As RangeNastavi dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Če je dlgFolder.Show = True PotemstrFolder = dlgFolder.SelectedItems (1)Sicer paZapri podKonec ČeNastavi rng = območje ("A1: D5")'NatisnistrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile kot niz, rng kot obseg)Zatemni vrstico kot obseg, celico kot obsegZatemni datotečno številko kot celo številoFileNumber = FreeFileOdprite strFile za izpis kot #številko datotekeZa vsako vrstico v rng.RowsZa vsako celico V vrsti. CeliceČe cell.Column = row.Cells.Count PotemNatisni #Številka datoteke, celicaSicer paNatisni #Številka datoteke, celica,Konec ČeNaslednja celicaNaslednja vrsticaZaprite #FileNumberEnd Sub |
Izhod v datoteko »Print_Output.txt«:
12345 | Ime Priimek Starost SpolRobert Stepp 20 MoškiJennifer Mariscal 33 MoškiDavid Romig 35 MoškiCarmel Ingram 26 ženski |