Дмитрий(The_Prist) Щербаков, здравствуйте. спасибо за Ваши труды
что я делаю не так?! в файле с сайта вставил ссылки, но ничего не вышло. по совету с коммента изменил файл и опять не сработало. прикреплю файл
а вообще, есть что нибудь по легче кодом. может, я чего то не понимаю, но у меня сработало и так:
Код |
---|
Sub zzzz1()
sFilePath = Range("Table2").Cells(1, 2).Value
With CreateObject("WScript.Shell")
.Run sFilePath
End With
Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub
Sub zzzz2()
sFilePath = Range("Table2").Cells(2, 2).Value
With CreateObject("WScript.Shell")
.Run sFilePath
End With
Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub
Sub zzzz3()
sFilePath = Range("Table2").Cells(3, 2).Value
With CreateObject("WScript.Shell")
.Run sFilePath
End With
Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub
Sub zzzz4()
sFilePath = Range("Table2").Cells(4, 2).Value
With CreateObject("WScript.Shell")
.Run sFilePath
End With
Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub
Sub zzzz5()
sFilePath = Range("Table2").Cells(5, 2).Value
With CreateObject("WScript.Shell")
.Run sFilePath
End With
Application.Wait Time:=Now + TimeValue("0:00:03")
End Sub
Sub a()
zzzz1
zzzz2
zzzz3
zzzz4
zzzz5
End Sub
|
только как задать папку для загрузки и все это записать в цикле(чтоб под каждую ссылку макрос не плодить) - не знаю