I-BEGO

Mohon Bantuannya Semuanya . . .
Saya Sedang Belajar Importing File Excel ke dataGrid di VB.Net. didalam form ada satu textbox, 2 button (btproses & btbrowse) dan satu buah DataGridView :



Saya menggunakan kode ini pada btproses :

Code: Select all

Dim xcon As OleDbConnection
Dim xadap As OleDbDataAdapter
Dim xset As New DataSet

If TextBox1.Text <> "" Then
            xcon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & TextBox1.Text & "; Extended Properties = Excel 8.0;")
            xcon.Open()
            xadap = New OleDbDataAdapter("select*from [transaksi$]", xcon)
            xadap.Fill(xset, "transaksi") <- ERROR DISINI
            xadap.Dispose()
            DataGridView1.DataSource = xset.Tables("transaksi")
            DataGridView1.Columns(0).HeaderText = "xxx"
        End If


yang jadi masalah adalah, pada saat program running dalam kondisi File Excel yang di-Load Tertutup, muncul Error pada baris yang saya tunjuk diatas . .

Pesan Error-nya : External table is not in the expected format.

Namun ERROR itu hilang/gak ada kalo pada saat saya klik btproses dengan kondisi File Excel sedang Open di Office Excel. .

Apakah para master disini ada yang pernah mengalami Error seperti itu ??
Mohon Bantuan Solusi-nya agar saya bisa Me-load/Import File Excel tersebut ke datagrid Tanpa Harus Membuka File Excel-nya di Office Excel . . . Terima Kasih banyak . . .

TU KAYA'E MASLAH DI CONNECTION STRING NYA OM...

thanks response-nya om nova, , saya udah nyoba semua satu2 CS yang ada disini :

http://www.connectionstrings.com/excel

semua hasilnya sama . . kalo file excell sedang "open", program normal. . tapi kalo file dalam kondisi "close", muncul error seperti itu terus . . .

sorry om ada yg kelewatan,
klo mo ambil data dr excel, file excelnya emg harus open
jd harus kta buka dl file excelnya dr vb.net
dipilih sheetnya, br bisa di proses datanya...

contohnya gni om :

Code: Select all

Dim xlsApp As Excel.Application
Dim xlsWB As Excel.Workbook
Dim xlsSheet As Excel.Worksheet

xlsApp = New Excel.Application
xlsApp.Visible = True
xlsWB = xlsApp.Workbooks.Open(Path)
xlsSheet = xlsWB.Worksheets(1)


semoga bisa membantu...

bisa kq om d t4 saya

novaedp wrote:sorry om ada yg kelewatan,
klo mo ambil data dr excel, file excelnya emg harus open
jd harus kta buka dl file excelnya dr vb.net
dipilih sheetnya, br bisa di proses datanya...

saya juga curiga gitu om . . . cuma saya ngga tau caranya . . . makanya saya posting thread disini . . .
oke om, saya coba dulu "contoh"-nya . . . makasih banyak om nova . . .

trail wrote:bisa kq om d t4 saya

wiww . . . gimana bisa ya?? . . . disini, dicoba di 2 kompie beda hasilnya sama2 error . . .

somethingnew wrote:wiww . . . gimana bisa ya?? . . . disini, dicoba di 2 kompie beda hasilnya sama2 error . . .

mungkin tergantung amal dan perbuatan, oom.

Excelnya versi berapa?

Code: Select all

Extended Properties = Excel 8.0;")

. saya dengar-dengar, kalo excel 2003 pernah dibuka pake excel 2007, filenya agak berubah.

vberror13 wrote: mungkin tergantung amal dan perbuatan, oom.

pan udah dicoba gini om :

somethingnew wrote:disini, dicoba di 2 kompie beda hasilnya sama2 error . . .

vberror13 wrote:Excelnya versi berapa?

Code: Select all

Extended Properties = Excel 8.0;")

. saya dengar-dengar, kalo excel 2003 pernah dibuka pake excel 2007, filenya agak berubah.

saya pakek Excel 2007 om . . saya juga sebenernya curiga disitu masalahnya, tapi udah saya coba sesuai petunjuk di ConnectinStrings.com, ngga ada perubahan om, tetep sama (ga bisa import kalo file Excel-nya ngga dibuka) . . .