ITLearning/Dr.Excel

In colectia sh.windows sunt atat ferestrele iexplore cat si ferestrele explorer...

Am refacut partea de cod care seteaza hwindow (varianta anteriora e gresita): Sub test1() Dim ret, hwindow As Long Dim sh As Shell32.Shell Dim w As SHDocVw.InternetExplorer Dim s As String s = "C:\Windows" Set sh = New Shell32.Shell Shell "explorer " & s, vbNormalFocus Sleep 500 For Each w In sh.Win...

FindWindow nu lucreaza!!! Am incercat asa: Sub test1() Dim ret, hwindow As Long Dim sh As Shell32.Shell Dim w Dim s As String s = "C:\Windows" Set sh = New Shell32.Shell Shell "explorer " & s, vbNormalFocus Sleep 500 For Each w In sh.Windows If UCase(w.path) = UCase(s) & "\" Then hwindow = w.hwnd En...

Ceva similar cu
Shell "explorer.exe c:\exemplu", 1
dar cu posibilitatea inserarii unui titlu la fereastra care se deschide.

Multumesc!

Se poate insera un titlu la o fereastra explorer.exe?

Cred ca am gasit ceva:
OpenClipboard(0&)
'cod vba
Closeclipboard

Totusi nu orice secventa de cod VBA face Clipboard empty!

Ipoteza 1. Click pe o celula 2. Ctrl C 3. Run cod urmator: Sub TestClipboard() With Application MsgBox .ClipboardFormats(1) With ActiveSheet .Unprotect Password:="parola" .Protect Password:="parola" End With MsgBox .ClipboardFormats(1) End With End Sub 4. Se observa ca primul msgbox afiseaza "0" iar...

Da, asta voiam!

Multumesc mult!

Sigur ca poti "forta" activarea unui wb oarecare din lista celor deschise!
Eu voiam sa sa nu fac asa ...