Visual Basic.NET - Excel & Visual 2010

 
Vista:
sin imagen de perfil

Excel & Visual 2010

Publicado por Rodrigo (2 intervenciones) el 14/01/2014 16:18:33
Hola!

Soy nuevo en Visual Basic y mi inquietud es la siguiente:
Necesito crear una aplicación de escritorio que me permita leer/cargar varios archivos Excel 2010 (*.xlsx). De estos archivos necesito rescatar sólo algunas columnas y, en base a estas columnas, crear un nuevo archivo Excel y éste poder exportarlo.

Nota: los archivos a cargar pueden estar en cualquier parte del disco, por lo que necesito que al presionar el botón para cargar un archivo, sea como el botón examinar.

De antemano, muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Joel

Excel & Visual 2010

Publicado por Joel (7 intervenciones) el 17/01/2014 17:29:03
Dim abrir As New OpenFileDialog
abrir.Filter = "Archivos Excel 2010 (*.xlsx)|*.xlsx"
If abrir.ShowDialog = Windows.Forms.DialogResult.OK Then
'Aqui se escribe codigo si selecciono un archivo excel

End If


//Para utilizar Excel en Visual Studio se tiene que importar la referencia
Proyecto/Agregar Referencia/.Net/Microsoft.Office.Interop.Excel

Dim xExcel As Excel.Application
Dim xLibro As Excel.Workbook
Dim xHoja As Excel.Worksheet

Try
xExcel = DirectCast(CreateObject("Excel.Application"), Excel.Application)
xExcel.ErrorCheckingOptions.NumberAsText = False

Me.Cursor = Cursors.WaitCursor

xLibro = xExcel.Workbooks.Add
xHoja = xExcel.Sheets.Add

xHoja.Name = "Ejemplo"

With xHoja.Range("B4:I4")
.Merge()
.VerticalAlignment = 1
.Font.Bold = True
.Cells.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlContinuous
.Value = "Nombre"
End With

xExcel.Visible = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Excel & Visual 2010

Publicado por Rodrigo (2 intervenciones) el 17/01/2014 18:18:10
Vale, lo voy a probar a ver cómo me va! Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar