Cañería secundaria pública ()
oXLApp dévil como Excel.Application
oXLBook dévil como Excel.Workbook
Fijar el oXLApp = nuevo Excel.Application
oXLApp.Visible = verdad
Fijar el oXLBook = oXLApp.Workbooks.Open (“c:\Book1.xls ") 'abren un libro de trabajo existente
oXLBook de FindValue
oXLBook.Close falso
oXLApp.Quit
Submarino del extremo
FindValue secundario público (xlWorkbook de ByRef como Excel.Workbook)
'V dévil como objeto
V dévil como variante
X dévil como número entero
Columna dévil como número entero
Xlsheet dévil como Excel.Worksheet
Fijar el xlsheet = xlWorkbook.Sheets.Item (1)
Columna = 3
v = 10
Debug.Print “que mira en columna” y CStr (columna) y “para el valor: ” Y CStr (v)
Con el xlsheet
. Activar
. Células (1, 1).End (Excel.XlDirection.xlDown). Selecto
x = xlsheet. Application.ActiveCell.Row
Mientras que (x > 1)
Si (. Células (x, columna). Valor = v) después
Valor encontrado de Debug.Print “: ” + CStr (v)
'. Filas (x + 1).Insert (cambio: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
. Filas (cambio x + 1).Insert: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
x = 1
'puesto aquí para ver cómo está trabajando
Debug.Print. Células (x, columna). Valor
Terminar si
x = x - 1
Wend
Terminar con
Terminar el submarino
|