Newsgroup: it.comp.lang.visual-basic
Titolo: Help ! VB <---> Excel

Salve a tutti !
Sono un principiante in VB, anche se mi aiuta qualche conoscenza di
Quickbasic.
Ho letto sulla guida che visual basic (ho la versione 6) e' in grado
di interagire in modalita' OLE con oggetti esterni ed anche i fogli
excel.
Sto cercando di creare un form semplicissimo che apra un foglio excel
vuoto, inserisca qualche dato nelle celle (e poi eventualmente salvi
il foglio e lo riapra per estrarre i dati)
Il comando chiave dovrebbe essere del tipo 
nomedelfoglio.Cells( i , j).Value = valorenumerico
ma non riesco perche' sembra non riconoscere il comando Cells
Dove sbaglio ?
Qualche anima pia e' disposta a spiegarmi passo passo ?
Ancora una domanda : per invertire una matrice in visual basic esiste
qualche modo rapido oppure dev'essere calcolata in modo alquanto
scomodo, elemento per elemento ?
Grazie 1000 per l'attenzione e Auguroni di Buone Feste a tutti !!
-
Fabrox

...
Ho visto altri posts simili, cerchero' di leggere le risposte gia'
postate !
Grazie lo stesso e scusatemi :-)
-
Fabrox

Salve a tutti !
Sto cercando di creare un form semplicissimo che apra un foglio excel
vuoto, inserisca qualche dato nelle celle (e poi eventualmente salvi
il foglio e lo riapra per estrarre i dati)
Premetto che ho appena letto una marea di threads inerenti a questo
argomento, ma le risposte mi sono sembrate alquanto frammentarie, e
nonostante i vari tentativi non sono venuto a capo di nulla purtroppo;
ho solo collezionato errori di vario genere e tanta  confusione...
ad esempio :
sub Crea()
    Dim ExcelApp As Object
    Dim ExcelSheet As Object
    Set ExcelApp = CreateObject("Excel.Application")
    With ExcelApp
        .Visible = True
        .Workbooks.Add
        With .activeWorkbook
            Set ExcelSheet = .Worksheets.Add
        End With
    End With
    With ExcelSheet
        '.Application.Visible = True già fatto
        .Cells(1, 1).Value = Text1.Text
        .Cells(2, 1).Value = Text2.Text
        .Cells(3, 1).Formula = "=R1C1 + R2C1"
        Text3.Text = .Cells(3, 1)
        .SaveAs "C:\TEST.XLS"
    End With
    ExcelApp.Quit
    Set ExcelSheet = Nothing
    Set ExcelApp = Nothing
end sub
Eseguendo questa sub, appare la form1 grigia (e fin qui nulla di
sconvolgente) e nessuna traccia del file TEST.XLS appena salvato ...
(nemmeno aggiornando gestione risorse).
Beh, provo a fare un reset mentale e spero in un aiuto da parte
vostra.
Ipotizziamo di lavorare con un file "c:\documenti\matrix.xls"
(esistente o no, decidete voi)
Vorrei richiedere umilmente e cortesemente un programma in VB6
che crei/apra/modifichi/salvi un foglio excel introducendo i
valori/stringhe da un form.
ps : Vorrei anche chiedere come si fa a invertire matrici o eseguire
operazioni matriciali nel modo piu' rapido e' indolore.
Grazie 1000^2 per l'attenzione e Auguroni di Buone Feste a tutti !!
-
Fabrox

Salve a tutti !
Sto cercando di creare un form semplicissimo che apra un foglio excel
vuoto, inserisca qualche dato nelle celle (e poi eventualmente salvi
il foglio e lo riapra per estrarre i dati)
Premetto che ho appena letto una marea di threads inerenti a questo

ad esempio :






Grazie 1000^2 per l'attenzione e Auguroni di Buone Feste a tutti !!
-
Fabrox

^~Fabrox~^ ha scritto:

Non ho qui excel per verificare, ma, cosi' a naso, mi sembra che
dovresti salvare anche il workbook attivo.
Puoi trovare uno spunto qui:
INFO: Methods for Transferring Data to Excel from Visual Basic 
Q247412
http://support.microsoft.com/support/kb/articles/Q247/4/12.ASP
-- 
hth, hal


http://support.microsoft.com/support/kb/articles/Q247/4/12.ASP
Ti ringrazio molto ! :-)
Sul sito ho preso come modello questa sub (e funziona!)
Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   'Add data to cells of the first worksheet in the new workbook
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Last Name"
   oSheet.Range("B1").Value = "First Name"
   oSheet.Range("A1:B1").Font.Bold = True
   oSheet.Range("A2").Value = "Doe"
   oSheet.Range("B2").Value = "John"
   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
-
Fabrox