VB SCRIPT PRACTICES - EXCEL SET - 1

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

‘VB SCRIPT PRACTICES - EXCEL SET - 1

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'Sample 1:  CREATE EXCEL FILE

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Public Function funcExcelObject()

Set objExcel = CreateObject("Excel.Application")

End Function

 ‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'Sample 2:  CREATE EXCEL FILE

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Public Function funcCreateExcelFile()

dtmDate = Date

strMonth = Month(Date)

strDay = Day(Date)

strYear = Right(Year(Date),2)

strFileName = "C:\" & strMonth & "-" & strDay & "-" & strYear & ".xls"

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

objWorkbook.SaveAs(strFileName)

objExcel.Quit

End Function

 ‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

 ‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%