Kalau mau Import dari Excel bisa pake' cara ini,

Dim cnExcel As New ADODB.Connection, rs As New ADODB.Recordset

SQL = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = 
Letak_File\Nama_File.xls;Extended Properties = Excel 8.0"
cnExcel.ConnectionString = SQL
cnExcel.CursorLocation = adUseClient
cnExcel.Open

SQL = "SELECT * FROM [Nama_Sheet$]"
rs.CursorLocation = adUseClient
rs.Open SQL, cnExcel, adOpenKeyset, adLockBatchOptimistic
Set GridEX1.ADORecordset = rs

semoga bisa membantu....

  ----- Original Message ----- 
  From: eko santoso 
  To: [email protected] 
  Sent: Tuesday, February 06, 2007 9:10 PM
  Subject: [indoprog-vb] mengambil data dr excel (untuk kesekian kalinya)


  tolong...
  gmn caranya ngambil data dari file excel???
  apa pertanyaan ini gak menarik ya...
  kok gak ada yang bantu....
  makasih ya...


  ---------------------------------
  Need a quick answer? Get one in minutes from people who know. Ask your 
question on Yahoo! Answers.

  [Non-text portions of this message have been removed]



   

[Non-text portions of this message have been removed]

Kirim email ke