CARA MEMBACA DAN MENAMPILKAN FILE EXCEL PADA PHP DENGAN MYSQLI

Jika Anda ingin menguasai pengolahan data menggunakan aplikasi Excel dan memindahkannya ke dalam program listview yang dibuat menggunakan bahasa pemrograman Visual Basic 6.0, maka Anda harus memahami secara mendalam tentang metode baca dan tampilkan data dari Excel ke dalam listview VB6. Berikut ini adalah tutorial sederhana tentang cara membaca dan menampilkan data dari Excel ke listview VB6:

Cara Membaca dan Menampilkan dari Excel Ke Listview VB6

Langkah pertama yang harus dilakukan adalah membuka aplikasi VB6 dan menyiapkan form dengan menambahkan control ListView, kemudian tambahkan kode berikut ini ke dalam module:

Sub TampilDaftarExcel()
    'Load DaftarExcel.xls dan daftar semua nama file
    'sheetName diganti dengan nama sheet pada file Excel yang akan dibaca
    'kolom1 diganti dengan kolom yang akan ditampilkan data pada sheetName

    Dim strFile As String, mycnt As Long, r As Long, sht As Worksheet
    Dim aRng As Range, k As Long, sN(DukunganFile.TotalSupportFileExtension) As String, sName As String
    Dim l As ListItem

    ' persiapan waktu, bahasa, tanggal
    Application.Wait Now() + TimeValue("00:00:01")
    SetLocaleInfo 1025, LOCALE_SSHORTDATE, "d-M-yyyy"
    SetLocaleInfo 1025, LOCALE_STIME, ":"

    ' default format date Excel ke Indonesia
    Cells.NumberFormat = "dd-mmm-yyyy;@"
    Selection.Style = "Normal"
    Sheets("Sheet1").Cells.Clear

    ' daftar nama Excel file yang akan dibaca
    For mycnt = 1 To FileCount

        strFile = Dir$(DukunganFile.SedListFile(mycnt), vbArchive Or vbHidden Or vbDirectory Or vbReadOnly Or vbSystem Or vbVolume)

        ' baca daftar sheet pada file excel
        Set oXL = CreateObject("Excel.Application")
        Dim myBook As Workbook
        Set myBook = oXL.Workbooks.Open(strFile)
        k = 0
        'Simpan nama-nama sheet dalam array sN()
        For Each sht In myBook.Sheets
            k = k + 1
            sN(k) = sht.Name
        Next sht
        
        myBook.Close False

        ' tampikan dalam listview dalam format uniform
        For k = 1 To DukunganFile.TotalSupportFileExtension
            If DukunganFile.Ext(k) = LCase(Mid$(strFile, Len(strFile) - 2, 3)) Then
                sName = Mid$(strFile, InStrRev(strFile, "\") + 1)
                sName = Left$(sName, Len(sName) - 4)
                Set l = Form3.lvExcel.ListItems.Add(, , sName)
                Set oXL = CreateObject("Excel.Application")
                Set myBook = oXL.Workbooks.Open(strFile)
                Set aRng = myBook.Worksheets(sN(1)).Range("A1:B278")
                For r = 1 To aRng.Rows.Count
                    l.SubItems(1) = aRng.Cells(r, 1).Value
                    l.SubItems(2) = aRng.Cells(r, 2).Value
                Next r
                myBook.Close False
                Set myBook = Nothing
                Set oXL = Nothing
            End If
        Next k
    Next mycnt

    End Sub

Setelah itu, simpan kode di atas dengan format nama file “Module1.bas”. Selanjutnya adalah menambahkan control form dengan mengklik tombol New, kemudian tambahkan control ListView dan modul Module1.bas. Setelah itu, klik tanda plus pada ListView untuk menambahkan beberapa kolom yang akan ditampilkan.

Selanjutnya, tambahkan kode berikut ini ke dalam sumber file VB6:

Private Sub cmdReadExcel_Click()
    'membaca Excel file
    TampilDaftarExcel
End Sub

Selanjutnya, Anda dapat menjalankan kode di atas dengan mengklik tombol Read Excel di dalam form VB6.

Cara Mengatasi File Excel Yang Tidak Bisa Dibuka

Banyak orang yang pernah mengalami masalah ketika membuka file Excel yang tidak bisa dibuka. Untuk mengatasi masalah ini, berikut ini adalah beberapa metode yang dapat digunakan:

1. Coba Buka File Excel Dalam Safe Mode

Saat membuka file Excel, Anda dapat mencoba membuka file terlebih dahulu dalam safe mode. Safe mode memungkinkan pengguna untuk membuka aplikasi dengan minimal jumlah fitur dan fungsi, dan ini dapat membantu mengatasai masalah file Excel yang tidak bisa dibuka. Pertama-tama, tutup semua program yang sedang berjalan dan kemudian jalankan Microsoft Excel dalam safe mode. Setelah berhasil membuka file, simpan file dalam format yang berbeda, kemudian coba buka kembali dalam versi standar.

2. Cek Fitur Keamanan

Beberapa pengguna sering mengalami masalah ketika membuka file Excel karena fitur keamanan dalam aplikasi Excel menghalangi pengguna untuk melihat atau membuka file tertentu. Untuk mengatasi masalah ini, pastikan bahwa fitur keamanan pada Excel tidak memblokir file Excel yang ingin Anda buka.

FAQ

Apa Saja File Excel Yang Bisa Dibaca Oleh Kode Di Atas?

Kode di atas dapat membaca file Excel dengan format xls dan xlsx.

Bagaimana Cara Menentukan Kolom Di Listview?

Kolom di dalam listview harus ditentukan terlebih dahulu sebelum kode tersebut dijalankan. Untuk menentukan kolom, klik tanda plus pada ListView dan tambahkan jumlah kolom yang diinginkan.

Video Tutorial

Berikut ini adalah video tutorial tentang cara membaca dan menampilkan data dari Excel ke listview VB6: