Newsgroup: it.comp.appl.access
Titolo: Exporta dati in Excel apri solo in lettura

Ciao al NG,
Ho un mdb che exporta dati in Excel utlizzando come modello " foglio1"
esistente.
In questo caso uso  Set oWks = oApp.Workbooks.Add(percFile &
"\edp.xls")
E da una form ho una select per Apri, Salva e stampa. Le ultime due
vanno benissimo, ma la prima
con
 Case Is = 1
  oApp.Visible = True
Apre il file e visualizza i dati ma pone il messaggio di Salvare, No e
Annulla quando chiudo la cartella di lavoro ripete le stessa cosa.
Ovviamente non è bella a vedersi e inoltre non devo Salvare e con No
esce dall'applicazione.
Vorrei invece che sia solo in lettura e senza messaggi.
Ho letto le proprietà ReadOnly, ActiveWorkbook.ReadOnlyRecommended =
True, ma nulla.
Grazie.
Felice Anno Nuovo 2007.
.Bat

 ha scritto nel messaggio 
news:1167509225....@k21g2000cwa.googlegroups.com...
Ciao al NG,


[risposta]
Imposta la Proprietà Saved a True dell'oggetto Workbook;
es.
oApp.ActiveWorkbook.Saved = True
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Ciao Sergio,
La proprietà Saved dell'oggetto Workbook mi chiude Excel.
In elenco una parte di codice.
percFile = Application.CurrentProject.Path
  Set oApp = CreateObject("Excel.Application")
    Set oWks = oApp.Workbooks.Add(percFile & "\edp.xls")
      .....
[ segue codice ]
  ' < --  scelta Opzione Excel
    Select Case Forms![frmopt]!cornice0
    ' < --  apro  file
    Case Is = 1
     oApp.Visible = True
    ' < -- salva con nome
    Case Is = 2
    Dim nomefile As String
    Dim ccopyFile As String
    oApp.Visible = False
    ccopyFile = InputBox("Inserire il nome", "Salva XLS")
   ' < - nomefile = InputBox("Salva con nome .XLS", "Salva Foglio")
    oWks.SaveAs (percFile & "\" & ccopyFile & "_" &
[Forms]![frm_main]![NUMERO_INTERNO] & ".xls")
    ' < -- View Print
    Case Is = 3
    oApp.Visible = False
    oApp.Worksheets("Aedp1").PrintOut
    oApp.ActiveWorkbook.Close savechanges:=False
        End Select
    ' -- fine >
In Case Is = 1
Vorrei aprire il foglio1 solo in lettura senza messaggi di controllo.
.Bat

 ha scritto nel messaggio 
news:1167744157.9...@v33g2000cwv.googlegroups.com...
Ciao Sergio,
La proprietą Saved dell'oggetto Workbook mi chiude Excel.
[risposta]
?!?
In elenco una parte di codice.
percFile = Application.CurrentProject.Path
  Set oApp = CreateObject("Excel.Application")
    Set oWks = oApp.Workbooks.Add(percFile & "\edp.xls")
      .....
[ segue codice ]
  ' < --  scelta Opzione Excel
    Select Case Forms![frmopt]!cornice0
    ' < --  apro  file
    Case Is = 1
     oApp.Visible = True
[risposta]
Qui non apri il file ma visualizzi l'applicazione con il file che hai gią 
aperto.
Casomai sposta la Set oWks... in questo Case:
...
    ' < --  apro  file
    Case Is = 1
    Set oWks = oApp.Workbooks.Add(percFile & "\edp.xls")
    oApp.Visible = True
...
Chiaramente tutte le altre opzioni dovrebbero controllare prima di eseguire 
le azioni la presenza o meno di cartelle (file) aperte.
    ' < -- salva con nome
    Case Is = 2
    Dim nomefile As String
    Dim ccopyFile As String
    oApp.Visible = False
    ccopyFile = InputBox("Inserire il nome", "Salva XLS")
   ' < - nomefile = InputBox("Salva con nome .XLS", "Salva Foglio")
    oWks.SaveAs (percFile & "\" & ccopyFile & "_" &
[Forms]![frm_main]![NUMERO_INTERNO] & ".xls")
    ' < -- View Print
    Case Is = 3
    oApp.Visible = False
    oApp.Worksheets("Aedp1").PrintOut
    oApp.ActiveWorkbook.Close savechanges:=False
        End Select
    ' -- fine >
In Case Is = 1
Vorrei aprire il foglio1 solo in lettura senza messaggi di controllo.
.Bat
[risposta]
Devi aprire il file impostando l'attributo IgnoreReadOnlyRecommended a true, 
come indicato nell'help; oppure indicando il parametro
ReadOnly a true, la cartella di lavoro verrą aperta in modalitą di sola 
lettura...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ho la risposta impossibile assegnare a una proprietà di sola lettura.
Dall'help non trovo l'attributo IgnoreReadOnlyRecommended
Ciao

 ha scritto nel messaggio 
news:1167771607.4...@s34g2000cwa.googlegroups.com...
Ho la risposta impossibile assegnare a una proprietą di sola lettura.
[risposta]
E' una frase marzulliana?
Dall'help non trovo l'attributo IgnoreReadOnlyRecommended
[risposta]
E' parte del metodo Open...
Ciao
[risposta]
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Se lo credi, ti rispondo di si. Anche se non ho mai visto una sua
trasmissione e non posso giudicare.
Lo so che fa parte del metodo Open, ma dall'help non trovo esempi, a
meno che il tuo Help è diverso dal mio.
Continuo a studiare e spero di farcela, ma se ho capito bene il metodo
Open in questo caso non mi serve perchè utilizzo il metodo Add.
All'inizio uso   : Set oWks = oApp.Workbooks.Add(percFile & "\edp.xls")
All'interno della Select in Case 1  inserire Workbooks.open
Filename:=(PercFile & "\edp.xls"), IgnoreReadOnlyRecommended:=true
non va bene, perchè il metodo Add  apre una nuova cartella di lavoro
dal modello edp.xls in edp1.xls.
O sbaglio?

 ha scritto nel messaggio 
news:1167820127.6...@v33g2000cwv.googlegroups.com...
Se lo credi, ti rispondo di si. Anche se non ho mai visto una sua
trasmissione e non posso giudicare.
[risposta]
Non conosci Gigi Marzullo?
http://www.pensieriparole.it/aforismi/autori/g/gigi-marzullo/pag1
Lo so che fa parte del metodo Open, ma dall'help non trovo esempi, a
meno che il tuo Help č diverso dal mio.
Continuo a studiare e spero di farcela, ma se ho capito bene il metodo
Open in questo caso non mi serve perchč utilizzo il metodo Add.
All'inizio uso   : Set oWks = oApp.Workbooks.Add(percFile & "\edp.xls")
All'interno della Select in Case 1  inserire Workbooks.open
Filename:=(PercFile & "\edp.xls"), IgnoreReadOnlyRecommended:=true
non va bene, perchč il metodo Add  apre una nuova cartella di lavoro
dal modello edp.xls in edp1.xls.
O sbaglio?
[risposta]
No non sbagli; io avevo capito che volevi aprire un file (gią esistente) in 
modalitą lettura, altrimenti non ha senso creare un nuovo file da un modello 
e non poterlo modificare.
A questo punto non so' che dirti; forse dovresti rivedere la sequenza logica 
delle operazioni...
Ciao.
-- 
Sergio MAZZA