Semoga code dibawah membantu
Dim objRsExcel As Object
Set objRsExcel = CreateObject("ADODB.Recordset")
Dim sConn As String
Dim strExcelPath As String
Dim strExcelFileName As String
Dim strSheetName As String
strExcelPath = NamaPath
strExcelFileName = "NamaFile.xls"
strSheetName = "Sheet1"
objRsExcel.CursorLocation = adUseClient
objRsExcel.CursorType = adOpenForwardOnly
objRsExcel.LockType = adLockReadOnly
sConn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strExcelPath & strExcelFileName
objRsExcel.Open "SELECT * FROM [" & strSheetName & "$]", sConn
Do Until objRsExcel.EOF
gString = IIf(Not IsNull(objRsExcel.Fields("NamaField").Value), objRsExcel.Fields("NamaField").Value, "Null")
msgbox gString
Set objRsExcel = CreateObject("ADODB.Recordset")
Dim sConn As String
Dim strExcelPath As String
Dim strExcelFileName As String
Dim strSheetName As String
strExcelPath = NamaPath
strExcelFileName = "NamaFile.xls"
strSheetName = "Sheet1"
objRsExcel.CursorLocation = adUseClient
objRsExcel.CursorType = adOpenForwardOnly
objRsExcel.LockType = adLockReadOnly
sConn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strExcelPath & strExcelFileName
objRsExcel.Open "SELECT * FROM [" & strSheetName & "$]", sConn
Do Until objRsExcel.EOF
gString = IIf(Not IsNull(objRsExcel.Fields("NamaField").Value), objRsExcel.Fields("NamaField").Value, "Null")
msgbox gString
objRsExcel.MoveNext
Loop
objRsExcel.Close
Set objRsExcel = Nothing
xanuzi04 <[EMAIL PROTECTED]> menulis:
Loop
objRsExcel.Close
Set objRsExcel = Nothing
xanuzi04 <[EMAIL PROTECTED]> menulis:
Halo Semua, salam kenal....
Maap nih urgent hehehehe......
Pak Moderator and semua Vb-iers Minta tolong nih, untuk baca file
excel dan manipulasinya via VB. Klo ada aku minta conto Source nya.
Apa bisa di baca per field/ record dalam satuan objek( data field
misalny.)?
Salam.
Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru! __._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
