+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 5 su 5

esportazione dati da un OLE Excel ad un foglio Excel

  1. #1
    dartpeppe non  in linea Novello
    ciao a tutti

    ho un problema nel trasferire dei dati

    in un form ho un oggetto OLE Excel.Sheet.8

    Dim arrData(1 To 29, 1 To 18) As Variant
      
      Set obook = OLE1.object
       Set oSheet = obook.Sheets(1)
       
     For i = 1 To 5
          For j = 1 To 5        
     
      y = i^2
      arrData(i, j) = y
    
     oSheet.Range("a1:e5").Value = arrData
    
    next j
    next i
    
    a questo punto vorrei creare un xls ed inserirci questi dati

    non riesco ad esportarli
    ho pensato a qualcosa del genere

    Dim Riga As Long, Colonna As Long
            
      'Creazione e visualizzazione di Excel
      Set ExcelApp = CreateObject("Excel.Application")
      ExcelApp.Visible = True
      
      'Apertura di una cartella di lavoro vuota
      ExcelApp.Workbooks.Add
        
      'Creazione e impostazione del nome per un nuovo foglio
      Set wsFoglio = ExcelApp.Workbooks(1).Worksheets.Add
      wsFoglio.Name = "foglio risultati"
      
      'Copia dei dati nel foglio Excel appena creato
       Dim i As Long, tao As Long
     
         For riga = 1 To 5 Step 1
        For colonna = 1 To 5 Step 1
          
      wsFoglio.Cells(riga, colonna).Value = arrData(i, j)
    
       Next colonna
       Next riga
    
    l'errore sta di certo nella riga
    wsFoglio.Cells(riga, colonna).Value = arrData(riga, colonna)

    Nota: ovviamente questa routine inserita nella precedente

    cosa devo mettere??
    ho consultato diversi esempi ma non mi sono stati d'aiuto
    grazie a tutti per qualsiasi dritta
    bye

  2. #2
    L'avatar di gibra
    gibra non  in linea Very Important Person

  3. #3
    dartpeppe non  in linea Novello
    ciao Gibra
    ci ho giocato per diverse ore
    non ricordo cosa ho spostato ma ora non mi da nessun errore ma neanche mi scrive nulla sul nuovo foglio excel creato
    vorrei mandarti i file in allegato ma non so come si fa
    comunque sul form ci sono 2 command ed un ole1 tipo foglio excel

    Private Sub Command1_Click()
    Dim arrData(1 To 5, 1 To 5) As Variant
      
      Set obook = OLE1.object
       Set oSheet = obook.Sheets(1)
       
     For i = 1 To 5
          For j = 1 To 5
     
      y = i ^ 2 + j
      arrData(i, j) = y
    
     oSheet.Range("a1:e5").Value = arrData
    
    Next j
    Next i
    End Sub
    
    Private Sub Command2_Click()
    Dim Riga As Long, Colonna As Long
    Dim arrData(1 To 5, 1 To 5) As Variant
      
      Set obook = OLE1.object
       Set oSheet = obook.Sheets(1)
       
      'Creazione e visualizzazione di Excel
      Set ExcelApp = CreateObject("Excel.Application")
      ExcelApp.Visible = True
      
      'Apertura di una cartella di lavoro vuota
      ExcelApp.Workbooks.Add
        
      'Creazione e impostazione del nome per un nuovo foglio
      Set wsFoglio = ExcelApp.Workbooks(1).Worksheets.Add
      wsFoglio.Name = "foglio risultati"
      
      'Copia dei dati nel foglio Excel appena creato
       Dim i As Long, tao As Long
     
         For Riga = 1 To 5 Step 1
        For Colonna = 1 To 5 Step 1
          
      wsFoglio.Cells(Riga, Colonna).Value = arrData(Riga, Colonna)
    
       Next Colonna
       Next Riga
       
      oSheet.Range("a1:e5").Value = arrData
    End Sub
    
    quando premo command1 mi riempie il foglio integrato nell'ol

    poi con command2 mi apre excel ma non ci inserisce i dati

    proprio non so cosa fare e neanche trovo nulla in forum e guide

    ti prego aiutami altrimenti rischio di passarci un'altra nottata
    grazie

  4. #4
    L'avatar di IceCube_MD
    IceCube_MD non  in linea Scolaretto
    E' molto semplice: hai dichiarato arrData all'interno di entrambe le Sub, quindi gli array sono LOCALI.
    Quando chiami la seconda Sub l'array non e' inizializzato, quindi i singoli elementi sono NULL, quindi Excel non mostra... NULL !
    Basta semplicemente portare Dim arrData() all'inizio del codice (quindi dichiarando l'array a livello di Form) ed eliminare le 2 Dim dentro le Sub, e vedrai che funziona...

    Ciao !

  5. #5
    dartpeppe non  in linea Novello
    ciao ICE
    scusa se non ho risposto prima ma mi sono incasinato appresso ad altri rebus
    ti ringrazio tantissimo !!!!!!!!!!!!!! funziona alla perfezione
    grazie !!!!!!!!!!!!!!!!!

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Esportazione query su foglio Excel
    Da ocre nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 02-06-2014, 19:43
  2. Risposte: 23
    Ultimo Post: 07-07-2011, 21:57
  3. [Access] - esportazione su foglio Excel con formule
    Da Fabio63 nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 21-11-2009, 10:10
  4. esportazione dati da excel ad access
    Da frank77 nel forum Microsoft Access
    Risposte: 30
    Ultimo Post: 05-03-2008, 17:41
  5. Esportazione foglio excel
    Da ucn1985 nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 06-04-2006, 14:20