Masalah ieframe.dll

Pada saat kita menggunakan control internet control pada VB6 tidak 100% berjalan mulus. Ketika komputer diinstall browser dengan IE versi >IE6 maka akan menemui pesan error berikut “File Not found ‘C:\Windows\system32\ieframe.dll\1′” Solusi nya adalah dengan mencari registry dengan kata kunci ‘C:\Windows\system32\ieframe.dll\1’, dengan menggunakan tool seperti tuneUp 2009, alamat registrynya adalah HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\win32. dan mengganti text ‘C:\Windows\system32\ieframe.dll\1’ menjadi ‘C:\Windows\system32\ieframe.dll’

Iklan

Automate Excel via VB

Cara membuat file excel melalui VB 6.0:

Private Sub Command1_Click()
    On Error GoTo errH
    Dim oExcel As Object
    Dim oWB As Object
    Dim oWS As Object
    Dim oRng As Object

    Set oExcel = CreateObject("Excel.Application")
    
    Set oWB = oExcel.Workbooks.Add
    Set oWS = oWB.Worksheets("Sheet1")
    Set oRng = oWS.Range("A1")
    oRng.Value = "Hello World"

    'oWS.Cells(1, 1).Value
    oWB.SaveAs ("c:\Hello World.xls")
    oWB.Close

    GoTo Cleanup
errH:
    If Err.Number = 9 Then 'jika error pada pembukaan worksheet
        MsgBox "Tidak dapat membuka worksheet, mungkin nama worksheet salah", vbCritical, "Error"
    Else
        MsgBox Err.Description, vbCritical, "Error"
    End If
Cleanup:
    Set oWS = Nothing
    On Error Resume Next
    If Not oWB Is Nothing Then oWB.Close
    Set oWB = Nothing
    oExcel.Quit
    Set oExcel = Nothing
    On Error GoTo 0
End Sub