vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Listbox daten und Verknüpfungen 
Autor: deathholly
Datum: 27.10.14 09:44
Hallo,
ich habe mal wieder ein Problem.
Ich habe eine Listbox.
Sobald ich ein Item aus der Listbox in der Anwendung auswähle, werden dem Eintrag zugehörig zwei TextBoxen mit je einer Zeile gefüllt.
Code dazu: 
  nr = ListBox4.SelectedItem
        Path = "\\xxx\MOBIL\" & nr
 
        zeit = My.Computer.FileSystem.ReadAllText(path & "\zeit")
        ko = My.Computer.FileSystem.ReadAllText(path & "\ko")
 
 
        TextBox7.Text = zeit
        TextBox13.Text = ko
Soweit so gut. Geht vllt einfacher aber es funktioniert so wie ich es brauche.
Nun möchte ich die ganzen Daten in eine Excel exportieren.
Nr - zeit - ko

Die ganzen Nr bekomme ich mit folgendem Code in die Excel: 

XL = CreateObject("Excel.Application")
 
        XL.Visible = True
        XL.Workbooks.Add()
        XL.ActiveSheet.Select()
 
        With ListBox4
            For i = 0 To ListBox4.Items.Count - 1
                XL.ActiveSheet.Cells(i + 1, 1).Value = ListBox4.Items(i)
            Next i
        End With
 
        XL.ActiveWorkbook.Close()
        XL.Quit()
 
        XL = Nothing
Funktioniert auch, aber wie bekomme ich dazu die Verknüpfungen mit in die Excel...?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Listbox daten und Verknüpfungen 
Autor: deathholly
Datum: 27.10.14 10:33
Ich hab jetzt folgendes, es funktioniert bedingt.
Es werden leider nicht alle felder übernommen... 

Dim i As Integer
        Dim XL As Object
 
        Dim nr As String
        Dim zeit As String
        Dim ko As String
        Dim path As String
        XL = CreateObject("Excel.Application")
 
        XL.Visible = True
        XL.Workbooks.Add()
        XL.ActiveSheet.Select()
 
        With ListBox4
            For i = 0 To ListBox4.Items.Count - 1
                XL.ActiveSheet.Cells(i + 1, 1).Value = ListBox4.Items(i)
 
                nr = ListBox4.Items(i)
                path = "\\xxx\MOBIL\" & nr
                zeit = My.Computer.FileSystem.ReadAllText(path & "\zeit")
                ko = My.Computer.FileSystem.ReadAllText(path & "\ko")
 
                XL.ActiveSheet.Cells(i + 1, 2).Value = zeit
                XL.ActiveSheet.Cells(i + 1, 3).Value = ko
 
            Next i
        End With
 
        XL.ActiveWorkbook.Close()
        XL.Quit()
 
        XL = Nothing
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Listbox daten und Verknüpfungen 
Autor: deathholly
Datum: 27.10.14 10:41
Ok.
Es klappt doch. Ist jetzt nur noch eine formatierungs Sache der Zeilenhöhe in Excel, durch eingetragene Leerzeilen waren einige Felder nicht sichtbar.

Danke trotzdem fürs lesen.

Holger
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel