Jika Anda adalah anggota layanan penelitian lotre berbasis web, kadang-kadang Anda perlu mengunggah file teks ke situs web Anda. Artikel ini menunjukkan kepada Anda cara memilih dan kemudian menyimpan kumpulan data Excel dalam file teks terbatas koma sederhana, siap untuk diunggah.
Format File Teks Lotto Terbatas Koma
Teks terbatas Ini adalah berbagai jenis kode dan aplikasi. Contoh teks dalam file dibatasi koma bisa terlihat seperti ini: Bola Online Terpercaya
2,912,22,35,39
6,9,12,19,20,31
5,16,20,22,27,29
18,20,35,15,31,2
3,19,20,27,31,35
Tujuan kami adalah untuk mengambil data dari spread sheet dan menyimpannya dalam file teks dalam format dibatasi koma seperti yang terlihat di atas.
Kode VBA Untuk Mengekspor Data Lotto
Logika kode kami mungkin berupa baris berikut:
Pilih data yang akan diekspor
Buat file teks
Baca data dalam file
Simpan dan tutup file
Pertama, kita akan membuat beberapa variabel untuk digunakan dalam kode.
Dim fso As FileSystemObject
Redupkan myFile As TextStream
Dim txt Sebagai String
Dim rng Sebagai Rentang
Redupkan myStartRow, myRows, myCols As Long
Dim startCell, endCell As String
Lembar kerja (1). Aktifkan
Range (“a1”). Aktifkan
myStartRow = 5
Kode di atas Garis mendefinisikan data ekspor dari awal hingga; dalam contoh ini
Sekarang kami ingin ekspor
myRows = ActiveCell.End (xlDown) .row
myCols = ActiveCell.End (xlToRight) .Column
startCell = ActiveCell.Offset (myRows – myStartRow, 0) .Address
endCell = ActiveCell.Offset (myRows – 1, myCols – 1) .Address
Set rng = Rentang (startCell, endCell)
rng.select
Ketika Anda menjalankan kode di atas dalam modul VBA baru itu akan menyoroti lima baris terakhir data.
Akhirnya kita hanya perlu membuka file teks baru, menelusuri data yang dipilih dan menyimpannya.
Set fso = FileSystemObject Baru
Set myFile = fso.OpenTextFile (ActiveWorkbook.Path & “\ lottoFile.txt”, 2, Benar)
Untuk x = 1 Ke rng.Rows.Count
Untuk y = 1 Ke rng.Columns.Count
txt = txt & rng.Cells (x, y) & “,”
Selanjutnya
txt = Pertengahan (txt, 1, Len (txt) – 1)
myFile.WriteLine txt
txt = “”
Selanjutnya
myFile.Tutup
Set myFile = Tidak Ada
Setel fso = Tidak ada
Pengembangan Kode Ekspor Data VBA Lotto
Kode memilih lima hasil terakhir dan menyimpannya dalam file teks. Program ini dapat dikembangkan lebih lanjut untuk menyaring hasil.
Hasil tabel tengah
Penyaringan untuk nomor atau grup tertentu
Menambahkan data alih-alih menimpa file yang ada.