004_comission/jimmycheung93/task4/_poc/write_xlsx/No of cases/No of cases prompt.md

Case Persistency Name No of new case No. of collpased case Case Persistency Alex 46 14 53.33% Ben 20 14 17.65% Candy 49 11 63.33% Danny 55 9 71.88% Eason 49 11 63.33% Filex 70 27 44.33% Gary 41 3 86.36% Henry 44 1 95.56% Irene 60 17 55.84% Jenny 59 16 57.33%

Team A total 219 59 57.55% Team B Total 274 64 62.13%

1. i need a excel function that will open a excel file named `D:\_workspace\carousell-comission-playlist\jimmycheung93\task4\_poc\Sales Analysis Product Category\helloworld.xlsx`
2. check if sheet named `Sales Analysis Product Category` exist
  2.1 if not exist create a sheet named `Sales Analysis Product Category`
  2.2 if exist, empty the whole sheet
4. write Month first row as header of table
5. write Quarter first row as header of table
6. write Product Category first row as header of table
7. write Selling unit first row as header of table
8. write Monthly Sales first row as header of table
9. write Quartely sales first row as header of table
10. write commission first row as header of table
11. write Monthly Margin first row as header of table
12. write Quaterly Margin first row as header of table
13. write Quaterly Commission first row as header of table
14. write "January" at "A2"
15. write "Feburary" at "A3"
16. write "March" at "A4"
17. write "April" at "A5"
18. write "May" at "A6"
19. write "June" at "A7"
20. write "July" at "A8"
21. write "Augest" at "A9"
22. write "September" at "A10"
23. write "October" at "A11"
24. write "November" at "A12"
25. write "December" at "A13"

99. then close and save that excel file

thanks

Sub NoOfCases()
    Const FILE_PATH As String = "D:\_workspace\carousell-comission-playlist\jimmycheung93\task4\_poc\No of cases\helloworld.xlsx"
    Const TOP_ROW As Long = 1
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range
    Dim tempArray() as Variant
    Dim i As Long

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)

    ' Check if the sheet exists
    On Error Resume Next
    Set ws = wb.Sheets("No. of cases")
    On Error GoTo 0

    ' If not found, create a new sheet
    If ws Is Nothing Then
        Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
        ws.Name = "No. of cases"
    Else
        ' Empty the entire sheet
        ws.UsedRange.ClearContents
    End If


    ' Write month names
    Set startCell = ws.Range("A1")
    tempArray = Array("Case Persistency")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(0, i).Value = tempArray(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("A2")
    tempArray = Array("Name","No of new case","No. of collpased case","Case Persistency")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(0, i).Value = tempArray(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("A3")
    tempArray = Array("Alex","Ben","Candy","Danny","Eason","Filex","Gary","Henry","Irene","Jenny")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(i, 0).Value = tempArray(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("A14")
    tempArray = Array("Team A total", "Team B Total")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(i, 0).Value = tempArray(i)
    Next i


    ' Save and close the workbook
    ' wb.Close SaveChanges:=True
End Sub

'column SALES_ANALYSIS_COL_MONTH = "A" SALES_ANALYSIS_COL_QUARTER = "B" SALES_ANALYSIS_COL_PRODUCT_CATEGORY = "C" SALES_ANALYSIS_COL_SELLING_UNIT = "D" SALES_ANALYSIS_COL_MONTHLY_SALES = "E" SALES_ANALYSIS_COL_QUARTELY_SALES = "F" SALES_ANALYSIS_COL_COMMISSION = "G" SALES_ANALYSIS_COL_MONTHLY_MARGIN = "H" SALES_ANALYSIS_COL_QUATERLY_MARGIN = "I" SALES_ANALYSIS_COL_QUATERLY_COMMISSION_ = "J"

'row SALES_ANALYSIS_ROW_JANUARY = "2" SALES_ANALYSIS_ROW_FEBURARY = "3" SALES_ANALYSIS_ROW_MARCH = "4" SALES_ANALYSIS_ROW_APRIL = "5" SALES_ANALYSIS_ROW_MAY = "6" SALES_ANALYSIS_ROW_JUNE = "7" SALES_ANALYSIS_ROW_JULY = "8" SALES_ANALYSIS_ROW_AUGEST = "9" SALES_ANALYSIS_ROW_SEPTEMBER = "10" SALES_ANALYSIS_ROW_OCTOBER = "11" SALES_ANALYSIS_ROW_NOVEMBER = "12" SALES_ANALYSIS_ROW_DECEMBER = "13"