插入到Excel文件 [英] Insert to Excel file

问题描述

我使用以下代码获取工作表

I am used following code for get worksheets

 Dim mWorkSheets As Microsoft.Office.Interop.Excel.Sheets
        Dim mWSheet1 As Microsoft.Office.Interop.Excel.Worksheet
  oXL.Visible = True
        oXL.DisplayAlerts = False
        Dim mWorkBook As Microsoft.Office.Interop.Excel.Workbook
        mWorkBook = oXL.Workbooks.Open(path, 0, False, 5, "", "", False, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", True, False, 0, True, False, False)
        ''//Get all the sheets in the workbook
        mWorkSheets = mWorkBook.Worksheets
        ''//Get the allready exists sheet
        mWSheet1 = (Microsoft.Office.Interop.Excel.Worksheet)mWorkSheets.get_Item("Sheet1")
      
mWSheet1 = (Microsoft.Office.Interop.Excel.Worksheet)mWorkSheets.get_Item("Sheet1")

在C#中，使用以下代码

mWSheet1 =(Microsoft.Office.Interop.Excel.Worksheet)mWorkSheets.get_Item("Sheet1")

但是我想和vb.net代码一起使用

但是该行显示有错误，如何更改它.用作mWorkSheets的工作表

In C# the following code is used

mWSheet1 = (Microsoft.Office.Interop.Excel.Worksheet)mWorkSheets.get_Item("Sheet1")

But i want to used with vb.net code

But it is display with error in that line.How to change it. This is used for mWorkSheets as Worksheet

推荐答案

要从工作表集合中获取工作表:

To get worksheet from collection of worksheets:

mWorkSheets = mWorkBook.Worksheets
mWSheet = mWorkSheets(1)
Msgbox (mWSheet.Name)

但最简单的方法是:

but the easiest way is:

mWSheet = mWorkBook.Worksheets(1)
'or
'mWSheet = mWorkBook.Worksheets("SheetName")
Msgbox (mWSheet.Name)

枚举工作表:

To enumerate worksheets:

mWorkSheets = mWorkBook.Worksheets
For Each mWSheet In mWorkSheets
    Msgbox (mWSheet.Name)
Next

这篇关于插入到Excel文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！