Visual Basic - abrir una hoja de calculo

Life is soft - evento anual de software empresarial
   
Vista:

abrir una hoja de calculo

Publicado por Maria (27 intervenciones) el 14/09/2007 10:19:52
Buenos dias a todos, a ver si me pueden ayudar, en mi aplicacion de visual basic 6.0 pongo esto Shell "C:\Archivos de programa\Microsoft Office\OFFICE11\excel.exe", vbNormalFocus
y me abre el excel, pero como hago para q me abra una pagina de calculo concreta q tengo ya creada q se llama prueba.xls. 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

Una manera

Publicado por Malandrin (47 intervenciones) el 14/09/2007 16:06:34
Para ello puedes usar la función ShellExecute de las APIs de Windows. En tu formulario declaras esto:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

y en donde necesites ejecutar el archivo:

' En la variable stArchivo guardas el nombre del archivo que quieres abrir
stArchivo = "C:\prueba.xls" ' Según la ruta y nombre de tu archivo.
Call ShellExecute(Me.hWnd, vbNullString, stArchivo, vbNullString, App.Path, 3)

Esto te puede servir para abrir cualquier archivo con la aplicación o programa al que esté "asociado" en Windows.
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

RE:abrir una hoja de calculo

Publicado por jose gomez hernandez (2 intervenciones) el 14/09/2007 23:27:53
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
Const SE_ERR_FNF = 2&
Const SE_ERR_PNF = 3&
Const SE_ERR_ACCESSDENIED = 5&
Const SE_ERR_OOM = 8&
Const SE_ERR_DLLNOTFOUND = 32&
Const SE_ERR_SHARE = 26&
Const SE_ERR_ASSOCINCOMPLETE = 27&
Const SE_ERR_DDETIMEOUT = 28&
Const SE_ERR_DDEFAIL = 29&
Const SE_ERR_DDEBUSY = 30&
Const SE_ERR_NOASSOC = 31&
Const ERROR_BAD_FORMAT = 11&

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "print", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function

rivate Sub Command1_Click()
Dim r As Long, msg As String
r = StartDoc("C:\R_Humanos\mayo9988477666.pdf")
' abre cualquier tipo de archivo
end sub

con este codigo se puede hacer lo que quieres checalo
hojla te pueda ayudar
atte:
gomez_lia
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