abrir un archivo excel para escritura

17/04/2006 - 18:50 por amigo | Informe spam
Hola a todos:

Tengo este codigo:

Sub XLS()
Dim oExcel As Excel.ApplicationClass
Dim oBook As Excel.WorkbookClass
Dim oBooks As Excel.Workbooks
Dim xlSheet As Excel.Worksheets
Try
'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oBooks.Open("C:\prueba.xls")
xlSheet = oBook.Sheets(1) '< aqui se cae
xlSheet.cells(2, 2).value = "1"

y no puedo abrir un archivo de excel para poder escribirlo datos en las
celdas
gracias por su atencion

Amigo

Preguntas similare

Leer las respuestas

#1 Angel. E. Ruiz. P
17/04/2006 - 19:21 | Informe spam
Amigo revisa este excelente ejemplo:

http://www.microsoft.com/spanish/ms...art164.asp

Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"
"amigo" escribió en el mensaje
news:%23H88$
Hola a todos:

Tengo este codigo:

Sub XLS()
Dim oExcel As Excel.ApplicationClass
Dim oBook As Excel.WorkbookClass
Dim oBooks As Excel.Workbooks
Dim xlSheet As Excel.Worksheets
Try
'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oBooks.Open("C:\prueba.xls")
xlSheet = oBook.Sheets(1) '< aqui se cae
xlSheet.cells(2, 2).value = "1"

y no puedo abrir un archivo de excel para poder escribirlo datos en las
celdas
gracias por su atencion

Amigo



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