CMD komutu çalıştıran Makro

[bsuna]

Merhaba arkadaşlar,

Ekli dosyada R sütununda yer alan komut kodlarını cmd ye atacak bir makro yazmak mümkün mü?

Şimdiden teşekkür ederim.

 

[bmutlu966]

Aşağıdaki kod işinizi görebilir belki.

Sub cmd()
Dim myPath As String, txtPath As String
Dim rc As Long
Dim wb As Workbook

Set wb = ActiveWorkbook
myPath = ThisWorkbook.Path & "\"
txtPath = myPath & "Test.txt"

For t = 1 To [R65536].End(3).Row
Cells(t, "R").Copy
rc = Shell("cmd.EXE ", vbNormalFocus)
SendKeys "^{v}", True
SendKeys "{Enter}", True
Application.Wait Now + TimeValue("00:00:03")
Next
Application.CutCopyMode = False
End Sub