Excel

05/10/2004 - 19:37 por Zorry | Informe spam
Hola, Alguien podria decirme como conectarme a Excel 2003
y abrir un workbook porque puedo abrir excel como
aplicacion pero no logro abrir un libro.

Gracias

Preguntas similare

Leer las respuestas

#1 ObiWan
05/10/2004 - 22:42 | Informe spam
Dale una mirada a este link. El código está en C#, pero con poca dificultad
puedes migrarlo a VB.NET.

http://www.c-sharpcorner.com/winfor...ReadMG.asp

Atte.
OW

"Zorry" escribió en el mensaje
news:2a3d01c4ab01$f79a5460$
Hola, Alguien podria decirme como conectarme a Excel 2003
y abrir un workbook porque puedo abrir excel como
aplicacion pero no logro abrir un libro.

Gracias
Respuesta Responder a este mensaje
#2 Freddy Cáceres
06/10/2004 - 02:55 | Informe spam
un pequeño ejemplito:

Agrega una referencia COM a "Microsoft Excel xx.x Object
Library"

Dim miExcel As Excel.Application
Dim miLibro As Excel.Workbook
Dim miHoja As Excel.Worksheet

Me.Cursor = Cursors.WaitCursor

miExcel = CreateObject("Excel.Application")
miExcel.Workbooks.Open("Archivo.xls", , False)
miExcel.ScreenUpdating = False
miExcel.Visible = True
Dim indice As Integer

miHoja = miExcel.Worksheets("Hoja1")

CantFilas = 100

Do While Cont <= CantFilas
sMail = miHoja.Range(Chr(CInt(65 + indice)) & Cont).Value
If sMail <> "" Then
If xObj.EsEmail(sMail) = "NO" Then
miHoja.Range(Chr(CInt(65 + indice)) &
Cont).Interior.Color = QBColor(12)
'miHoja.Range(Chr(CInt(65 + (indice - 1))) & Cont).Value
= ""
End If
End If
Cont = Cont + 1
Loop
miExcel.ScreenUpdating = True
miExcel.Workbooks.Close()
miExcel.Quit()
Me.Cursor = Cursors.Default

Saludos
-
Freddy Cáceres
Santiago - Chile
Hola, Alguien podria decirme como conectarme a Excel 2003
y abrir un workbook porque puedo abrir excel como
aplicacion pero no logro abrir un libro.

Gracias
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida