Cara Menyimpan Data Lotto

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.

Leave a Comment

Your email address will not be published. Required fields are marked *