Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

freigebenen Datei prüfen ob bereits geöffnet
#21
@Fen

Geht einfacher in Word:


Code:
Sub M_snb()
   For Each it In Tasks
      c00 = c00 & vbCr & it.Name
   Next
   ActiveDocument.Content = c00
End Sub
Dort werden alle 'Windows' gezeigt.

Du kannst z.B suchen auf:

Code:
Sub M_snb()
   For Each it In Tasks
      c00 = c00 & vbCr & it.Name
   Next
   msgbox "__very link.xlsb ist " & format(instr(c00,"Microsoft Excel - __very link.xlsb")<>0,"yes/no") & " geladen"
end sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • Fennek
Antworten Top
#22
Hallo snb,

danke für den Code, auch die Konstruktion mit "Format" war für mich neu.

Als ich den Code abgespeichert habe, fand ich diesen xl-Code (hatte es aber vergessen):


Code:
https://officetricks.com/application-monitor-manage-terminate-tasks/

#################
all Tasks:

Option Explicit
'This code is downloaded from Officetricks.com
'Visit our site for more Free Excel Code
Sub Task_List_In_Excel()
  Dim oMgmt As Object, oProc As Object, oList As Object

  Set oMgmt = GetObject("winmgmts:")
  Set oProc = oMgmt.ExecQuery("Select * from Win32_Process")
  i = 1

  'Loop thru each process and application name
  For Each oList In oProc
      ThisWorkbook.Sheets(1).Cells(i, 1) = oList.Name
      i = i + 1
  Next

End Sub
###############

terminate processes

For Each oList In oProc
   
   'Check for Application Name. Kill Process if there is a Match
   If vba.Ucase(oList.Name) = vba.Ucase("notepad.exe") Then
      oList.Terminate
   End If
Next


mfg
Antworten Top
#23
@Fen

Die code ist VBA, jedoch kein Excel.

Weder:

Code:
Sub M_snb()
  with createobject("word.application")
   For Each it In .Tasks
      c00 = c00 & vbCr & it.Name
   Next
   .quit
  end with

  msgbox "__very link.xlsb ist " & format(instr(c00,"Microsoft Excel - __very link.xlsb")<>0,"yes/no") & " geladen"
end sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste