KGRKJGETMRETU895U-589TY5MIGM5JGB5SDFESFREWTGR54TY
Server : Apache/2.4.62
System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64
User : www ( 80)
PHP Version : 8.3.8
Disable Function : NONE
Directory :  /domains/mguerinweb/Offline_Archive/vb asp to excel/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : /domains/mguerinweb/Offline_Archive/vb asp to excel/modExcel.bas
Attribute VB_Name = "modExcel"
Private db As excel.Application

Sub OpenExcel()
    On Error GoTo ErrorHandler

    Set db = New excel.Application

    db.Workbooks.Open App.Path & "\custodial.xls"
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume Next
End Sub

Sub TransferData()
    On Error GoTo ErrorHandler
    With db.Worksheets("Data")
        .Range("AD2").Value = frmMain.grdNew.Columns(1).Text
    End With
    'db.SaveAs App.Path & "/custodial.xls"
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume Next
End Sub

Sub CloseExcel()
    db.Workbooks.Close
    Set db = Nothing
End Sub

Anon7 - 2021