GetObject
06.02.2006 10:50:39
Eve
ich habe eine problem mit die GetObject.
diese teil von code wollte ich kürzen:
GetObject ("C:\DAT\RiskManagement.xls")
Workbooks("RiskManagement.xls").Worksheets("RM").Columns("A:K").Copy
Worksheets("Sheet2").Paste
Workbooks("RiskManagement.xls").Close savechanges:=False
so funktioniert auch, aber hier die ganze code,
mit die kurze teil von GetObject:
Function bas()
bas = "C:\DAT"
End Function
Private Sub Workbook_Open()
On Error GoTo Fehler
Dim t As Workbook
Dim d As Worksheet
Set t = Workbooks("RiskManagement.xls")
Set d = t.Worksheets("RM")
GetObject (bas & "\" & t)
d.Columns("A:K").Copy
Worksheets("Sheet2").Paste
t.Close savechanges:=False
Worksheets("RM Summary").Activate
Exit Sub
Fehler: MsgBox ("Can't proceed!"), vbCritical, "Error"
End Sub
so weiss jemand was ich falsch gemacht?
danke und gruss
Eve
Anzeige