Öffnen von Dateien

Sub Datei_AUF() strZELLE = "L1" strMakroMappe = ThisWorkbook.Name Workbooks(strMakroMappe).Sheets(1).Range(strZELLE).Activate strHyLi = Range(strZELLE).Hyperlinks(1).Address Call SamStarten(strZELLE, strMakroMappe, strHyLi) End Sub

Sub SamStarten(strZELLE As String, strMakroMappe As String, strHyLi As String) Dim sh Set sh = CreateObject("Shell.application") sh.Open CStr(strHyLi) 'Rechner starten Workbooks(strMakroMappe).Sheets(1).Activate DoEvents Application.Wait (Now + TimeValue("0:00:02")) Set sh = Nothing End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heidi,
Frage Breakpoint:
wenn Du den BP auf die Zeile "sh.Open" legst, dann stoppt der Code VOR die Ausführung diese Anweisung. Was passiert, wenn Du den BP auf die erste Anweisung danach legst?
Frage "nach dem Makro geöffnet":
im Prinzip wird schon die Datei vorher geöffnet und verfügbar sein. Nur da das Makro noch die Hand hat, könnte es sein, dass die Anzeige noch nicht freigegeben wird.
Wobei es sich hier auf das Öffnen mit Workbook.Open bezieht, nicht unbedingt auf deas Öffnen über Shell.
Öffnen über Shell könnte dazu führen, dass die Datei in eine zweite Excel-Application geöffnet wird (nochmalerweise nicht).
Dass eine Datei in einer zweiten Excel-Instanz geöffnet hat, merkt man spätestens, wenn man dort den VBA-Editor öffnet: es öffne sich einen separaten Editor.
Ansonsten kann man die Anzahl von Instanzen mit dem Code von Roland Hochhäuser
(aus: https://www.herber.de/forum/archiv/1040to1044/1042598_Excel_Instanzen_finden_und_Anzeigen.html )

Sub ExcelInstanezn_Zählen()
Dim l As Long
l = ReadProcessData("EXCEL.EXE")
MsgBox l & " Excel-Instanzen offen"
End Sub
Function ReadProcessData(ByVal Prozess As String) As Long
Dim objWMIService As Object
Dim colProcesses As Object
Dim sinProcess As Object
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
ReadProcessData = 0
For Each sinProcess In colProcesses
With sinProcess
If .Name = Prozess Then ReadProcessData = ReadProcessData + 1
End With
Next
Set objWMIService = Nothing
Set colProcesses = Nothing
End Function

(gerade bei mir erfolgreich gelaufen)
VG
Yal

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Öffnen von Dateien

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread