hallo
ich habe folgendes problem.
ich habe einen button mit dem ich daten von einer excel datei als tabelle in eine neue bringe.
der code sieht so aus:
Private Sub CommandButton2_Click()
Dim mappe As Workbook
Dim blatt As Object
Set blatt = ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next
Set mappe = Workbooks.Open _
("D:\ordner1\datei.xls")
blatt.Copy before:=mappe.Sheets(1)
mappe.Save
Application.ScreenUpdating = True
end sub
jetzt öffnet es logischerweise immer die datei.xls.
wie kann ich das machen, dass ich statt der datei.xls die datei aussuchen kann?
geht das mit der getopenfile methode???
bitte um hilfe
gruß maekk
|