Açıklama Yaz
Verileri sıralı bir dosyaya yazar.
Sözdizimi Yaz
1 | Yazı yazmak #FileNumber, [Çıktı Listesi] |
Write ifadesi 2 argüman içerir:
Dosya numarası: Herhangi bir geçerli dosya numarası.
Çıktı Listesi: İsteğe bağlı. Bir dosyaya yazılacak bir veya daha fazla virgülle ayrılmış sayısal ifade veya dize ifadesi.
Excel VBA Yazma İşlevi Örnekleri
İlk adı | Soy isim | Yaş | Cinsiyet |
Robert | step | 20 | Erkek |
Jennifer | Mariscal | 33 | Dişi |
David | romig | 35 | Erkek |
karamel | Ingram | 26 | Dişi |
Yukarıdaki resimdeki gibi bir sayfadaki Range(“A2:D5”) dosyasını bir dosyaya çıkarmak için aşağıdaki kodu kullanabilirsiniz.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile(strFile As String, rng As Range)Aralık Olarak Satırı Karart, Aralık Olarak HücreDosya Numarasını Tamsayı Olarak KarartınDosyaNumarası = ÜcretsizDosyaÇıktı için strFile'ı #FileNumber Olarak AçınHer satır için rng.RowsHer hücre için satır.HücrelerEğer cell.Column = row.Cells.Count O zaman#FileNumber yaz, hücreBaşka#FileNumber yaz, hücre,BitirSonraki hücreSonraki satır#DosyaNumarasını KapatAlt BitişAlt Yazma_Örnek()Dize Olarak Dim strFolderDize Olarak Dim strFileDim dlgFolder As FileDialogAralık Olarak KarartmadlgFolder = Application.FileDialog(msoFileDialogFolderPicker) olarak ayarlayındlgFolder.Show = True isestrFolder = dlgFolder.SelectedItems(1)BaşkaAlt ÇıkışBitirSet rng = Aralık("A1:D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngAlt Bitiş |
“Write_Output.txt” dosyasının çıktısı:
12345 | "Adı", "Soyadı", "Yaş", "Cinsiyet""Robert", "Step", "20", "Erkek""Jennifer","Mariscal","33","Kadın""David", "Romig", "35", "Erkek""Carmel", "Ingram", "26", "Kadın" |