Load Excel Data Into Matrix

Function LoadExcelNumericDataAsMatrix(pathName, fileName, worksheetName, startCell, endCell)
    String pathName                     // Name of Igor symbolic path or "" to get dialog
    String fileName                         // Name of file to load or "" to get dialog
    String worksheetName
    String startCell                            // e.g., "B1"
    String endCell                          // e.g., "J100"
   
    if ((strlen(pathName)==0) || (strlen(fileName)==0))
        // Display dialog looking for file.
        Variable refNum
        String filters = "Excel Files (*.xls,*.xlsx,*.xlsm):.xls,.xlsx,.xlsm;"
        filters += "All Files:.*;"
        Open/D/R/P=$pathName /F=filters refNum as fileName
        fileName = S_fileName               // S_fileName is set by Open/D
        if (strlen(fileName) == 0)          // User cancelled?
            return -2
        endif
    endif

    // Load row 1 into numeric waves
    XLLoadWave/S=worksheetName/R=($startCell,$endCell)/COLT="N"/O/V=0/K=0/Q fileName
    if (V_flag == 0)
        return -1           // User cancelled
    endif

    String names = S_waveNames          // S_waveNames is created by XLLoadWave
    String nameOut = UniqueName("Matrix", 1, 0)
    Concatenate /KILL /O names, $nameOut    // Create matrix and kill 1D waves
   
    Printf "Created numeric matrix wave %s containing cells %s to %s in worksheet \"%s\"\r", nameOut, startCell, endCell, worksheetName

    return 0            // Success
End