The following code works fine, but it seems that instances of excel.exe are running in the background. How do I finish closing this section?
Private Sub ReadExcel(ByVal childform As Fone_Builder_Delux.frmData, ByVal FileName As String) ' In progress childform.sampleloaded = False Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet xlApp = New Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Open(FileName) xlWorkSheet = xlWorkBook.Worksheets(1) Dim columnrange = xlWorkSheet.Columns Dim therange = xlWorkSheet.UsedRange childform.datagridHeaders.Columns.Add("", "") ' Super imporant to add a blank column, could improve this For cCnt = 1 To therange.Columns.Count Dim Obj = CType(therange.Cells(1, cCnt), Excel.Range) childform.datagridSample.Columns.Add(Obj.Value, Obj.Value) childform.datagridHeaders.Columns.Add(Obj.Value, Obj.Value) Next For rCnt = 2 To therange.Rows.Count Dim rowArray(therange.Columns.Count) As String For cCnt = 1 To therange.Columns.Count Dim Obj = CType(therange.Cells(rCnt, cCnt), Excel.Range) Dim celltext As String celltext = Obj.Value.ToString rowArray((cCnt - 1)) = celltext 'MsgBox(Obj.Value) Next childform.datagridSample.Rows.Add(rowArray) Next AdjustHeaders(childform) childform.sampleloaded = True End Sub
source share