Summary: RhinoScript 를 사용하여 Microsoft Excel file 파일을 읽는 방법을 소개합니다.

RhinoScript 에서 Microsoft Excel 파일을 읽을 수 있습니까? 만약 그렇다면 어떻게 해야 하나요?

다음의 일반적인 용도의 함수에서 Excel 워크시트를 2D 배열로 읽어옵니다.

 ' Description:
 '   Reads a Microsoft Excel file.
 ' Parameters:
 '   strFile - [in] The name of the Excel file to read.
 ' Returns:
 '   A two-dimension array of cell values, if successful.
 '   Null on error
 Option Explicit
 
 Function ReadExcelFile(ByVal strFile)
 
   ' Local variable declarations
   Dim objExcel, objSheet, objCells
   Dim nUsedRows, nUsedCols, nTop, nLeft, nRow, nCol
   Dim arrSheet()
 
   ' Default return value 
   ReadExcelFile = Null
 
   ' Create the Excel object
   On Error Resume Next
   Set objExcel = CreateObject("Excel.Application")
   If (Err.Number <> 0) Then
     Exit Function
   End If
 
   ' Don't display any alert messages
   objExcel.DisplayAlerts = 0  
 
   ' Open the document as read-only
   On Error Resume Next
   Call objExcel.Workbooks.Open(strFile, False, True)
   If (Err.Number <> 0) Then
     Exit Function
   End If
 
   ' If you wanted to read all sheets, you could call
   ' objExcel.Worksheets.Count to get the number of sheets
   ' and the loop through each one. But in this example, we
   ' will just read the first sheet.
   Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
 
   ' Get the number of used rows
   nUsedRows = objSheet.UsedRange.Rows.Count
 
   ' Get the number of used columns
   nUsedCols = objSheet.UsedRange.Columns.Count
 
   ' Get the topmost row that has data
   nTop = objSheet.UsedRange.Row
 
   ' Get leftmost column that has data
   nLeft = objSheet.UsedRange.Column
 
   ' Get the used cells
   Set objCells = objSheet.Cells
 
   ' Dimension the sheet array
   ReDim arrSheet(nUsedRows - 1, nUsedCols - 1)
 
   ' Loop through each row 
   For nRow = 0 To (nUsedRows - 1)
     ' Loop through each column 
     For nCol = 0 To (nUsedCols - 1)
   ' Add the cell value to the sheet array 
   arrSheet(nRow, nCol) = objCells(nRow + nTop, nCol + nLeft).Value
     Next
   Next
 
   ' Close the workbook without saving
   Call objExcel.ActiveWorkbook.Close(False)
 
   ' Quit Excel
   objExcel.Application.Quit
 
   ' Return the sheet data to the caller
   ReadExcelFile = arrSheet
 
 End Function

위의 함수를 사용하여 스프레트시트의 내용을 Rhino 의 명령행에 보낼 수 있습니다:

 Sub ExcelDumper()
 
   ' Local variable declarations
   Dim strFile, arrSheet, i, j, varCell, strFormat
 
   ' Prompt for the Excel file to read  
   strFile = Rhino.OpenFileName("Open", "Excel Files (*.xls)|*.xls|")
   If IsNull(strFile) Then Exit Sub
 
   ' Read the Excel file
   arrSheet = ReadExcelFile(strFile)
   If IsNull(arrSheet) Then Exit Sub
 
   ' Dump the worksheet to the command line
   For i = 0 To UBound(arrSheet, 1)
     For j = 0 To UBound(arrSheet, 2)
       strFormat = "Sheet(" & CStr(i) & "," & CStr(j) & ") = "      
       varCell = arrSheet(i, j)
       If IsEmpty(varCell) Then
         Rhino.Print strFormat & "<empty>"
       Else
         Rhino.Print strFormat & CStr(varCell)
       End If      
     Next
   Next
 
 End Sub