VB: Daten in Excel-Sheet einfügen

Forumthread: VB: Daten in Excel-Sheet einfügen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: VB: Daten in Excel-Sheet einfügen

28.01.2003 17:56:18

Peter Tübben

Liebe Excelianer,

[ich möchte vorausschicken, daß ich in Sachen Excel ein ziemlicher Anfänger bin]

ich habe mittels eines OLE-Containers ein Excel-Sheet in mein VB-Projekt eingefügt. Programmgesteuert füge ich nun in das Sheet eine Menge Daten ein. Dabei laufe ich in einer For-Next-Schleife durch alle Zellen einer Spalte und trage mittels

xls.Cells(Row, Col).Value = "Bla"

den Wert ein. Leider muss ich feststellen, daß die Geschwindigkeit, mit der die Daten eingetragen werden, nicht sehr berauschend ist. Gibt's vielleicht einen Trick, wie ich der Datenübertragung einen Turbo verpassen kann?

Danke im voraus & Grüße ... Peter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 17:59:35

Peter Tübben
Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 18:14:26

Thomas Risi
Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 18:26:00

Andreas Walter
Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 19:33:02

Peter Tübben

Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 17:59:35

Peter Tübben

Kleiner Nachtrag:

das Excel-Sheet ist beim Eintragen der Daten nicht sichtbar. Ein kurzzeitiges Unsichtbar-Schalten des Sheets und ein damit einhergehender Performance-Gewinn ist also schon ausgereizt.

Grüße ... Peter

Re: VB: Daten in Excel-Sheet einfügen

28.01.2003 18:14:26

Thomas Risi

Hallo Peter

Versuch's mal etwa so ...

Option Explicit
Sub Test()

    Dim i&
    Dim arr(5000, 1) As Long

    For i = 0 To UBound(arr)
        arr(i, 0) = i
    Next i

    [A1:A5000] = arr

End Sub