Question

我已经粘贴了几年前由某人编写的代码片段。这是关于基于模板将一些数据导出到excel文件中。有人可以帮助我们解决以下代码的含义，因为我无法弄明白吗？提前谢谢。

_xlTmp = New Excel.Application _xlTmp.Workbooks.Open(_fileName, , True, , , , , , , True) Dim xlNewSheet = CType(_xlTmp.Worksheets.Item("SHEET1"), Excel.Worksheet) xlNewSheet.Copy(CType(_xlTmp.Worksheets("SHEET2"), Excel.Worksheet)) xlNewSheet = CType(_xlTmp.Worksheets.Item("SHEET1 (2)"), Excel.Worksheet)

Answer 1

'Opens Excel and stores a reference to Excel process
xlTmp = New Excel.Application 

'Opens the excel file with path '_fileName'
_xlTmp.Workbooks.Open(_fileName, , True, , , , , , , True)

'Stores a reference to Sheet named "SHEET1"
Dim xlNewSheet = CType(_xlTmp.Worksheets.Item("SHEET1"), Excel.Worksheet)

'Copies the refered sheet to sheet named "SHEET2" - replacing it                                                                      
xlNewSheet.Copy(CType(_xlTmp.Worksheets("SHEET2"), Excel.Worksheet))

'Reference to the copied sheet
xlNewSheet = CType(_xlTmp.Worksheets.Item("SHEET1 (2)"), Excel.Worksheet)

但是，如果使用Excel COM，则应该以不同的方式编码，这样就可以在Excel中处理“引用某些内容”的所有对象。如果找不到具有给定名称的文件名或表单，您也将获得例外。

使用VB.net基于预定义模板将数据导出到Excel

1 个答案: