Visual Basic 6 - Ciclo per riempire tabella di excell

Forum - Visual Basic 6 - Ciclo per riempire tabella di excell

mastergov (Normal User)
Rookie

Messaggi: 22
Iscritto: 26/03/2010

Postato alle 1:11
Martedì, 13/04/2010

Ciao ragazzi mi potreste dire dove sbaglio ?!? ho un database con tutti i dati e un foglio di excell da riempire tramite un ciclo :

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
Dim descrizione As String
Dim articolo As String
Dim totale As Double
Dim varmese As String
Dim totannuo As Double
 
If Combo1.Text = "Tutti" Then
    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & App.Path & "\resoconto.mdb"
 
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open stringa
    rs.Open "select * from clienti", cn, 3, 3
 
     
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(App.Path & "\cartel1.xlsx")
   
    
    Set oSheet = oBook.Worksheets(1)
    
 Dim r As Integer
 
    r = 8
    Do
        With oSheet
            .Range(1, r).Value = rs("Data").Value
            .Cells(2, r).Value = rs("cliente").Value
            .Cells(4, r).Value = rs("articolo").Value
            .Cells(6, r).Value = rs("totale").Value
            r = r + 1
            rs.MoveNext
        
       End With
          
    
    Loop Until rs.EOF = True
    
    
            oBook.SaveAs App.Path & "\cartel1.xlsx"
            oExcel.Application.Visible = True       'VISUALIZZA FILE EXCEL
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End If
 
End Sub

non riesco a capire xchè non mi riempie le celle dove sbaglio!??

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 9:43
Martedì, 13/04/2010

Cominciamo con questa

.Range(1, r).Value = rs("Data").Value

Doveva essere così

.Cells(1, r).Value = rs("Data").Value

P.S. Excel con una sola l ...

Ultima modifica effettuata da nessuno il 13/04/2010 alle 9:44

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

mastergov (Normal User)
Rookie

Messaggi: 22
Iscritto: 26/03/2010

Postato alle 23:57
Martedì, 13/04/2010

ho risolto grazie :>

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 0:31
Mercoledì, 14/04/2010

Era quello che ti avevo detto?