MakroZugriff auf fremde Datei - Abfragen
06.05.2005 11:31:02
CiviSese
ich möchte aus meinem Excel Sheet ein anderes Spreadsheet öffnen, wobei beim Starten des anderen Spreadsheets aber einige Abfragen kommen, wie:
sollen Daten aktualisiert werden: JA!
Datei wird bearbeitet: Soll schreibgeschützt geöffnet werden!
Sollen Makros im file aktiviert werden: JA!
Wie und wo kann ich dies in den Code einfügen?
Sub AutocopyNachmittagRussia()
Dim offen$, Dat$, Blatt$, DName$, D1, D2
Dat = "C:/Osteuropa/Russia.xls"
Blatt = "Blatt1"
DName = Dir(Dat) 'prüft, ob Datei existiert. Rückgabe= Dateiname ohne Pfad
Set D2 = ThisWorkbook.Sheets("perform")
If DName = "" Then
MsgBox "Datei " & Dat & " nicht vorhanden"
Exit Sub
End If
On Error Resume Next
offen = Workbooks(DName).Name
If Err.Number = 9 And offen = "" Then 'Datei nicht offen
Err.Clear
On Error GoTo 0
Workbooks.Open Filename:=Dat
End If
On Error GoTo 0
Set D1 = Workbooks(DName).Sheets(Blatt)
D1.Range("E11").Copy
D2.Range("D101").PasteSpecial Paste:=xlPasteValues
Workbooks(DName).Close savechanges:=False 'schließt Datei ohne ändern
End Sub
Danke!
Sebastian