Newsgroup: it.comp.lang.visual-basic
Titolo: ?Dati da excel

Dovrei importare dei valori da un foglio Excel in dei textbox.
Ho scaricato da internet questo esempio che č simile a quello su MSDN ma non 
funziona.
Devo aggiungere qualche DLL nei riferimenti? se si quale?
Dim objExcel As Excel.Application   <== in questa riga mi da errore "Tipo 
definito dall'utente non definito"
Dim objWorkBook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet
    Set objExcel = CreateObject("Excel.application")
    objExcel.Workbooks.Open ("Percorso\File.xls") 'Apre il file.xls
    Set objWorkBook = objExcel.ActiveWorkbook
    Set objWorkSheet = objWorkBook.Worksheets(1)
    strcella= objExcelSheet.Range("A1").Value
 'chiudi e liberi la memoria
    objExcel.Quit
    Set objExcel = Nothing
Questo invece funziona ma alla riga objExcel.Quit, mi visualizza un msgbox 
che mi chiede se voglio salvare il foglio excel,
ma io non modifico niente, leggo solo i valori delle celle, č possibile non 
visualizzare la msgbox?
    Dim objExcel As Object
    Dim objWorkBook As Object
    Dim objWorkSheet As Object
    Set objExcel = CreateObject("Excel.application")
    objExcel.Workbooks.Open ("D:\Personale\Documenti\Fattura.xls") 'Apre il 
file.xls
    Set objWorkBook = objExcel.ActiveWorkbook
    Set objWorkSheet = objWorkBook.Worksheets(1)
    'qui legge i valori dalle celle interessate
    Me.Text1.Text = objWorkSheet.Range("K3").Value
    Me.Text2.Text = objWorkSheet.Range("C19").Value
    Me.Text3.Text = objWorkSheet.Range("K47").Value
    objExcel.Quit
    Set objExcel = Nothing
Grazie
Carmelo 

 visualizzare la msgbox?
Ci dovrebbe essere un Quit che non chiede la conferma, prova a guardare
nella guida al VBA


*In dei* starebbe per?
Hai una cartella di Excel, devi leggere dei dati
da una o più celle e portarli *in delle* TextBox
in Visual Basic?
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

Partito un coplo...
Se(se) le premesse sono Da Excel a VB:
Private Sub Command1_Click()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\tuoFile.xls")
    Set objWorksheet = objWorkbook.WorkSheets("tuoFoglio")
    With objWorksheet
        Text1.Text = .Cells(1, 1).Value = "Pippo"
        Text2.Text = .Cells(1, 2).Value = "Pluto"
    End With
    objWorkbook.Saved = True
    objExcel.Quit
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub


 *In dei* starebbe per?
"nei corpi di zeus e eva" :)
Lo chiederň al teologo del post piů sotto... :P
Ciao 


Ah, gli studi classici...


    End With
Bè, una copia e incolla mal riuscito...
With objWorksheet
       Text1.Text = .Cells(1, 1).Value
       Text2.Text = .Cells(1, 2).Value
End With


 in Visual Basic?
Mah... io ho sempre detto "un textbox", "un checkbox" che mi sembra più corretto
in quanto la parola "box" è maschile.
http://en.wiktionary.org/wiki/box#Italian
Come anche "una form"... è *UN* form, perché mai dovrebbe essere femminile?!
Forse qualche linguista potrebbe spiegarmelo... magari questo:
http://blogs.dotnethell.it/sandro/Si-dice-un-form-o-una-form__2828.aspx
Bye
Raf

 
http://blogs.dotnethell.it/sandro/Si-dice-un-form-o-una-form__2828.aspx
Io ho sempre inteso che fossero tutte femminili :)
una form, una checkbox, una textbox... perchè dovrebbero essere maschili?
(una forma/finestra, una casella da spuntare, una casella di testo)
Ciao 


Ho sempre interpretato cosě anch'io in linea di massima.
Mah...


 non visualizzare la msgbox?
c'e' la proprietà saved da impostare prima di chiudere il foglio.

 Mah...
Oh... si vede che ho una visione piuttosto maschilista dell'informatica! ;-)
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.


Se, se... vedi di non metterti a programmare al colosseo ;)
Ciao