![]() |
|
|
Banner und Co. |
![]() |
|
Themen-Optionen | Ansicht |
![]() |
#1 |
![]() MOF Koryphäe |
![]() Hallo zusammen,
ich möchte gerne eine Exceldatei und ein bestimmtes (ausgeblendetes) Tabellenblatt öffnen. Zur Zeit nutze ich diesen Code: Code: Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("P:Bestand- AufkleberKunden Bestand Aufkleber.xlsm") If objWorkbook.ReadOnly = True Then If MsgBox("Die Datei wird zur Zeit bearbeitet. Wollen Sie die Datei schreibgeschützt öffnen?", 33, "Datei ist geöffnet") = 1 Then objExcel.Visible = True Else objWorkbook.Close False Set objExcel = Nothing End If Else objExcel.Visible = True End If Vielen Dank für eure Hilfe. __________________ __________________________Mit freundlichen Grüßen christian30031982 Win 10 - 64 bit / Office 2016 - 64 bit / Office 365 - 64 bit |
![]() |
![]() ![]() |
![]() |
#2 |
Threadstarter
![]() ![]() MOF Koryphäe |
![]() Moin.
Hat keiner eine Lösung? __________________ __________________________Mit freundlichen Grüßen christian30031982 Win 10 - 64 bit / Office 2016 - 64 bit / Office 365 - 64 bit |
![]() |
![]() ![]() |