使用vb.net在一个工作簿中添加两个excel工作表的另一种方法是什么？

Question

在使用vb.net创建两个excel工作表和一个工作簿时，我面临着excel报表的问题，我使用Microsoft 2007来生成报告--这很好，但不幸的是，我需要卸载所有Microsoft组件，然后我安装了office.Then --在生成Excel报表时出现了这个问题。这是源代码。

        Dim wb As Excel.Workbook
        Dim range, range1 As Excel.Range
        wb = a.Workbooks.Add
        Dim ws As Excel.Worksheet = wb.Worksheets(1)
        **Dim ws1 As Excel.Worksheet = wb.Worksheets(2)** -> On This Line
        ws1.Name = "MySheet2"

Microsoft 2007一切顺利，但它发生在WPS excel中，在源代码中，我标记为粗体的部分，当.net调试r到达那里时，它直接进入catch块，并给出错误无效索引。( HRESULT: 0x8002000B (DISP_E_BADINDEX)例外)请提前帮助我，谢谢

Answer 1

当您像创建一个新的工作簿一样创建一个新的工作簿时，您只会得到一个Sheet1，所以当您试图访问索引为2的工作表时，会得到一个无效的索引，因为它不存在。

相反，您需要调用Worksheets.Add方法。

试试这个：

Dim ws1 As Excel.Worksheet = wb.Worksheets.Add()
ws1.Name = "MySheet2"