[HaBo]

SPaRXLi

Anzeige

Hallo zusammen!

Ist es möglich, einen mehrdimensionalen Array aus einem Excel-Makro in einer Visual Basic Anwendung weiter zu verwenden?!
Es geht darum, dass aus einer Exceltabelle viele Daten ausgelesen werden und in einen Array gespeichert werden sollen (Array(sheet,zeile,spalte)).
Mit einem Excel-Makro geschieht dies innerhalb von wenigen Sekunden.
Mache ich das ganze jedoch direkt in der VB-Anwendung, also das Füllen des Arrays mit den Daten aus der Exceltabelle, dann dauert dies mehrere Minuten, bis zu einer viertel Stunde!!
Nun war meine Überlegung, ob ich den Array über das Makro füllen lassen kann und dieser dann irgendwie an die VB-Anwendung übergeben werde kann.

Danke schonmal für eure Hilfe!

lookshe

Ich weiss ja nicht, was du da genau implementiert hast, allerdings konnte ich bei vielerlei Dingen den Effekt, dass ein Makro wesentlich schneller läuft als ein gleichwertiges VB-Programm, noch nicht feststellen. Vielleicht solltest du dir mal deinen Programmcode genauer anschauen, ob du da noch was optimieren kannst.

SPaRXLi

Der Witz ist, dass ich genau den gleichen Code benutzt habe.

Makro und Visual Basic:

Sub arrayladen()

Dim kursarray(2 To 100, 1 To 1300, 1 To 12)

For i = 2 To Sheets.Count

For j = 1 To 10 Step 3

k = 1

Do While Sheets(i).Cells(k, j) <> ""

kursarray(i, k, j) = Sheets(i).Cells(k, j)
kursarray(i, k, j + 1) = Sheets(i).Cells(k, j + 1)
kursarray(i, k, j + 2) = Sheets(i).Cells(k, j + 2)

k = k + 1

Loop

Next j

Next i

MsgBox "fertig"

End Sub


Visual Basic:

Option Explicit

Dim Excel As Object
Dim LFlag As Boolean

Private Sub Command1_Click()

CommonDialog1.Filter = ("Excel-Datei (*.xls)|*.xls;")
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then
Excel.Workbooks.Open CommonDialog1.FileName
LFlag = True
End If

End Sub

Und dann eben noch die gleiche Sub von oben...

lookshe

Hast du den Verweis auf Excel korrekt gesetzt? Dann solltest du nicht Object, sondern Application.Excel (oder sowas) nehmen.

Besser als eine Do-While-Schleife wäre glaub ich auch, wenn du dir die letzte belegte Zelle holst und mit einer For-Schleife bis dahin iterierst.

Muss ich mir später mal genauer angucken. Bin grad inner Vorlesung

SPaRXLi

Ok, danke schonmal soweit für deine Hilfe!

Hab noch was vergessen oben, für die Visual Basic Anwendung:

Private Sub Form_Load()

Set Excel = CreateObject(?Excel.Application?)
Excel.Visible = False

End Sub


Und hier der vollständigkeit halber dann nochmal die Sub arrayladen() von Visual Basic:

Sub arrayladen()

Dim kursarray(2 To 100, 1 To 1300, 1 To 12)

For i = 2 To Excel.Sheets.Count

For j = 1 To 10 Step 3

k = 1

Do While Excel.Sheets(i).Cells(k, j) <> ""

kursarray(i, k, j) = Excel.Sheets(i).Cells(k, j)
kursarray(i, k, j + 1) = Excel.Sheets(i).Cells(k, j + 1)
kursarray(i, k, j + 2) = Excel.Sheets(i).Cells(k, j + 2)

k = k + 1

Loop

Next j

Next i

MsgBox "fertig"

End Sub

lookshe

Mh, das mir jetzt ehrlich gesagt auch etwas unerklärlich.

Andere Idee: Hast du schonmal versucht auf eine laufende Excelanwendung mit der geöffneter Datei zuzugreifen? Könnte vielleicht nen Overhead im VB geben, weil es die Excelanwendung öffnen muss.

Ansonsten schau mal bei vbarchiv.net im Forum, wenn es so ein Problem wirklich gibt, dann ist das dort zu finden.