Zuweisung bei Office Applicationen
19.07.2003 19:43:48
Wolfgang
wie und wo setzte ich in folgendem Code das Passwort ein, damit die Datei geöffnet werden kann?
Private Sub PPClose()
Dim fName As String
Dim myExcel As Object
Dim wkb As Object
fName = ActivePresentation.Path & "\Test.xls"
Set myExcel = CreateObject("excel.Application")
myExcel.Visible = True
Set wkb = myExcel.Workbooks.Open(fName)
With ActivePresentation.Slides(1)
.Copy
End With
wkb.Worksheets(1).PasteSpecial Format:="Bild (GIF)", link:=False, DisplayAsIcon:=False
End Sub
Danke vorab für jede Bemühung.
Gruß
Wolfgang
Anzeige