Hi!
da ich in meiner Visual Studio Version die Windows Form CommonDialog1 nicht habe, ich bekomme die Fehlermeldung
Keine Panik! Das Control hast du, da bin ich mir sicher!
Das CommonDialog Control musst du erst in dein Projekt einbinden.
Dazu gehst du im Menü unter Projekt -> Komponenten, machst bei "Microsoft Common Dialog Control 6.0" einen Haken und klickst auf OK.
Jetzt wirst du festellen, dass du in deiner Steuerelementliste ein weiteres Icon dazu bekommen hast. Das ist das CommonDialog Control.
Klicke es an und setzte es irgenwohin auf dein Form (ist im Betrieb dann unsichtbar!).
Jetzt kannst du den Code im Beispiel anwenden. Ich habe hier auch mal ein paar Zeilen zusammen geschrieben.
Mein Frame besteht aus einem Button (cmdBrowse) und einer Textbox (txtAnzeigen).
Das CommonDialog ist eigentlich der Standard-Windowsdialog für Öffnen/Speichern.
Code:
Private Sub cmdBrowse_Click()
Dim oExl As Object
Set oExl = CreateObject("Excel.Application")
oExl.Visible = True
On Error Resume Next
With CommonDialog1
.CancelError = True
.Filter = "Excel-Files (*.xls)|*.xls" ' Filter setzen, nur Excel anzeigen
' Dialogfeld Öffnen anzeigen
.ShowOpen
If .FileName <> "" Then
oExl.Workbooks.Open .FileName 'Ausgewähltes Excel-File wird geöffnen..
oExl.Worksheets("Tabelle1").Activate '.. und Tabelle1 aktiviert
txtAnzeigen = oExl.ActiveSheet.Range("A1").Value ' Inhalt der Zelle A1 wird ausgegeben.
'schließen der Excelliste
ActiveWorkbook.Close SaveChanges:=True ' Änderungen werden gespeichert
oExl.Quit
Set oExl = Nothing
End If
End With
End Sub
Hoffe das hilft dir weiter!
EDIT:
Du musst nicht zwingend das CommonDialog benutzten:
oExl.Workbooks.Open "C:\temp\Beispiel"
So funktioniert es auch!
Viele Grüße,
Jacka