Lanzar excel desde eVB

26/01/2004 - 22:05 por Antonio Sánchez | Informe spam
Hola, soy nuevo en eVB y necesito saber si es posible
lanzar una hoja excel por software.

Tambien necesito saber si es posible cambiar una celda de
una hoja excel por programa. He probado con:
oExcel = CreateObject("Excel.sheet")
y el mensaje es que no puede crear el objeto.

Un saludo.
 

Leer las respuestas

#1 César A. Fong Espinola
31/01/2004 - 01:45 | Informe spam
si puedes lanzar una aplicación desde evb debes usar el aip createprocess
lo que si no puedes es instanciarlo desde evb

Option Explicit

Declare Function CreateProcess Lib "Coredll" Alias "CreateProcessW" (ByVal
lpApplicationName As String, ByVal lpCommandLine As String, ByVal
lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal
bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment
As Long, ByVal lpCurrentDirectory As Long, ByVal lpStartupInfo As Long,
ByVal lpProcessInformation As String) As Long
Declare Function GetLastError Lib "Coredll" () As Long
Declare Function CloseHandle Lib "Coredll" (ByVal hObject As Long) As Long

Function Shell(ByVal Application As String, ByVal Parameters As String) As
Long


Dim lsPI As String, llResult As Long, lhProcess As Long, lhThread As Long

lsPI = LongToBytes(0) & LongToBytes(0) & LongToBytes(0) & LongToBytes(0)
llResult = CreateProcess(Application, Parameters, 0, 0, 0, 0, 0, 0, 0,
lsPI)
If llResult <> 0 Then
lhThread = BytesToLong(MidB(lsPI, 5, 4))
Call CloseHandle(lhThread)
lhProcess = BytesToLong(MidB(lsPI, 1, 4))
Call CloseHandle(lhProcess)
llResult = 0
Else
llResult = GetLastError()
If llResult = 0 Then llResult = -1
End If
Shell = llResult

End Function


César

"Antonio Sánchez" escribió en el
mensaje news:4da101c3e450$12e06bc0$
Hola, soy nuevo en eVB y necesito saber si es posible
lanzar una hoja excel por software.

Tambien necesito saber si es posible cambiar una celda de
una hoja excel por programa. He probado con:
oExcel = CreateObject("Excel.sheet")
y el mensaje es que no puede crear el objeto.

Un saludo.

Preguntas similares