VB6 Msflexgrid dapat mengirimkan ke EXCEL Loe

Kali ini kita akan membuat program kecil bagaimana VB6 Msflexgrid dapat mengirim data ke program di Microsoft Offrice MsExcel. Langkah pertama yang harus kita lakukan adalah. Buat proyek baru, maka kontrol dan kontrol CommandButton Msflexgrid dari komponen pilih Microsoft FlexGrid 6.0 Kontrol. serta untuk menambahkan sebuah kontrol CommandButton untuk melakukan langkah yang sama. Kemudian kita menambahkan referensi ke Microsoft Excel Obyek Referensi yaitu 11.0.





Caranya adalah, pada menu Proyek utama, submenu di bagian bawah ada sub menu bernama referensi, fungsi menu untuk menambahkan referensi lain yang dibutuhkan oleh program yang kita buat. Dan apa yang kita butuhkan sekarang adalah referensi dari MsExcel. Apakah menelusuri, kemudian pilih Microsoft Excel Obyek 11,0.Sampai disini kita telah menyimpan proyek berarti bahwa referensi ini, dan kemudian kita dapat menggunakan.Tambahkan kode program berikut:
Private Sub Command2_Click ()Dim i As Integeri = 1Dengan MSFlexGrid1FixedRows =. 1FixedCols =. 0. Baris = iCols =. 3TextMatrix (i - 1, 0). = "Kol 1"TextMatrix (i - 1, 1). = "Kol 2"TextMatrix (i - 1, 2). = "Kol 3"
Untuk i = 2 Untuk 10. Baris = iTextMatrix (i - 1, 0). = "Val" & iTextMatrix (i - 1, 1). = ITextMatrix (i - 1, 2). = (I * 10)Next iAkhir DenganEnd Sub
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.ketik perintah berikut pada kontrol tombol perintah:
Private Sub Command1_Click ()Dim XcLApp Sebagai ObyekDim XcLWB Sebagai ObyekDim XcLWS Sebagai Obyek
Dim i As Integer
Set XcLApp = CreateObject ("Excel.Application")Set XcLWB = XcLApp.Workbooks.Add 'pembukaan baru kerja excel buku'Set XcLWS = XcLWB.Worksheets.Add
Dengan MSFlexGrid1Untuk i = 1 Untuk Baris -. 1XcLWS.Range (Addres_Excel (i, 1)). Nilai = TextMatrix (i, 0). "Tambahkan teks dari col1 'XcLWS.Range (Addres_Excel (i, 2)). Nilai = TextMatrix (i, 1). "Tambahkan teks dari col2 'XcLWS.Range (Addres_Excel (i, 3)). Nilai = TextMatrix (i, 2). "Tambahkan teks dari col3 'Next iAkhir DenganXcLApp.Visible = TrueEnd Sub
VB6 Msflexgrid DENGAN EXCEL
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.Ketik perintah berikut pada kontrol tombol perintah:Jadi apa yang kita lakukan adalah kita telah menciptakan sebuah aplikasi excel baru. membuat workbook dan worksheet. kemudian menggunakan data dari msflexgrid kontrol dan mengirimkannya ke alamat worksheet. dari 1 sampai 3 untuk kolom dan baris. trik ini Addres_Excel fungsi (). apa yang dia lakukan adalah untuk mengirim info seperti baris 1 dan col 1 dan transfer ke 'A1'. Sebagai contoh jika kita mengirim 1 untuk kolom 1 akan dibagi dengan 26 dan mod akan menunjukkan apa surat itu. 1 mod 26 akan kembali 0. 0 + simbol ascii untuk "A" akan menjadi "A".jadi di sini adalah fungsi

Fungsi publik Addres_Excel (ByVal lng_row As Long, ByVal As Long lng_col) As StringDim modval As Long 'digunakan untuk mendapatkan pengingat'Strval Dim As String 'mendapatkan huruf transferd'modval = (lng_col - 1) Mod 26strval = Chr $ (Asc ("A") + modval)modval = ((lng_col - 1) \ 26) - 1Jika modval> = 0 Then strval = Chr $ (Asc ("A") + modval) & strval 'jika kita memiliki lebih kemudian kita menambahkan huruf'Addres_Excel = strval & lng_rowEnd Function
Sampai disini kita sudah selesai membuat program aplikasi mengirimkan data ke program dari VB6 Msflexgrid MsExcel dari Microsoft Office.