Power Vb Help Me - Come aprire excel in visual basic

[alessandro_]

Ciao a tutti

ho bisogno di aprire un file di excel in una path specifica in visual basic (che mi si apra in primo piano with focus), qualcuno di Voi mi può aiutare??

esempio, realizzato x notepad e funzionante

id = shell("notepad C:\WINNT\Profiles\paperino.txt",1)

appactivate id

ma con excel ( invece di notepad ho inserito excel oppure microsoft excel come alcuni esempi che ho trovato...ma non funziona!)

cosa devo fare?

Grazie in anticipo a tutti

P.S.: dimenticavo...in caso possa servire... è uno scada che lavora su piattaforma win 2000 pro

Alessandro

Modificato: 8 febbraio 2005 da alessandro_

[Ospite bingobongo]

dim t as long

t = Shell("c:\programmi\microsoft office\office\excel "+"c:\mydir\myfile", vbMaximizedFocus)

niente altro!

a me funziona perfettamente.

[alessandro_]

Grazie mille bingobongo

ti sono debitore.

Ales

[alessandro_]

Ancora un problemino.....

Vorrei migliorare la soluzione riportata da bingobongo (se possibile)

ho notato che succede, in caso di una successiva esecuzione del codice in vb l'apertura di una seconda, terza e cosi via istanza di excel con la riproposizione dello stesso file.

Vorrei cercare di evitare ciò. come posso fare? (ho provato da win con doppio clic su di un file di excel oltre alla prima istanza in caso di successivi tentativi di apertura non apre più nulla).

Ecco mi piacerebbe ottenere lo stesso risultato.

Sempre grazie a chiunque mi possa aiutare.

Alessandro

[Ospite bingobongo]

l'appetito vien mangiando ?

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

Dim t As Long

t = FindWindow(vbNullString, nome_della_applicazione$)

If t <> 0 Then SendMessage t, WM_CLOSE, 0, 0

dove nome_della_applicazione$ contiene ciò che appare come nome applicazione nel task manager o giù di lì !

[alessandro_]

Dici Bene...eheheh (quindi c'è da aspettarsi ancora qualche variante .-) )

domani provo... intanto

Grazie ancora, di tutta la disponibilità.

alessandro