Bagaimana Menulis Beberapa Baris ke Excel Menggunakan Vb.Net

Saat membuat aplikasi Visual Basic.Net, pertimbangkan untuk menambahkan fitur ekspor ke Excel selain laporan tercetak. Fungsionalitas tambahan membutuhkan sedikit kode dan pelanggan Anda dapat menyortir dan menganalisis data dengan cara apa pun yang mereka pilih. Gunakan desainer formulir di Visual Basic untuk menambahkan fungsi ini.

1

Buka Visual Studio dan buat proyek Visual Basic baru. Klik "File" lalu "Proyek Baru". Saat dialog proyek baru muncul, pilih "Visual Basic / Windows" dari tampilan hierarki, klik ikon "Aplikasi Formulir Windows", beri nama proyek "ExcelTest", lalu klik "Oke". Setelah menunggu sebentar, perancang formulir akan muncul.

2

Tambahkan referensi ke komponen ActiveX Excel. Klik "Proyek" dari menu tarik-turun, lalu klik "Tambahkan Referensi". Klik tab "COM" dan gulir ke bawah ke "Microsoft Excel". Mungkin ada lebih dari satu contoh Excel yang terdaftar, jadi pilih versi terbaru yang tersedia di komputer pelanggan.

3

Tambahkan tombol ke formulir. Klik ikon Kotak Alat untuk membuka kotak alat, lalu seret tombol ke formulir. Klik kanan pada tombol dan pilih "Properties". Saat daftar properti muncul, beri nama tombol "btnToExcel" dan ubah properti Teks menjadi "Ke Excel". Sekarang klik tombol baru untuk membuka jendela kode.

4

Tambahkan impor perpustakaan ke bagian atas kode program sebagai berikut:

Impor Microsoft.Office.Interop Impor System.Text Public Class Form1

5

Deklarasikan bidang pribadi untuk objek Excel:

Private excelApp = New Excel.Application Private excelDoc As Excel.Workbook Private excelSheet As Excel.Worksheet Private range As Excel.Range

6

Buat konten yang akan masuk ke dalam spreadsheet, misalnya:

Private Sub btnToExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnToExcel.Click Dim txt As New StringBuilder Dim i, j As Integer For i = 1 To 20 For j = 1 To 10 txt.Append(i * j) txt.Append(vbTab) Next txt.AppendLine() Next Clipboard.SetText(txt.ToString) 

Isi yang dikirim ke spreadsheet pada contoh ini menggunakan tabel perkalian 10 kali 20. Semua data ditambahkan ke StringBuilder dengan kolom yang dipisahkan oleh karakter tab (vbTab) dan setiap baris dipisahkan oleh karakter akhir baris (menggunakan metode AppendLine). Setelah semua konten disalin ke StringBuilder, itu akan ditempatkan di Clipboard. Setelah spreadsheet terbuka, kode akan menempelkan data ini ke dalam spreadsheet.

7

Buka spreadsheet:

excelApp = CreateObject ("Excel.Application") excelApp.Visible = True excelDoc = excelApp.Workbooks.Add () excelSheet = excelDoc.ActiveSheet

Di sini, program membuat objek aplikasi Excel baru menggunakan metode CreateObject lalu menyetel properti Visible menjadi True untuk memberi tahu Excel agar menampilkan dirinya di layar. Ini kemudian membuat WorkSheet baru dan mendapatkan pegangan ke halaman aktif.

8

Tempel data ke dalam sel pertama spreadsheet:

 range = excelSheet.Cells(1, 1) excelSheet.Paste(range) End Sub 

Akhiri Kelas

Dapatkan rentang sel pertama, lalu tempel konten papan klip ke dalam sel. Tab dan feed baris memisahkan kolom dan baris.

9

Jalankan programnya. Klik "F5" untuk memulai program, lalu klik tombol "Ke Excel" untuk membuka dan melihat spreadsheet.