Debutant: exportez strings vers excel

Version imprimable

17/06/2006, 16h27
maxtin

Debutant: exportez strings vers excel

ok ...je nai jamais exporter quoi que ce soit encore vers excel...tous ce que je veux faire...cest dexporter 4 strings de la facon suivante vers excel:

colonne1 colonne 2

rangee1 STRING1 STRING2

rangee2 STRING3 STRING4

jaimerais aussi que les futures insertions dans excel se fassent tous dans le meme fichier (append) et non dans un nouveau fichier excel

jaimerais savoir aussi comment on fait une somme dune colonne a partir de vb
(colonne2 sont des chiffres)

MERCI a lavance
17/06/2006, 21h53
motrin

Je ne sais pas trop comment tu dois faire, mais j'imagine que tu devras utiliser des objet Excel. Même peut-être que tu auras à manipuler des objet COM. Si tu dois manipuler des objets COM, je te dis bonne chance, car la bonne documentation à ce sujet est rare.

tiens essai de faire ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim obExcelApp As Object     ' Objet Appplication
Dim obWorkSheet As Object    ' Objet Feuille de calcul
Dim blnRunning As Boolean    ' Si Excel était en exécution
Dim Lstr As String
Dim x, y Integer
 
' Référencer l'application Excel
    If Err.Number <> 0 Then
        blnRunning = True
    Else
        Set obExcelApp = New Excel.Application
      obExcelApp.Visible = True
'       Set obExcelApp = CreateObject("Excel.Application")
       blnRunning = False        ' Excel n'était pas en exécution
 
    End If
 
    ' Ajouter un nouveau classeur
    obExcelApp.Workbooks.Add
 
    ' Référencer la feuille de calcul active
    Set obWorkSheet = obExcelApp.ActiveSheet
 
   'La tu fais une boucle qui va bien pour parcourir le tabeau excel      
   'et tu prend les deux lignes qui suivent pour écrire dans ton tableau
 
   Lstr = "tes données"
   obWorkSheet.Cells(x, y).Value = Lstr

Reprend ce que tu as besoin, c'est une tite partie du code que j'ai utilisé dans une appli.
Ca devrait t'aider pour l'acces à excel en général.