kan man med API eller nåt skicka över information från listboxar till Excel???
Hur?

Hej,

Men är det endast ett listval som ska skickas till XL?
Från VB eller?

Hm,kanske titta närmare på en möjlig ADO-lösning.

Mvh
XL-Dennis

Nej... det é 3 st

OK - hämta tre listvärden.

Från vilken källa hämtas dessa värden från - VB?

Mvh
Dennis

VB... mm VB...
Det är information i Tre listboxar... Den infon ska över till ett Excel blad...

Här får du ett enkelt uppslag som du själv får implementera i din miljö :

<code>
Dim Lista(0 To 2) As String

Private Sub Command1_Click()
Dim oExcel As Object, oBook As Object, oSheet As Object
Dim sValue1 As String, sValue2 As String, sValue3 As String
Dim vaData(0 To 2) As Variant, vaRubriker As Variant
Dim i As Integer

sValue1 = Lista(List1.ListIndex)
sValue2 = Lista(List1.ListIndex)
sValue3 = Lista(List1.ListIndex)

For i = 1 To 3
vaData(i - 1) = sValue & CStr(i)
Next i

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.Worksheets(1)

vaRubriker = Array("Lista1", "Lista2", "Lista3")

With oSheet
.range("A1:C1").Value = vaRubriker
.range("A2").Resize(1, 3).Value = vaData
End With

oBook.SaveAs "c:\XLDennisDemonstrerar.xls"
Set oSheet = Nothing
Set oBook = Nothing
oExcel.quit
Set oExcel = Nothing
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer

Lista(0) = "XL-Dennis"
Lista(1) = "PopSork"
Lista(2) = "VB - XL"

For i = 0 To 2
List1.AddItem Lista(i)
Next i

For i = 0 To 2
List2.AddItem Lista(i)
Next i

For i = 0 To 2
List3.AddItem Lista(i)
Next i


List1.ListIndex = 0
List2.ListIndex = 0
List3.ListIndex = 0
End Sub
</code>

Lycka till,

XL-Dennis

Den får bara ut en massa siffror inte det som står i listboxarna :(

PopSork,

Först så tackar man för att någon har tillhandahållit ett mer omfattande material, capisho!

Sedan anstränger man själv med att lista ut varför det genereras enbart siffror.

Misslyckas man och verkligen har gnuggat sina geniknölar meddelar man detta.

Att bara meddela att det inte fungerar dessutom med en sur gubbe kan ju få den mest snällaste bidragsgivaren att bli på dåligt humör.

Detta sagt så:

<code>
Private Sub Command1_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim vaData(0 To 2) As Variant, vaRubriker As Variant

vaData(0) = Lista(List1.ListIndex)
vaData(1) = Lista(List2.ListIndex)
vaData(2) = Lista(List3.ListIndex)

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.Worksheets(1)

vaRubriker = Array("Lista1", "Lista2", "Lista3")

With oSheet
.range("A1:C1").Value = vaRubriker
.range("A2").Resize(1, 3).Value = vaData
End With

oBook.SaveAs "c:\XLDennisDemonstrerar.xls"
Set oSheet = Nothing
Set oBook = Nothing
oExcel.quit
Set oExcel = Nothing
Unload Me
End Sub
</code>

Måttliga hälsningar,
XL-Dennis

Jo... Jag vet... jag är inte den bästa på sånt...
TACK med stota bokstäver!..
Jag kom faktiskt på hur man skulle gö..

PopSork,

Bra att du själv kom fram till en lösning :-)

Det andra får vi öva på litet till mans ;-)

Ha en fortsatt trevlig helg,

XL-Dennis