Re: [Programmer-VB] Transfer File Excel

[Natanael]

coba pelajari scrip ini dech

 

'(XLS read function)
Private Sub ReadXLSFileFormat(filename As String)

Dim objInputXLS As Object
Dim ObjInputWorkBook As Object
Dim ObjInputSheet As Object
Dim RowCount As Integer
Dim ColCount As Integer
Dim X As Integer
Dim Y As Integer

    MsgBox "Take a view Seceond", vbInformation, Me.Caption
    On Error GoTo XlsErrHnd
    Screen.MousePointer = vbHourglass
    Set objInputXLS = CreateObject("Excel.Application")
    Set ObjInputWorkBook = objInputXLS.Workbooks.Open(filename)
    Set ObjInputSheet = ObjInputWorkBook.Worksheets(1)
   
    RowCount = ObjInputSheet.UsedRange.Rows.Count
    ColCount = ObjInputSheet.UsedRange.Columns.Count
    ReDim masterarray(RowCount, ColCount)
    grid(0).Rows = RowCount
    grid(0).Cols = ColCount
   
    For X = 1 To 1
        For Y = 1 To ColCount
            masterarray(X, Y) = Trim(ObjInputSheet.cells(X, Y))
            grid(0).TextMatrix(X - 1, Y - 1) = Trim(ObjInputSheet.cells(X, Y))
        Next Y
    Next X
   
   
    For X = 2 To RowCount
        For Y = 1 To ColCount
       
            masterarray(X, Y) = Trim(ObjInputSheet.cells(X, Y))
            

            msgbox masterarray(X, Y)

     
        Next Y
    Next X
   
    objInputXLS.ActiveWorkbook.Close True, filename
    Set ObjInputSheet = Nothing
    Set ObjInputWorkBook = Nothing
    Set objInputXLS = Nothing
    Screen.MousePointer = vbDefault
   
    Call Total_akhir
    Exit Sub

XlsErrHnd:
    objInputXLS.ActiveWorkbook.Close True, filename
    Set ObjInputSheet = Nothing
    Set ObjInputWorkBook = Nothing
    Set objInputXLS = Nothing
    Screen.MousePointer = vbDefault
    MsgBox Err.Description, vbCritical
   
End Sub

 

Nah data di master array kamu masukin dulu ke grid baru dimasukin ke SQL

atau dimasukin ke SQL langsung terserah kamu,..

 

ok

 

-Best Regadrs-

 

skdmdn <[EMAIL PROTECTED]> wrote:

Salam VB,

 

Saya mempunyai data file yg dibuat dgn Excel sbb:

 

NAMA        ASAL SEKOLAH

ANU         SD INPRES

ANI          SD SWASTA

dst

 

di SQL saya membuat DATABASE yg salah satu TABELnya mempunyai struktur:

 

NAMA      ASAL SEKOLAH

 

yg saya inginkan data2 di excel tsb bisa ditransfer  ke TABEL SQL

Mohon bantuan rekan2.

 

Thank's

Rijal

 

 

Send instant messages to your online friends http://uk.messenger.yahoo.com

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]

---

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.

---