excel e vb

[Drocchia]

aspetta c'è un errore ragiona un'attimo...
allora entra nel secondo ciclo e nn esci finche nn recupera il ....ah no va bhe in teoria spetta provo!!

[Drocchia]

è perfetto cancella tutto..nn capisco perchè da te nn va...certo cancella solo il testo...
quindi nn resetta
1.Lqa formattazione
2. Le immagini
3. I bordi!

Un problema...ci mette circa 1 minuto prima di aprire il foglio di excell!!

Chi sa se esiste un parametro in excell per resettare tutto il foglio!! E se crei un news foglio??

[amodio]

si un modo ci sarebbe ed anche piu semplice

devo riuscire a selezionare l'intera area 100 x 100
o quanto è grande il foglio(consigliato)

e cancellare tutto(magaricon un sendkeys)

ma non so come

[Drocchia]

bella idea!!

Bisognerebbe trovare una lista delle funzioni del riferimento excell!

[amodio]

lo ho trovato...
appexcel.range(foglioexcel.cells(2,1),foglioexcel. cells(5,3)entirecolumn.select

ti seleziona tutte le prima 3 colonne
ma per cancellare?

[Drocchia]

ActiveCell.Value = ""

questa seguita da il codice da te riporato dovrebbe andare bene!

http://www.redangel.it/articoli/arti...0&cat=12&pag=1

una guida nn ecezzionale ma utile!

[amodio]

ah bene
riprovo stasera

[amodio]

no non funziona

ho provato perfino con activecells.clear
ma no non va
pero adesso continuo a provare con entirecolumn.select

[vonkranz]

Te lo riporto anche qui il codice per cancellare il contenuto di una selezione in un foglio di XL xke' non so' se sull'altro 3d (dello con DarkblOOd) l'hai visto.

Dim xlApp      As Excel.Application
Dim xlWB       As Excel.Workbook
Dim xlWS       As Excel.Worksheet

'.....
   Set xlApp = New Excel.Application
   xlApp.Visible = False
   xlApp.DisplayAlerts = False
   Set xlWB = xlApp.Workbooks.Open("c:\test1.xls")
   Set xlWS = xlWB.Worksheets.Add
   For Each xlRng In xlWS.Range("A110")
       xlRng.Value = ""
   Next xlRng
   xlWB.Close True, "c:\test1.xls"
   Set xlWS = Nothing
   Set xlWB = Nothing
   xlApp.Quit
   Set xlApp = Nothing

Ciao.