Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Uso di ScreenUpdating

0 views
Skip to first unread message

Pico1965

unread,
Oct 23, 2007, 2:09:04 PM10/23/07
to
Ciao a tutti.
Un altro quesito:
in una macro ho scritto (tra l'altro) il seguente codice:
[...]
Application.ScreenUpdating = False
Workbooks.Open Filename:="ciccio.xls"
[...]

In pratica non voglio fare vedere che si apre il foglio ciccio ed la
funzione dovrebbe essere proprio:
Application.ScreenUpdating = False

però non funziona.
Come posso risolvere ?
P.S. Excel 2000

Grazie

Pico1965

unread,
Oct 23, 2007, 2:17:05 PM10/23/07
to
Ciao a tutti

In una macro ho la necessità dinon fare vedere il file ciccio.xls che
si apre.
[...]
Application.ScreenUpdating= false
Workbooks.open Filename:= Ciccio.xls
[...]

Manco a dirlo che il file ciccio è ben visibile all'esecuzione.

Qualche soluzione ?

Grazie

Mauro Gamberini

unread,
Oct 24, 2007, 3:10:58 AM10/24/07
to
in una macro ho scritto (tra l'altro) il seguente codice:
[...]
Application.ScreenUpdating = False
Workbooks.Open Filename:="ciccio.xls"
[...]

In pratica non voglio fare vedere che si apre il foglio ciccio ed la
funzione dovrebbe essere proprio:
Application.ScreenUpdating = False

perň non funziona.


Come posso risolvere ?
P.S. Excel 2000

*************************************************

Non aprire piů thread per lo stesso argomento.

Dim objExcel As Object
Dim objWorkbook As Object
Dim objWorksheet As Object

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Ciccio.xls")
Set objWorksheet = objWorkbook.WorkSheets("Foglio2")

'objExcel.Visible = True
'objExcel.Visible = False

With objWorksheet
.Cells(1, 1).Value = "Pippo"
.Cells(1, 2).Value = "Pluto"
.PrintOut
End With

objWorkbook.Saved = True

objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

Modifica e/o aggiungi ciň che ti serve

--
---------------------------
Mauro Gamberini
http://www.riolab.org/


0 new messages