Red de conocimiento informático - Conocimiento de la instalación - Encuentre código VB.NET reemplazado en cualquier hoja de Excel.

Encuentre código VB.NET reemplazado en cualquier hoja de Excel.

Private Sub Button1_Click(ByVal remitente como System.Object, ByVal e As System.EventArgs) maneja Button1.Click

'En caso de error, GoTo EXIT_ERROR

Dim strErrorPos As String = "F_TreatOne"

Dim strFileName como cadena

strFileName = "d:\test.xlsx"

Dim objExcelApp como nueva Microsoft.Office.Interop.Excel.Application

Atenuar objWorkBook como Microsoft.Office.Interop.Excel.Workbook

Atenuar objSheet como Microsoft.Office.Interop.Excel.Worksheet

objWorkBook = objExcelApp.Workbooks.Open( strFileName)

objSheet = objWorkBook.Worksheets(1)