disketten .bat dosyası açma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Option Explicit

'//The Shell function runs other programs asynchronously so what
'//What you basically have to do is Open the existing Process
'//for the running Application and, LOOP & WAIT for the processes return state
'//ie when the specified process is in the signaled state
'//or a timeout occurs.

Private Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
    
Private Declare Function WaitForSingleObject Lib "kernel32" ( _
    ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
    ByVal hProcess As Long, _
    lpExitCode As Long) As Long

'&HFFFF
Private Const SYNCHRONIZE = &H100000
'// Note:SYNCHRONIZE Windows NT/2000
Private Const INFINITE = &HFFFF 'OR -1&
'// INFINITE, the function’s time-out interval never elapses.
Private Const STILL_ACTIVE = &H103

Public Function ShellAndWait(ByVal BatFile As String)
   '
   ' Shells a new process and waits for it to complete.
   ' Calling application is totally non-responsive while
   ' new process executes.
   '
Dim PID As Long
Dim hProcess As Long
Dim nRet As Long

'// Unlike other Functions Shell generates an error
'// instead of returning a 0 so handling the error
'// = Application NOT started.
On Error Resume Next
PID = Shell(BatFile, vbMinimizedNoFocus)
If Err Then
    '// handle the error here and End
    MsgBox "Could NOT exercute:= " & BatFile
    End
End If
On Error GoTo 0

'// SYNCHRONIZE For Windows NT/2000:
'// Enables using the process handle in any of the wait
'// functions to wait for the process to terminate.
'// obviously with NT you need access rights.
hProcess = OpenProcess(SYNCHRONIZE, False, PID)
'// Just set the dwMilliseconds to INFINITE to initiate a Loop
nRet = WaitForSingleObject(hProcess, INFINITE)

Do
    GetExitCodeProcess hProcess, nRet
    DoEvents
Loop While nRet = STILL_ACTIVE

CloseHandle hProcess

End Function

Sub OpenFileAndWait()
Dim sApp As String

'// Define the Application FullPath here
sApp = "C:ABatch.bat"
'sApp = "C:windowssystem32calc.exe"

'// Lets DoIt
ShellAndWait sApp
'// Tell me if Successful
MsgBox "Finished running task!"

End Sub

Benzer Sonuçlar
No	Makro Adı
1	disketten .bat dosyası açma
2	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
3	txt dosyası açma
4	text dosyası 3 açma ve hazırlama
5	excel dosyasının cd’de çalışması
6	ağdaki excel dosyasını açma
7	pdf dosyası açma penceresi
8	pdf dosyası açma penceresi2
9	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
10	başka çalışma kitabındaki userformu açmak
11	excel multiuser ( çoklu kullanacı ) açmak
12	"Dosya Aç" penceresi ile yeni bir dosya açma işlemi
13	Klasördeki bütün Excel dosyalarını açma
14	makro ile dosya açma problemi
15	htm uzantılı dosyayı açma
16	listboxla dosya açma kapama silme
17	Hoşgeldiniz İletisi: Bir dosyayı açma görevini gerçekleştirmek için auto_openi kullanabilirsiniz. Yapmanız gereken tek şey, makronuzun "auto_open" adını vermek.
18	tüm excel dosyalarını açma
19	çalışma kitabını diskete yedekler
20	kitabınızı diskete yedekler

Benzer Sonuçlar

Makro Adı

disketten .bat dosyası açma

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

txt dosyası açma

text dosyası 3 açma ve hazırlama

excel dosyasının cd’de çalışması

ağdaki excel dosyasını açma

pdf dosyası açma penceresi

pdf dosyası açma penceresi2

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

başka çalışma kitabındaki userformu açmak