Visual Basic - Enviar datod de VB a Excel

Life is soft - evento anual de software empresarial
 
Vista:

Enviar datod de VB a Excel

Publicado por Andres Escobar (63 intervenciones) el 03/06/2002 02:09:49
Hola, necesito enviar una serie de datos Excel porque necesito crear un reporte algo complejo, a alli necesito correr una macro pero debo hacer esto sin que se me habra el programa(Excel) y luego imprimir dicho proceso, la verda es que no tengo ni idea de como hacerlo, el que me pueda colaborar Dios se la ha de pagar
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

RE:Enviar datod de VB a Excel

Publicado por sinatra (24 intervenciones) el 03/06/2002 16:58:34
Teniendo una referencia (Proyecto - Referencias) a la clase Microsoft Excel nosequé 9.0, puedes usar este código. De todos modos te enviaré el proyecto al correo.

Espero te sirva.

Private Sub CargaDocumento(Nombre As String)
Dim wsheet As Excel.Worksheet

Set objExcel = New Excel.Application
objExcel.Workbooks.Add Nombre

Set wsheet = objExcel.Workbooks(1).Worksheets(1)

' ** Este sería el código de la macro
' Range("A1:B5").Select
' With Selection.Font
' .Name = "Lucida Handwriting"
' .Size = 10
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .ColorIndex = xlAutomatic
' End With

' ** esta es la macro ligeramente modificada
' para que funcione en Visual Basic
With wsheet.Range("A1:B5").Font
.Name = "Lucida Handwriting"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
objExcel.Workbooks(1).Close
End Sub
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