Newsgroup: it.comp.appl.access
Titolo: Altro pulsante di comando:

Ho creato un ALTRO pulsante di comando in una maschera in Access 2000.
Vorrei che
premendo questo pulsante, si aprisse automaticamente un file creato
precedentemente con Excel 2000. Mi descrivereste nel
dettaglio come fare?
Grazie č molto importante,
Anna Maria

Prova cosě..
Option Compare Database
Option Explicit
Private Sub Comando3_Click()
On Error GoTo Err_Comando3_Click
  Dim MyXL As Object
  Dim ExcelWasNotRunning As Boolean
  Set MyXL = GetObject(, "Excel.Application")
  Set MyXL = GetObject("c:\nomefile.xls")
   MyXL.Application.Visible = True
   MyXL.Parent.Windows(1).Visible = True
Exit_Comando3_Click:
    Exit Sub
Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click
End Sub
Ciao Tore.
Anna Maria ha scritto:


:-( Non riesco a farlo funzionare, ti dico cosa ho fatto:
Al posto di comando3 ovviamente ho messo il numero del mio comando.
Ho inserito il percorso esatto del file.xls da aprie.
All'interno della routine ho fatto menu-strumenti-riferimenti e ho
selezionato Microsoft Excel 9.0 Object Library.
Poi ho chiuso e salvato il tutto.
Quando sono andata a premere il pulsante, mi è comparso il messaggio: Il
componente Activex non è in grado di creare l'oggetto.
Grazie per un ulteriore aiuto,
AM


 ha scritto nel messaggio
news:PrI45.265204$VM3.2...@news.infostrada.it...

Prova con:
  Dim MyXL As Excel.Application
  Set MyXL = CreateObject("Excel.Application")
  MyXL.Workbooks.Open "c:\nomefile.xls"
  MyXL.Visible = True
Ciao.

GRAZIE!!!! Funziona perfettamente!
Sapresti dirmi la Routine anche per un file da aprire in Word? La situazione
è la stessa. Avevo scritto, ma non mi ha risposto nessuno.
Ancora grazie,
Anna Maria



Ok, eccola:
Dim oApp As Word.Application
Set oApp = CreateObject("Word.application")
oApp.Documents.Open ("d:\documenti\supporto.doc")
oApp.Visible = True
Ciao.
P.S. A scanso di equivoci, ricordati di chiudere gli oggetti aperti e
impostare le variabili a Nothing:
oApp.Quit
Set oApp = Nothing
Ari-Ciao.

 Set oApp = Nothing
Ho provato, ma quando aprivo il file mi si richiudeva subito. Cosě ho
pensato di lasciare come sopra. Idem ho fatto per il pulsante di Excel. MA č
importante impostare le variabili a Nothing e chiudere gli oggetti aperti
oppure no? Io i file sia di
Excel che di Word, una volta premuto il pulsante, li apro, li modifico e li
salvo regolarmente. C'č un
motivo particolare per il quale dovrei aggiungere quei comandi?
Grazie,
Anna Maria

 ha scritto nel messaggio
news:i0665.300042$VM3.2...@news.infostrada.it...

Se ti dava errore controlla se hai inserito nei riferimenti la libreria di
Word; se dichiari la variabile oggetto come Word.Application (nel caso di
Word, Excel per il caso precedente) invece del "generico" Object hai subito
a disposizione tutti i metodi e proprietŕ dell'oggetto a cui fai
riferimento.
Eh! Eh! Scusa se sorrido; ma io non sapendo l'utilizzo che ne facevi delle
istruzioni e ti ho voluto indicare anche il metodo via codice per chiudere
l'oggetto (oApp.Quit) e rilasciare la memoria (Set oApp = Nothing) dallo
spazio allocato; maggiori dettagli li trovi nell'help alla voce Nothing...
Ciao.

 spazio allocato; maggiori dettagli li trovi nell'help alla voce Nothing...
GRAZIE, mi sei stato di grande aiuto.
Anna Maria