Zuweisungsproblem bei Excel Application
20.07.2003 10:35:43
Wolfgang
habe bereits gestern diese Frage gestellt. Die Antwort von Nike funkt leider nicht: Set wkb = myExcel.Workbooks.Open(fName,"Passwort")
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