Excel-File mit VB auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

möchte ein Excel File von einem anderen Excel File aus öffnen und auslesen. Und Zwar soll mit Hilfe eine Buttons ein Dialog Feld geöffnet werden, in dem man ein bestimmtes File auswählen kann. Anschließend soll das File Zeile für Zeile ausgelesen werden und in das (Haupt-)Excel File eingelesen werden.
Folgender Code habe ich mit vorgestellt, leider kommen bei mir nur komische Zeichen raus.

Private Sub CommandButton14_Click()
Dateiname = Application.GetOpenFilename(„Textdateien (*.xls), *.xls“)
If Dateiname = „“ Then End
Open Dateiname For Input As #DateiNum
Line Input #DateiNum, Ergebnis
Close
EndSub

hat jemnad eine Idee wie man das besser machen kann.

Vielen Dank!
Peter

#2

Hallo Peter,

ein Excel-File ist ein Binärfile, es ist also vollständig korrekt wenn komische Zeichen angezeigt werden. Ich frage übrigens, warum Du in einem Visual-Basic-Brett fragst, wenn Du doch selber sagst, dass es eigentlich ein Excel-Makro sein soll, das Dir die Aufgabe lösen soll?

MfG Georg V.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo, Peter!

Ad 1: Da Du ja mit VBA spielst, bist Du hier gar nicht mal so falsch. Klar, dass es Überschneidungen zwischen „Tabellenkalkulation“ (und Excel ist ja nur eine davon) und VB/VBA gibt. Das nur nebenbei…

hat jemnad eine Idee wie man das besser machen kann.

Ist doch alles ganz einfach. Wenn Du unter Excel Excel öffnen willst:

Private Sub CommandButton14\_Click()
 dim Dateiname as string
 dim wbDatei as workbook
 dim wsTabelle as worksheet

 Dateiname = Application.GetOpenFilename("Textdateien (\*.xls),\*.xls")
 If Dateiname "" then
 Set wbDatei = Workbooks.Open(Dateiname)
 ' ggf. auch andere Tabelle:
 Set wsTabelle = wbDatei.Worksheets("DeineTabelle")
 ' nur mal als Beispiel, wie Du dann auf einen Wert zugreifst
 MsgBox "Der importierte Zellwert aus B1 ist: " \_
 & wsTabelle.Cells(1, 2)' Achtung: Zuerst Zeile, dann Spalte
 ' importiere halt, was und wie Du magst...
 end if
End Sub

Gruß, Manfred