Newsgroup: it.comp.lang.visual-basic
Titolo: [VB+Excel] caricare lo stesso foglio excel

Ciao a Tutti!!! 
Ho di nuovo un problema con il caricamento di un foglio excel :-(
La prima volta che scelgo il file excel tramite la commondialog, riesco a
caricare la datagrid con i valori del foglio excel. 
Ho un problema se riseleziono lo stesso file excel, perchè si genera un
errore: 
errore di run time 1004: 
impossibile accedere a 'listino_prezzo.xls' 
Perchè succede questo? 
Qualcuno mi potrebbe aiutare? 
Grazie mille in anticipo!!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 impossibile accedere a 'listino_prezzo.xls'
Quale riga di codice genera l'errore?
Il percorso del file è giusto?
Sicuro che il file non sia già aperto?
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

 Sicuro che il file non sia già aperto?
Si, il file non è aperto.



Prima cosa, riavvia il sistema.
A volte può capitare che anche se il file di excel è chiuso comunque per il
sistema risulti aperto (win98), più spesso questo si verifica quando il file
viene aperto in rete.
Poi...
Prova a fare un esperimento.
Copia il file in modo da dargli un altro nome e prova ad aprire la copia.


 Copia il file in modo da dargli un altro nome e prova ad aprire la copia.
Ho riavviato il sistema, ho fatto la copia e ho provato a caricare la copia
per 2 volte, ma continuo ad avere lo stesso problema!!!! :(
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Non è impostato il flag "sola lettura" vero?


 Non è impostato il flag "sola lettura" vero?
Credo di no. Da codice non imposto nulla.


 Credo di no. Da codice non imposto nulla.
Ho fatto un paio di prove da me, il tuo codice non da problemi...
Hai modo di mandarmi in mail il file che non ti viene aperto?
Sarei curioso di poterlo studiare...



La cosa piů importante č la parte in cui chiudi il file e rilasci tutti i
puntatori, dopo aver terminato di usarlo.
Posta anche quella e vediamo.
Ciao
Alberto

 Posta anche quella e vediamo.
Ecco il resto della sub:
Erase Elenco_Asterischi
I = 0
  Do While True
     I = I + 1
     Set CellaFoglioExcel = exWs.Cells(2, I)
     ReDim Preserve Elenco_Asterischi(I)
     If CellaFoglioExcel.Value = "Z" Or I > 100 Then
           Exit Do
     End If
     Elenco_Asterischi(I - 1) = CellaFoglioExcel.Value
  Loop
 
'chiude file
exWb.Close
'esce da exApp
exApp.Application.Quit
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CommonDialog1.FileName & ";" & _
"Extended Properties='Excel 8.0;';Persist Security Info=False"
 
Adodc1.RecordSource = "select * from `dati_listino$`"
Adodc1.Refresh
DataGrid1.ClearFields 
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
Set CellaFoglioExcel = Nothing
Set exWs = Nothing
Set exWb = Nothing
Set exApp = Nothing


 Sarei curioso di poterlo studiare...
Posso mandarti anche il file via email, ma il problema non è un
determinato file excel, qualunque file excel che ho nella mia cartella che
carico nella datagrid la prima volta funziona, ma la seconda volta se
provo a caricare lo stesso file genera errore, cosa che non succede se
dopo aver caricato un filex carico un filey.
Spero di essermi spiegata.


 Set exApp = Nothing
Chiudi correttamente excel, poi lo apri con Jet, poi distruggi correttamente
i puntatori.
Ma non disconnetti mai Jet dal file Excel.
Alberto

 dopo aver caricato un filex carico un filey.
Allora come dice AlbeV c'è qualcosa che non va nella chiusura, in sostanza
questi file li chiudi male...


 Ma non disconnetti mai Jet dal file Excel.
Come faccio a disconnettere Jet dal file Excel? 
Ma io poi non capisco perchè se carico un filey dopo aver caricato nella
datagrid un filex, il problema non si crea?  


 nella datagrid un filex, il problema non si crea?
Eh, scusa, ma se il file che viene tenuto bloccato da Jet è il file X,
perchè mai dovrebbe darti problemi il file Y?
Alberto
-- 
Santo cielo, Magnum, si può sapere cos'è questo baccano?
Higgins, posso spiegarle...
Credo non sia necessario.
Zeus, Apollo, a voi...

 perchč mai dovrebbe darti problemi il file Y?
Se č cosě hai ragione.


 duplicato, ma non mi funziona lo stesso....ho sbagliato?
Ma hai messo a nothing la ActiveConnection del recordset e poi l'hai chiusa
a parte?
Ciao
Alberto

 a parte?
Dunque ora ho messo a nothing l'ActiveConnection del recordset, ma non ho
capito, dove devo chiudere la connessione? Se la chiudo la griglia non si
riempie...sto creando qualche casino? :(


 griglia non si riempie...sto creando qualche casino? :(
Non è la prima volta che ho la sensazione che tu mi prenda per il culo.
Spero però che sia solo una sensazione.
Ho scritto: "se ne è parlato, con Clone funziona bene"
Quindi *se ne è parlato*.
Questo presuppone che tu abbia cercato con google il thread in cui si
spiegava come creare un recordset disconnesso.
Io per verificare l'ho fatto adesso, e la seconda risposta fornita inserendo
'disconnesso' come indizio è quella giusta.
Quindi, ci sono poche possibilità:
- Hai cercato, e non hai trovato. Avresti dovuto dire: "non ho trovato ciò
che dicevi..."
- Hai cercato, hai trovato, non hai capito. Avresti dovuto dire: "non ho
capito..."
- Non hai cercato. Beh, il problema è tuo, non mio.
Ciao
Alberto

 Alberto
Ciao!


 non lo fare, nessuno ti obbliga.
Vero.
Infatti eri già nel mio elenco degli hopeless, ma ho visto che stavate
andando fuori strada e pensavo di farti un piacere dandoti un indizio.
Non pensavo di doverti scrivere il codice.
Ciao
Alberto

 Non pensavo di doverti scrivere il codice.
Ti ripeto visto che ti pesa tanto aiutarmi e che sono una hopeless non lo
fare....
Ciao....Ciao
