Spisie treści
Drukuj opis
Zapisuje dane w formacie wyświetlania w pliku sekwencyjnym.
Drukuj składnię
| 1 | Wydrukować #FileNumber, [OutputList] |
Instrukcja Print zawiera 2 argumenty:
Numer pliku: Dowolny prawidłowy numer pliku.
Lista wyjściowa: Opcjonalny. Jedno lub więcej rozdzielonych przecinkami wyrażeń numerycznych lub wyrażeń łańcuchowych do zapisania do pliku.
Przykłady funkcji drukowania Excel VBA
| Imię | Nazwisko | Wiek | Płeć |
| Robert | Step | 20 | Męski |
| Jennifer | Mariscal | 33 | Płeć żeńska |
| Dawid | Romig | 35 | Męski |
| Karmel | Ingram | 26 | Płeć żeńska |
Aby wyprowadzić Zakres („A1: D5”) w arkuszu, takim jak powyższy obrazek, do pliku, możesz użyć następującego kodu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Poddruk_Przykład()Dim strFolder jako ciągDim strFile As StringDim dlgFolder jako okno plikuDim rng As RangeUstaw dlgFolder = Application.FileDialog(msoFileDialogFolderPicker)Jeśli dlgFolder.Show = Prawda WtedystrFolder = dlgFolder.SelectedItems(1)W przeciwnym razieWyjście SubZakończ, jeśliUstaw rng = Zakres("A1:D5")'WydrukowaćstrFile = "Wydruk_Wyjście.txt"PrintRangeToFile strFolder & "\" i strFile, rngNapis końcowySub PrintRangeToFile(strFile As String, rng As Range)Dim wiersz Jako zakres, komórka Jako zakresDim numer pliku jako liczba całkowitaNumerPliku = WolnyPlikOtwórz plik strFile do wyjścia jako #FileNumberDla każdego wiersza w rng.RowsDla każdej komórki w wierszu.KomórkiJeśli komórka.Kolumna = wiersz.Komórki.Liczba WtedyDrukuj #Numer pliku, komórkaW przeciwnym razieDrukuj #FileNumber, komórka,Zakończ, jeśliNastępna komórkaNastępny rządZamknij #FileNumberNapis końcowy |
Dane wyjściowe do pliku „Print_Output.txt”:
| 12345 | Imię Nazwisko Wiek PłećRobert Stepp 20 MężczyznaJennifer Mariscal 33 KobietaDavid Romig 35 MężczyznaKarmel Ingram 26 Kobieta |
