Oświadczenie zapisu VBA

Napisz opis

Zapisuje dane do pliku sekwencyjnego.

Zapisz składnię

1	Pisać #FileNumber, [OutputList]

Instrukcja Write 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 zapisu 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 („A2: D5”) w arkuszu, takim jak powyższy obrazek, do pliku, możesz użyć następującego kodu.

12345678910111213141516171819202122232425262728293031323334353637

Sub WriteRangeToFile(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 WtedyWpisz #Numer Pliku, komórkaW przeciwnym razieWpisz #Numer Pliku, komórka,Zakończ, jeśliNastępna komórkaNastępny rządZamknij #FileNumberNapis końcowySub Write_Example()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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" i strFile, rngNapis końcowy

Dane wyjściowe do pliku „Write_Output.txt”:

12345

„Imię”, „Nazwisko”, „Wiek”, „Płe攄Robert”, „Step”, „20”, „Mężczyzna”"Jennifer","Mariscal","33","Kobieta"„Dawid”, „Romig”, „35”, „Mężczyzna”„Karmel”, „Ingram”, „26”, „Kobieta”