Código
-----------------------------------------------------------------------------------------------------------------
Dim ExcApp As New Excel.Application Dim hoja As Excel.Worksheet ExcApp.Workbooks.Open(RutaExcelTxBX.Text) For Each hoja In ExcApp.Sheets HojaCmBx.Items.Add(hoja.Name) Next HojaCmBx.SelectedIndex = 0 Aquí Con la Hoja Seleccionada Carga mi DatagridView: Sub CargarDatagrid() If CodigoTxBx.Text = "" Then Try FillDataAutoma("select * from [" & HojaCmBx.Text & "$A6:P150]") cargaExcel() '<-- esto solo me carga informacion que ay en unas celdas a unos TextBox Catch ex As Exception MsgBox(ex.Message) End Try Else FillDataAutoma("SELECT *FROM [" & HojaCmBx.Text & "$A6:P150] WHERE TAG LIKE '%" & CodigoTxBx.Text.Trim & "%'") cargaExcel() End If End Sub Aqui con el dato que coloque en mi textbox buscara en el datagrid Try FillDataAutoma("SELECT *FROM [" & HojaCmBx.Text & "$A6:P150] WHERE TAG LIKE '%" & CodigoTxBx.Text.Trim & "%'") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, Text) End Try
otra opción que tengo es que me cargue en un listbox las hojas donde se encuentra el dato que estoy buscando y que al seleccionar la hoja q este en el listbox lo cargue al datagrid , mi problema es buscar el dato en todas las hojas...
Tengo mas o ideas pero no me sale la codificación
podria usar algun metodo de iteracion ya sean For o While que esten recorriendo las hojas y mientras encuentren datos lo carguen al datadrid, o que me muestra la hoja en q se encuentre el dato en un listbox.. Nose son solo ideas que nose como implementar...