Problema VB ed Excel

[nitrodriver]

Ho questo problema: inserendo in alcune textbox dei valori (numeri) che vengono poi inviati in determinate celle di un foglio excel, in quest'ultimo nn funzionano più operazioni come ad esempio la somma (nel caso in cui i numeri da sommare siano fra quelli modificati attraverso VB. Gli altri invece continuano a funzionare).

Mi sapete dire come posso risolvere questo inconveniente?

Se avete bisogno di chiarimenti sul problema (nn so se sono stato chiaro) ditemi pure che vi spiego il meglio possibile!

Grazie milleee!

[Gigi84]

Forse perchè insrisci i numeri ed Excel te li mette come stringhe??
prova a vedere..
altrimenti prima di iniziare a scrivere nel foglio imposti li formato delle celle come numero..

con che istruzione scrivi nelle celle??

Ciao!!

[nitrodriver]

come faccio a capire se la interpreta come una stringa?

il comando che ho usato è questo:

Private Sub Command1_Click()
'aggiorna
Dim xlAppl As Object
Dim xlWorksheet

Set xlAppl = CreateObject("excel.application")
Set xlWorksheet = GetObject("c:\NOMECARTELLA\NOMEFILE.xls")

xlWorksheet.Sheets("Foglio1").Range("C1").Value = Text1
xlWorksheet.Sheets("Foglio1").Range("C2").Value = Text2
xlWorksheet.Sheets("Foglio1").Range("C3").Value = Text3
xlWorksheet.Sheets("Foglio1").Range("C4").Value = Text4

xlWorksheet.save
xlAppl.quit
Unload Me

End Sub

Mi sai aiutare?

Grazie mille!

[cek]

Così al volo mi sembra che sia questo il metodo per risolvere il tuo problema.

xlWorksheet.Sheets("Foglio1").Range("C1").Value = val(Text1)
xlWorksheet.Sheets("Foglio1").Range("C2").Value = val(Text2)
xlWorksheet.Sheets("Foglio1").Range("C3").Value = val(Text3)
xlWorksheet.Sheets("Foglio1").Range("C4").Value = val(Text4)

Bye-Bye

[nitrodriver]

Grazie mille!

[cek]

Se hai ancora bisogno fai un "fischio"