Newsgroup: it.comp.lang.visual-basic
Titolo: COsa ho sbagliato?

ciao a tutti , premetto che sono abbastanza un novellino,ed ho gia' cercato
su MSDN e su internet,
dopo ore e ore di prove non sono riuscito a risolvere il mio problema..
Problema : volevo creare una sub che ogni volta attivata scriveva un dato
(value.text) in una casella di un foglio excel (allocata dinamicamente )poi
salvava il foglio e lo chiudeva
quello scritto sotto e' il codice della mia sub , qualcuno sa dirmi cosa
c'e' che non va ? il foglio viene aperto viene scritto il dato nella casella
viene salvato e viene chiuso , poi pero' al secondo ciclo mi da un errore
sulla riga "ExcelApp.Cells.Value = Value.Text"
private Sub leggi_dato()
            xx = xx + 1
            Dim ExcelApp As New Excel.Application
            Dim ValoreDiRitorno As Variant
            ExcelApp.Workbooks.Open
"C:\WINDOWS\Desktop\16-12-2002\esempio.xls"
            ExcelApp.Cells(yy, xx).Select ' seleziono la cella A1
            ExcelApp.Cells.Value = Value.Text
            ActiveCell.Value = Value.Text ' scrivo nella cella attiva il
primo argomento passato alla macro
            ExcelApp.Visible = False
            ActiveWindow.Close (True)
                Dim sngTempo As Single ' Attende 1 secondi.
                sngTempo = Timer ' Attende 1 secondi.
                Do While Timer - sngTempo < 5 ' Attende 5 secondi.
                Loop ' Attende 1 secondi.
            'Read_Click
End Sub
grazie a tutti quelli che mi daranno una mano o almeno hanno perso 2 minuti
a leggere la mia mail.

seldon79 ha scritto:

Ehm, veramente di minuti ne abbiamo "persi" almeno 2*5, oggi *6.
Come vedi (l'hai visto?) nessono ha risposto al tuo quesito. Probabilmente
non hai fornito informazioni sufficienti (per esempio non ci dici che errore
genera la riga da te citata), oppure (è certamente il mio caso) non abbiamo,
qui, le conoscenze sufficienti.
Ti consiglierei microsoft.public.it.office.excel
Comunque, basandomi esclusivamente sulle tue parole, ti chiederei: "da dove
attiva Value.Text?", visto che non è un argomento della sub, nè, mi pare, un
nome.proprietà che possa far pensare a qualcosa di globale, esternamente
definito?

Dal "basso" della mia esperienza di programmazione in VB:
Sub WorkWithExcel
   Dim ExcelApp As Object
   On Error GoTo CreateObj
   Set ExcelApp = GetObject( "Excel.Application" );
   GoTo UseExcel
   CreateObj:
   Set ExcelApp = CreateObject( "Excel.Application" );
   UseExcel:
    ' Qui metti le tue istruzioni
End Sub
Con questa routine( o una simile ) non dovresti avere problemi.
Ciao
Andrea

 sulla riga "ExcelApp.Cells.Value = Value.Text"
Quale secondo ciclo?
Se non ne vieni fuori (mi sembra strano) posta uno stralcio di codice
"compilabile" che possa essere provato con un copia-incolla dal tuo post e
che provochi l'errore.
Ciao

 definito?
value.text e' il valore associato ad una casella di testo in un'altra sub,
la cosa strana e' che quando il programma parte e arriva a questa sub fa
tutto quello che deve fare se pero' ci ripassa mi da errore (non mi ricordo
bene l'errore pero' diceva qualcosa del tipo : value.text non e' un object)

 bene l'errore pero' diceva qualcosa del tipo : value.text non e' un
object)
Appunto: Non vede Value.Text perchč č (o cosě a me pare) esterno alla Sub e
non globalmente disponibile.

 ha scritto nel messaggio
news:au5gg8$4ic0o$1...@ID-174464.news.dfncis.de...


 value.text?
Non ne ho la minima idea.
Ti consiglierei di riprodurre l'errore e rilevarne _esattamente_ il codice e
il messaggio esplicativo.

 ha scritto nel messaggio
news:au5h6l$4nejc$1...@ID-174464.news.dfncis.de...
