Dim xlApplication = CreateObject("Excel.Application")
Dim xlBooks = xlApplication.Workbooks.Add
Dim xlSheet = xlBooks.Worksheets(1)
Dim strFilePath = comSaveFileDialog(Me, , , TG.eDIALOGKBN.XLS)
Dim iCnt As Integer = 0
//Excel表示
xlApplication.Visible = False
xlBooks = xlApplication.Workbooks.Add
xlSheet = xlBooks.ActiveSheet
//Excel合并单元格
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 2)).Merge(Reflection.Missing.Value)
//Excel背景颜色
xlSheet.Cells(1, 1).Interior.Color = System.Drawing.Color.FromArgb(171, 171, 171).ToArgb()
For Each dr As DataRow In Me.ToriData.Select()
iCnt += 1
xlSheet.Cells(iCnt, 1).Value = iCnt
//Excel对齐设定
xlSheet.Cells(iCnt, 1).HorizontalAlignment = DL_EXCEL_XLHALIGNRIGHT
//Excel单元格线
xlSheet.Cells(iCnt, 1).Borders.LineStyle = 1
Next
//xlApplication.Visible = True
//xlApplication.UserControl = True
'Excel通知
xlApplication.DisplayAlerts = False
'Excel保存
xlBooks.SaveAs(FileName:=strFilePath, FileFormat:=DL_EXCEL_HOZON)
'Excel退出
xlApplication.Quit()
'COM对象释放
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApplication)