PDA

Visualizza la versione completa : Problema VB ed Excel


nitrodriver
17-11-2002, 11:17
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!

:ciauz:

Gigi84
17-11-2002, 14:56
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!!

:ciauz: :ciauz:

nitrodriver
17-11-2002, 16:43
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!

:ciauz:

cek
18-11-2002, 07:56
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
18-11-2002, 21:23
Grazie mille!

:ciauz:

cek
18-11-2002, 22:05
Se hai ancora bisogno fai un "fischio";)

Loading