ID tematu: 73986
 |
Otwieranie pliku z rozszerzeniem cmd |
| Autor |
Wiadomość |
JCK 
Starszy Forumowicz
Wersja: Win Office 2019
Posty: 32
|
 Wysłany: 16-01-2023, 13:33 Otwieranie pliku z rozszerzeniem cmd
|
|
|
Hej, od jakiegoś czasu staram sie zautomatyzować jeden z raportów. Niestety tylko jeden krok dzieli mnie od tego by to zrobić, mianowicie za pomocą makra musiałbym otworzyć plik z rozszerzeniem .cmd.
Niestety próbowałem już na różne sposoby i niestety nie działa.
Ostatni sposób jak próbowałem podany poniżej:
| Kod: | Dim file_path As String
file_path = "C:\Script\Start.cmd"
Shell file_path |
Czy ktoś mógłby mi pomóc? |
|
 | ID posta:
424233
|
|
|
 |
|
|
|
|
master_mix
Excel Expert
Wersja: Win Office 365
Pomógł: 1216 razy
Posty: 2324
|
| Wysłany: 16-01-2023, 13:53
|
|
|
| Kod: | | Call Shell("C:\Script\Start.cmd") |
|
_________________
Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie. |
|
 | ID posta:
424234
|
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11414
|
| Wysłany: 16-01-2023, 14:00
|
|
|
Może tak się uda:
| Kod: | file_path = "C:\Script\Start.cmd"
Shell "cmd /c " & Chr(34) & file_path & Chr(34) |
|
|
| ID posta:
424237
|
|
|
|
|
|
JCK
Starszy Forumowicz
Wersja: Win Office 2019
Posty: 32
|
| Wysłany: 17-01-2023, 07:16
|
|
|
Hej, niestety żadne z powyższych nie działa. Natomiast udało mi się poniższym kodem:
| Kod: | | VBA.Shell "Explorer.exe C:\Script\Start.cmd", vbMaximizedFocus |
Natomiast plik cmd jest otwierany i zamykany od razu bez załączania skryptu.
Błąd.png
|
 |
| Plik ściągnięto 141 raz(y) 3.13 KB |
|
|
| ID posta:
424256
|
|
|
|
|
|
master_mix
Excel Expert
Wersja: Win Office 365
Pomógł: 1216 razy
Posty: 2324
|
| Wysłany: 17-01-2023, 09:24
|
|
|
Wszystkie powyższe ( Tajana i mój) są prawidłowe i powinny działać.
Spróbuj jeszcze przez późne wiązanie
| Kod: | Dim obj
Set obj = CreateObject("wscript.shell")
obj.Run ("C:\Script\Start.cmd")
Set obj = Nothing |
|
_________________
Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie. |
|
| ID posta:
424257
|
|
|
|
|
|
ple4
Stały bywalec Excelforum
Wersja: Win Office 2003
Pomógł: 68 razy
Posty: 312
|
| Wysłany: 17-01-2023, 10:05
|
|
|
| master_mix napisał/a: | | powinny działać |
Bo działają:
| Kod: | Sub aaa()
Dim fp As String, rv
fp = ThisWorkbook.Path & "\start.cmd"
On Error Resume Next
rv = VBA.Shell("cmd /c " & Chr(34) & fp & Chr(34))
Debug.Print rv
End Sub |
Ani razu nie zwróciło mi wartości '0'. |
|
| ID posta:
424262
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11414
|
| Wysłany: 17-01-2023, 10:05
|
|
|
| JCK napisał/a: | | Natomiast plik cmd jest otwierany i zamykany od razu bez załączania skryptu. |
Plik cmd to zestaw poleceń systemowych i problem jest raczej z tym, że te polecenia nie są poprawnie wykonywane a nie z tym, że plik cmd nie jest otwierany. Wskazuje na to załączony obraz błędu, który nie ma nic wspólnego z plikiem cmd.
Możesz pokazać zawartość tego pliku? |
|
| ID posta:
424263
|
|
|
|
|
|
JCK
Starszy Forumowicz
Wersja: Win Office 2019
Posty: 32
|
| Wysłany: 19-01-2023, 07:43
|
|
|
Tajan, Masz rację, miałem błąd w pliku poleceń.
master_mix, Dzięki, zadziałało. |
|
| ID posta:
424342
|
|
|
|
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych
Wersja do druku
|
|
Strona używa plików cookies.
Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe
|
Regulamin
