| Pregunta: | 6021 - COPIAR CELDAS DE EXCEL A UNA GRILLA EN VB6 O VB5 |
| Autor: | Edwin Rengifo |
| HOla, mi problema es qu enecesito pasar unas celdas de una hoja de excel a una grilla en VB para poder manipular esos campos fuera de Excel ya sea para copiar a una base de datos o para realizar unos calculos o mostrar cierta información. | |
| Respuesta: | Xavi |
| Aqui te adjunto un codigo.
Lo que tienes que hacer, es exportar las celdas a una base de datos, y luego con el control data visualizar esa base de datos en la grilla. Este es el codigo que te puede servir: Set objExcel = New Excel.Application objExcel.Visible = True 'determina el numero de hojas que se mostrara en el Excel objExcel.SheetsInNewWorkbook = 1 'Crea el Libro objExcel.Workbooks.Add With objExcel.ActiveSheet .Range(.Cells(1, 1), .Cells(1, 8)).Borders.LineStyle = xlContinuous .Cells(3, 1) = "EMPRESA" .Cells(3, 2) = "REFERENCIA" .Cells(3, 3) = "CANTIDAD" .Cells(3, 4) = "CODIGO" .Cells(3, 5) = "REFERENCIA 1" .Cells(3, 6) = "REFERENCIA 2" .Cells(3, 7) = "PEDIDO" .Cells(3, 8) = "CLIENTE" .Range(.Cells(3, 1), .Cells(3, 8)).Font.Bold = True .Columns("C").HorizontalAlignment = xlHAlignRight .Columns("D").HorizontalAlignment = xlHAlignRight .Columns("A").ColumnWidth = 30 .Columns("B").ColumnWidth = 30 .Columns("C").ColumnWidth = 9 .Columns("E").ColumnWidth = 30 .Columns("F").ColumnWidth = 30 .Columns("H").ColumnWidth = 25 End With Espero que te sirva. | |