Dodano po 6 czyli: schtasks /create /tn usluga /sc co_minutę /mo 2 /tr "\"c:\Documents and Settings\Administrator\Pulpit\skrypt.vbs...
Witam mam windows 7 starter. I mam taki oto błąd Nie można znaleźć aparatu skryptów "VBScript" dla skryptu "C:\Windows\System32\GfxCUIServiceInstal... I przy tym nie działa windows media player nie wiem czy to jest tym spowodowane.
Są tylko inputbox i message box. Zbyt wiele to nie da się z nimi zrobić. http://www.tutorialspoint.com/vbscript/v...
Jeśli nie programowałeś wcześniej zainteresuj się pisaniem skryptów. poczytaj o vbscript. w wierszu poleceń (start, uruchom, wpisz cmd) można 2 i 3 wykonać poleceniem move, a 4 poleceniem rd /S. Dodanie odpowiedniego skryptu do harmonogramu zadań spowoduje wykonanie co jakiś czas tego zadania.
Nie można znaleźć aparatu skryptów "VBScript" dla skryptu "c:\WINDOWS\system32\killVBS.vbs". a z tym co mogę zrobić komunikat taki wyświetla mi się przy włączeniu z góry dzięki
Uruchamiałem "regsvr32 vbscript.dll" i nadal nic wciąż ten sam komunikat, dodatkowo zauważyłem, że po użyciu Combofix-a wyświetla się rozmiar pliku w następujący sposób: http://obrazki.elektroda.net/77_12252898...
Próbuję zainstalować oprogramowanie modemu na Windows Vista i wyskakuje mi komunikat "nie można uzyskać dostępu do uruchomienia skryptu VBScript dla czynności niestandartowej " no i oczywiście instalacja zostaje przerwana. Ktoś wie jak rozwiązać ten problem ze skryptem?
Wklejasz kod w jakimkolwiek edytorze tekstowym np.: w Notatniku i zapisujesz plik z rozszerzeniem "vbs" w folderze, gdzie znajdują się skróty. Skrypt uruchamiasz poprzez podwójne kliknięcie. Na wszelki wypadek zrób kopię zapasową skrótów, które chcesz przetworzyć. Dopisz na końcu poniższą linijkę, to wyświetli się komunikat, gdy skrypt skończy działanie....
Witam Wykonałem wszystko tak jak w instrukcji. Były problemy z usunięciem niektórych programów, ale jakoś się udało. Jedyne po uruchomieniu wyskakuje komunikat. Nie można znaleźć aparatu skryptu "VBScript" dla skryptu "C:\Program Data\Sony Corporation\VAIO Care\DelSelfPatch.vbs" Poza tym komputer strasznie muli. Po każdym kliknięciu czekam kilka kilkanaście...
Witam, Dziś na laptopie(win 7 starter) wyskoczył mi komunikat "Nie można zaleźć aparatu skryptów "VBScript" dla skryptu "C:\Windows\System32\GfxCUIServiceInstal... Pisze w danym dziale ponieważ wydaje mi się ,że podany problem(virus) blokuje dostęp do internetu. Przepraszam za dużą niewiedze w temacie ale bez stałego dostępu do internetu ciężko...
Czy jest możliwość dopisać aby skrypt czekał losową ilość czasu w przedziale 15-18 min [syntax=vbscript]Randomize a = Int((18-15+1)*Rnd+15) WScript.Sleep 1000*60*a WScript.CreateObject("WScript.Shell").Se... "{ENTER}"[/syntax]
Tak na szybko to zamiast "efekciarskiego" paska, ja zwykle wstawiam wewnątrz pętli takie coś: [syntax=vbscript]For w = 2 to ost_wiersz Application.StatusBar = "Wykonywanie operacji " & w - 1 & " z " & ost_wiersz - 1 DoEvents 'operacja właściwa... Next w Application.StatusBar = False[/syntax] Natomiast wdaje mi się, że Twój program działa wolno, bo nie...
Skrypt VBS dla Windows: [syntax=vbscript]Dim oFSO dim plik Set oFSO = CreateObject("Scripting.FileSystemObject... set plik = oFSO.OpenTextFile("K:\Lista_Usun.txt") Do Until plik.AtEndOfStream oFSO.DeleteFile plik.ReadLine Loop[/syntax] W pliku Lista_Usun.txt są podane pełne ścieżki dostępu do poszczególnych plików, jedna linia jeden plik.
No cóż - nie jestem programistę - czasem piszę proste skrypty lub korzystam i przerabiam gotowe przykłady. Co do składni skryptu zacytowanego wcześniej to musimy rzucić okiem na funkcję "DateAdd" - dokładny opis możliwości wraz z przykładami znajdziesz tutaj http://www.w3schools.com/Vbscript/func_d... Jak widać można zmieniać wszystko - od roku...
Do enhanced - sprawdziłem i nie działa i tam wyraźnie pisze na dole: ' If you don't, use the WMI StdRegProv instead. i właśnie rozwiązałem problem wcześniej używając WMI StdRegProv - patrz linia w skrypcie: [syntax=vbscript]Set objReg = GetObject("winmgmts:\\"& _ strComputer & "\root\default:StdRegProv")[/syntax] Myślę iż temat można zamknąć.
Witam Chciałbym zacząć pisać skrypty w winCC 2008 flexible, przejrzałem posty w tym temacie, jednak nie znalazłem w nich wystarczających wskazówek. Potrafię wykonać prostą wizualizację, coś tam się rusza (tylko symulacja). Chciałbym wgryźć się w pisanie skryptów w VBScript, czy ANSI-C, jak jednak dany skrypt napisać i podpiąć pod komponent? Nie proszę...
[syntax=vbscript]Dim ChainOn ChainOn = SmartTags("CV1") And &H0010 If ChainOn Then SmartTags("CV1_pos") = (SmartTags("CV1_pos") + 1 ) Mod 100 End If[/syntax]
A powershell może być? Powershell jest w każdym systemie windows od WinXP, więc zakładam, że też go masz. Testowane na PS v2.0, więc będzie działać na Win7/Server 2008 i starszych (win XP miał PS v1.0). W Task Schedulerze podajesz jako program Powershell.exe i jako parametry -NoLogo -NonInteractive -executionpolicy bypass -File __plik__ Do podmianki...
Dzięki za liczne odpowiedzi. Niestety podane przez Was skrypty kończą się błędem składni :/
poszukuję prostego szablonu skryptu VBS, sprawdzającego co jakiś czas godzinę systemową (Windows 10, jeśli to istotne) i po stwierdzeniu, że nadeszła lub minęła (w razie np. przerwy w zasilaniu), uruchamiający określoną aplikację "exe", a następnie, znów po upływie zadanej godziny, wyłączający ten program. Dwie pętle pierwsza sprawdza czas włączenia...
poszukaj: VBScript Language Reference.chm Premier Press - Microsoft VBScript Professional Projects (2003).chm Druga pozycja - ponad 14MB
Witam. Chciałbym prosić o pomoc w sprawie wymienionej sprawy w temacie. Dostałem wiadomość od znajomego o treści "pics of you really drunk!!" + dołączony do tego plik w rar. Nie zorientowałem się o co chodzi, bo rozmawiałem przez telefon i pobrałem ten plik na kompa, po czym odpaliłem jego zawartość. Jest to "plik skryptu w języku VBScript". Po tym...
Bardzo prosty skrypt zmienna na stałe i wartość min na stałe, ale to tylko przykład. Tworzysz skrypt (Type: Function) [syntax=vbscript]If SmartTags("Tag_1") > 1 Then SmartTags("Tag_1") = SmartTags("Tag_1") - 1 End If [/syntax] Jeżeli Tag_1 jest większa od 1 to można zmniejszyć i już. Drugi taki podobny na zwiększanie i po kłopocie. Podpinasz skrypty...
[syntax=vbscript]Shell("c:\AdbeRdr11000_... /sAll /rs /msi EULA_ACCEPT=YES")[/syntax]
No i wlasnie, zabezpieczenie systemu. Troche pogmerac w systemie i juz jest ok, aaa mnie sie tez otwieraly teraz juz nie. A tak wyglada ten Skrypt: <SCRIPT language=VBScript> <!-- Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject...
Witam. Mam plik rar, z którego jestem w stanie wypakować wszystko poza "zakodowanym plikiem skryptu w języku VBScript". Gdy chcę go wypakować oddzielnie, to wyskakuje mi okno z informacją, iż nie mam uprawnień administratora. Jestem administratorem, próbowałem otwierać WinRara jako administrator po tym wypakować ten plik, ale to nie zadziałało, wpisywałem...
Może podejdźmy do tego w inny sposób. 2 userów - 2 osobne skrypty vbs: [syntax=vbscript] Set WshShell = WScript.CreateObject("WScript.Shell") Set cloner = CreateObject("WScript.Shell") cloner.run"mstsc" 'run remote desktop connection WScript.Sleep 1000 cloner.SendKeys"Ip of the server" cloner.SendKeys("{Enter}") WScript.Sleep 1000 cloner.SendKeys"Password"...
Aha no i punkt 3 jeżeli masz w nazwach folderów spacje to musi być ścieżka w " " [syntax=vbscript]"z:\folder docelowy"[/syntax]
Na serwer spróbuje wgrać jak będę miał dostęp. narazie próbuje zrobić aby działało lokalnie, i wszystko działa oprócz ostatniej fazy czyli zapisu razem.pdf. nie wyskakuje żaden błąd, pliki zapisują się osobo prawidłowo. gdzie jest błąd w skrypcie: [syntax=vbscript]Sub PDFy() 'r = Sheets("Zakres prac").[C2] & ".pdf" s = "D:\" ActiveSheet.ExportAsFixedFormat...
W takim przypadku piszesz skrypt. W świecie windowsa = plik batch, albo JScript lub VBscript. Pozdrawiam, Dr.Vee
Internet Explorer (załatany wszystkimi łatami) bo działa najszybciej (pewnie dlatego że najlepiej zarząda cache przeglądarki). Ciekawe, skad takie rewolucyjne , jakby nie bylo, wnioski !? Zainstaluj obie przegladarki na jednym kapie i porownaj szybkosc i komfort przegladania np na Elce... Pozdrawiam. Porównywałem Ie z Firefoxem i Operą. Najszybciej...
'z' uruchamia polecenie. [syntax=vbscript]z:: WinActivate ahk_exe RelayBoard.exe send {f2} ExitApp[/syntax]
Witam możesz jeszcze to skryptem ciachnąć bez otwierania [syntax=vbscript]Set shl = CreateObject("Shell.Application") Set folder = shl.Namespace("C:\pdf\") Set pliki = folder.Items For Each f in pliki f.InvokeVerbEx("Print") Next Set shl = Nothing Set folder = Nothing Set pliki = Nothing WScript.Quit[/syntax]
to jest ok jako pojedyncza formuła w danej komórce. Ona jest jednak elementem wielu innych reguł które umieściłem w skrypcie "Function " Chyba chodzi o
Witam serdecznie, mam problem ze skryptem z mailem a nie potrafię znaleźć rozwiązania. Mianowicie w aplikacji do robienia audytów po uzupełnieniu danych, audyt wysyłany jest mailem do osób z obszaru. Niestety co jakiś czas generuje się mail, temat jest poprawny, odbiorcy, ale nie wkleja się treść i otwiera pusty mail. Jest to jedyna aplikacja przeze...
Okej, nie zrozumiałe jest dla mnie to, że on wie że same xml'e ma wrzucić Ta linijka za to odpowiada [syntax=vbscript]path = "C:\testXML\*.xml"[/syntax]
Gdzieś powinienem mieć, poszukam i wrzucę. Dodano po 41 Niestety ale nie mogę u siebie znaleźć. Jedynie co to mogę dodać że na XP w przeglądarce IE8 wersja DDT 2.5.0.0 też pokazuje ten błąd ale wystarczy zezwolić przeglądarce na uruchamianie skryptów i formatów ActivX. https://obrazki.elektroda.pl/2410999900_... Ja osobiście przesiadłem...
Wszystko to co napisałeś można zrealizować za pomocą skryptów - i tak będzie najprościej. Musisz zadbać tylko, żeby na komputerze był zmapowany (lub mapował się automatycznie) udostępniony zasób z komputera Windows (np. za pomocą pakietu SAMBA na Linux'ie). Gotowca na szybko "z palca nie strzelę", ale robiłem niegdyś podobne rzeczy (łącznie z tymi przyrostowymi...
[syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.
Ten skrypt nie kopiuje dokładnie - nadpisuje ostatni wiersz, bo nie przesuwasz zmiennej NextRow na kolejny wiersz. Kod po poprawkach: [syntax=vbscript]Private Sub CommandButton1_Click() Dim FolderName As String, fileName As String Dim NextRow As Long Dim ws As Worksheet Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (filefilter:="Microsoft...
Usuń tę linię, uruchom kod i podaj błąd. Nie wyświetla się błąd przechodzi cały skrypt tylko nic nie importuje sprawdzałem poprawność nazw, zaraz wrzucę pliki bo może coś źle robię
Żeby rozwiać wszelkie wątpliwości. Uruchomiłem ten kod na komputerze https://obrazki.elektroda.pl/2583162500_... Co 6 sekund wykonanie pętli bez końca.
U mnie działa a zobacz tak L::[syntax=vbscript] Loop 5 { Send, {+} Sleep 10000 } return [/syntax] uruchom skrypt otworz notatnik (kursor w notatnik) i cisni L
vbs [syntax=vbscript]Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." ' Use . for current machine hDefKey = HKEY_LOCAL_MACHINE strKeyPath = "HARDWARE\DESCRIPTION\System\Multifuncti... Set oReg = GetObject("winmgmts:{impersonationLevel=... & strComputer & "\root\default:StdRegProv") oReg.EnumKey hDefKey, strKeyPath, arrSubKeys...
Napisać skrypt. Jeśli dane są w pliku, to musisz użyć VBScript. Niestety ViewScript nie ma żadnej funkcji do odczytu danych z pliku. Jeżeli dane pochodzą z łącza szeregowego, można użyć funkcji ComPortGet (ViewScript).
Shell nie akceptuje spacji w ścieżce do pliku Ścieżka powinna być umieszczona w cudzysłowach. [syntax=vbscript]Shell("MSAccess.exe " & Application.CurrentProject.Path & "\Update.accdb")[/syntax] nie wystarczy?
Przetestuj 'Application.OnTime' z licznikiem i 'Select Case'... Sęk w tym, że zarówno (prawidłowo użyte) Sleep jak i Application.Wait powinno tutaj działać i spełnić swoją rolę. Tak jak nie ma konieczności tworzenia WScript.Shell, bo Excel udostępnia już Application.SendKeys. Być może Autor potrzebuje pętli for i wstawienia "opóźnienia" w odpowiednim...
To czy warto pisać w skryptach .vbs zależy już od potrzeb. Batch to najprostszy język Dosa i jest trochę ograniczony, VBScript ma już troszkę więcej możliwości, ale jest nieco bardziej skomplikowany.
Jakiś czas temu, miałem podobny problem i załatwiłem to za pomocą PDFCreator-a z firmy zwanej [url=https://www.pdfforge.org/pdfcreator... i takiego skryptu: [syntax=vbscript]Const MagicWord = "aaabbbxxxx12345" //haslo Set objArgs = WScript.Arguments If objArgs.Count = 0 Then MsgBox "This script needs a parameter!", vbExclamation, AppTitle WScript.Quit...
Witam interesuje mnie jak przerobić poniższy skrypt tak aby sprawdzał czy istnieje dana strona internetowa [syntax=vbscript]Dim fso Set fso = CreateObject("Scripting.FileSystemObject... If fso.FileExists("k:\1.vbs") Then Msgbox"111",0,"222" end if[/syntax]
Troszkę bym się nie zgodził, te dane wychodzą poza kompa. Skrypty Javascript i Vbscript są wykonywane na komputerze użytkownika a nie na serwerze. No chyba, że pod pojęciem wysłać odpowiednią stronę miałeś na myśli wróżkę. Miałem na myśli że kod javascipt tworzy adresy do innych stron które są robione pod konkretne rozdzielczości lub wersje przeglądarki....
Przetestuj poniższy kod (nie wnikam w poprawność składni polecenia robocopy) [syntax=vbscript]Dim objFolder Dim oShell Dim strfoldername Dim StrMonth Dim StrDay Dim StrYear Set oShell = CreateObject("WScript.Shell") StrMonth = Right("0" & Month(Date),2) StrDay = Right("0" & Day(Date),2) StrYear = Year(Date) ' NAZWA TWORZONEGO FOLDERU + DATA SYSTEMOWA...
Może to Ci się przyda. Musi być zainstalowany 7zip. Kod dla Outlooka. [syntax=vbscript] Option Explicit Private Const PathFile$ = "C:\test\" ' ścieżka dla plików Private Const Path7zip$ = "C:\Program Files\7-Zip\7z.exe" 'ścieżka 7zip Private Const FileName$ = "msg.msg" ' nazwa pliku msg Sub SaveSelectMail() Dim olApp As Outlook.Application Dim olExplorer...
Zobacz tak wciśnięcie q zatrzyma ponowne ruszy dalej [syntax=vbscript]l:: stop = 0 Loop If stop = 0 { Sleep 100 Send, z } return q::stop:=!stop[/syntax]
Znalazłem bardzo dobre makro na forum: [url=https://forum.dobreprogramy.pl/t/wo... od użytkownika: lucas80, które wstawia twardą spację po spójnikach a,w,z,i,o,u na końcu wiersza i w dodatku zostało zmodyfikowane, że nie przerzuca znaków ‘-’ itp. do następnej linijki. Makro działa z początku...
Witam, Z wirusami jest trochę jak z granatem - z jednej strony strach to trzymać w ręku, z drugiej - jeśli obchodzić się z nimi ostrożnie, nic się nam nie stanie ;) Zaciekawił mnie ten temat, a że też bywam ciekawy (i dociekliwy), poświęciłem godzinkę na obrobienie własnym skryptem - "odszyfrowanie" - owego załącznika (jeszcze nim szanowny moderator...
OK coś mi się już rozjaśniło. Z tego co widzę jeśli chodzi o skrypty które działają po stronie klienta i są umieszczone bezpośrednio w dokumencie HTML to może być tylko javascript, VBScript. Czy są jeszcze jakieś inne ? Pytam bo coś by trzeba było wybrać na początek. Znacie odpowiedzi na pozostałe pytania ?
W tym arkuszu zawsze jest jeden wiersz i wiele kolumn w kazdej z nich sciezka do plikow bibliotek i rysunkow. No, i to wiele zmienia... Źle zrozumiałem Twoje intencje... W takim razie zmień sobie SQLa na: Tzn. w excelu dodanie wartości do kolejnego wiersza nie jest oczywiste(automatycze) ; D tak jak w Twoim skrypcie W Accesie też nie jest to ani automatyczne,...
w każdym tag-u HMI wartość QualityCode zmienia się w reakcji na połączenie z PLC oto część VB skryptu Dim tag,status Set tag=HMIRuntime.Tags("AlwaysTRUE") -< w nawiasie tag z PLC tag.Read status=tag.QualityCode w poprawnym połączeniu z PLC "status" przyjmie wartość 128
Witam AD 1Tak skrypt należy wywołać za każdym razem ( skrypty nie są zapętlone) AD2, jeżeli robisz archiwizację tylko na pendriva, musisz go mieć włożonego cały czas, gdy archiwizujesz zmienne. W tym wypadku nie ma możliwości wkładania pendriva co jakiś czas. Rozwiązaniem jest zastosowanie dodatkowej karty SD, na którą cały czas archiwizujesz dane i...
Może brak mu ścieżki dostępu do pliku wykonywalnego? c: cd\ cd windows cd system32 i później już normalnie bez ścieżki nircmd.exe Sprawdziłem, niestety to nie rozwiązuje. Gdyby ktoś miał możliwość sprawdzić u siebie i znalazłby rozwiązanie - będę wdzięczny za pomoc. EDIT W międzyczasie znalazłem inne rozwiązanie celem zamiany tekstu na mowę, mianowicie...
Witam, https://obrazki.elektroda.pl/9151418400_... Nie wiem dlaczego skoro poprawnie odczytuje nazwę arkusza... ktoś podpowie gdzie jest problem? Oto moje makro: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim ShtName As String ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1) Sheets(ShtName).Visible...
Przerobiłem wcześniej podany skrypt na coś takiego, jednak dalej otrzymuje błąd makra w momencie podania nieistniejącego użytkownika. :) [syntax=vbscript]Private Sub cmdOK_Click() Dim zmienna As String Unload wybor zmienna = LCase(TextBox1) If zmienna <> "" Then If IsObject(Worksheets(LCase(zmienna))) Then Unload skoroszyt Worksheets(LCase(zmienna)).Activate...
Przepraszam za "podłączenie" Javy Sun-a do JavaScript (bo to rzeczywiście dwa różne języki jak zauważył OMAN ) ale akurat instalowałem Javę Suna u siebie i temat nieco mnie zmylił. Wracając do tematu, ustawienia podane przez OMAN-a powinny wystarczyć. Sprawdź czy Twoja przeglądarka wyświetla prawidłowo tą stronę http://webmaster.helion.pl/kurshtml/skry...
Ze screena widzę że nie masz otwartego arkusza "Zeszyt2.xlsx" Musi być otwarty w tej samej instancji excela. I tak się nazywać. Masz w tej instancji otwarte dwa arkusze. Oba mają nazwę "Zeszyt1." a dalej nie widać. Dlatego masz błąd bo w kolekcji Workbooks nie masz takiego z nazwą "Zeszyt2.xlsx". Ten skrypt wyświetli Ci w oknie Imediate listę otwartych...
Niestety powyższe skrypty tego nie rozwiazuja Bo to są przykłady, a nie rozwiązania. Ciężko przerobić A na C i 5 na 60? [syntax=vbscript]Private Sub Workbook_Open() Dni = 30 MsgBox "Promocje kończące się za " & Dni & " dni: " & Application.CountIf(Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row), "=" & Dni) Dni = 60 MsgBox "Promocje kończące się...
Witam, wiem, że taki temat już był, ale został już zamknięty a napotkałem problem z którym nie mogę sobie poradzić, więc nie pozostaje mi nic innego, jak otworzyć nowy i prosić o pomoc . :roll: Potrzebowałem makra, które z danego folderu będzie otwierało zawsze ostatnio zapisany plik. Na początku chciałem aby pliki były przeszukiwane po nazwie (nie...
No nie mam już głowy. Powyższe oczywiście działa skrypt odpala plik i czeka 15s zanim uruchomi makro. Niestety nie wiem dlaczego plik uruchomiony w ten sposób przez skrypt nie chce się aktualizować, nie łączy się z bazą a ten sam plik uruchomiony kilka chwil później ręcznie robi to bez problemu. Usuń te 'true' bo wtedy masz plik tylko do odczytu. [syntax=vbscript]Set...
Dzięki. Zastosowałem się do twojej sugestii i teraz makro działa tak jak chciałem. Ostatecznie wygląda to j.n.: [syntax=vbscript] If Worksheets("SPR").Range("C81").Value Mod 4 <> 0 Then With Worksheets("SPR").Range("BG91:BH97").Int... .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.249946592608417 End With...
Na początek musisz jednoznacznie określić co rozumiesz jako "zeszyt", a co jako "arkusz" :D bo chyba trochę pokręciłeś, oraz określić format excela (xls czy xlsx ?). Przyjmuje że "Workbook" to "zeszyt" i "Worksheet" to arkusz, a dalej zgodnie z Twoimi założeniami - w arkuszu "Dane" masz ustawioną (w kolumnie 19 :?: ) tabele nazw dla nowych arkuszy (domyślam...
Witam, Potrzebuję pomocy w stworzeniu skryptu arkusza kalkulacyjnego Google który będzie kopiował zakres komórek wskazanego wiersza np. A1 do E1 w pierwszy pusty wiersz w arkuszu. Aktualnie używam makra z Excel 2007 wyglądającego tak: 721591 Wydzielono z http://www.elektroda.pl/rtvforum/topic23... [adamas_nt]
Witam, w skrócie próbuję wpisać do bazy danych wartość zmiennoprzecinkową i niestety indusoft się gubi. Wpisu dokonuję poprzez kod: Dim RecipeId, RecipeName, msg, ret, sql, numCur, numRows, ParamId, ParamValue, id, ParamValue1 RecipeId = $RcpNumber RecipeName = $RcpName msg = "Are you sure you want to save the edited values into the recipe " & RecipeId...
prosiłbym o pomoc w znalezieniu błędu w kodzie, dysponuję takim oto napisanym przez siebie kodem. [syntax=vbscript] Private Sub Workbook_Open() Dim Wydano, Dzis As String 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()" Wydano = Worksheets("licence").Cells(1, 16) Dzis = Worksheets("licence").Cells(2,...
W oryginalnym pliku Prot_plik.xls zastosowany jest m.innymi kod: Jeśli zmieniana komórka jest niepusta to wypełnienie ustaw na szary i kolor czcionki na szary, jeśli inaczej to kolor wypełnienia ustaw na niebieski" . Nie wiem co zmieniłeś w kodzie lub arkuszu, żeby uzyskać taki efekt jak na Twoim zrzucie ? Proponuję wróć do oryginału :D
Cześć Skryptem VBA w Excelu tworzę dokument Worda. Chciałbym by dokument Worda zapisał się tam gdzie plik Excela. W moim przypadku lokalizacja zapisywanego pliku dla Excela deklarowana przez zmienna localization Jak w kodzie VBA dla Excela sterując Wordem przekazać wartość Excelowskiej zmiennej localization dla Worda, tak bym mógł z niej korzystać?...
W formularzu 'Menu', czyli tym, który otwiera się po otwarciu bazy, w zdarzeniu 'Przy otwarciu', umieść ko: Próbuje tak właśnie zrobić ale niestety skrypt nie działa moja kwerenda, która liczy czy ktoś ma ważne badanie nazywa się "Ważność Badań okresowych", a formularz, który to pokazuje te dane w postaci arkusza danych nazywa się tak samo "Ważność...
Doskonale Też już znalazłem to: https://learn.microsoft.com/en-us/archiv... https://www.youtube.com/watch?v=BISQwNjP... https://learn.microsoft.com/en-us/dotnet... Super działa Dodano po 9 Więc sam skrypt działa ale dodając go do uruchomienia...
W tej sytuacji musisz powiązać zmienną iteracyjną pętli (w poniższym przykładzie "i")z indeksami lub nazwami arkuszy. Jeśli indeksy drukowanych arkuszy zwiększają się o jeden, użyj właśnie indeksów. Jeśli nie, powinieneś odwołać się do nazw arkuszy (chyba, że drukujesz wszystkie arkusze ze skoroszytu - wówczas można jeszcze inaczej). Przykładowy kod...
Jest ktoś w stanie mi pomóc edytować tą funkcje , tak żeby się blokowała ? To jest niemożliwe do zrealizowania z tzw. funkcją nietrwałą :cry: Jeśli chcesz uzyskać taki efekt Timestamp :idea: :D możesz wykorzystać np. Apps Script uruchamiany wyzwalaczem "on edit" :spoko: [syntax=vbscript]function onEdit() { var s = SpreadsheetApp.getActiveSheet(); if(...
to co pisałem wyżej już nie ważne mam taki skrypt chodzi o to żeby wartość ze zmiennej "temp" zastąpiła tą wartość rejestru "{9E370914-E7F5-4DAE-A3FC-A153ADB9CA53}" żeby było to z automatu nie ręcznie Dodano po 37 czy tak będzie dobrze? [syntax=vbscript]Option Explicit On Error Resume Next Dim objShell, Temp Temp = ReadReg("HKEY_LOCAL_MACHINE\SOFTWARE\ESE...
W start -> uruchom wpisz regsvr32 vbscript.dll i ponownie spróbuj zainstalować program sprawdź czy przeglądarka lub antywirus nie blokuje wykonywania skryptów .
Witajcie, potrzebuję podjąć decyzję, w jakim języku programowania (pod Windows) napisać skrypt lub aplikację, która mogłaby ściągnąć masowo archiwalne ceny akcji GPW ze strony [url=http://www.money.pl/gielda/archiwum... Myślałem o BAT (konsolowo przez wget), VBScript, C# lub C++. Jednak muszę tutaj wejść w komunikację po HTTP żeby wysyłać...
https://obrazki.elektroda.pl/6354148500_... Jest to typowy, uproszczony układ przetwornicy podwyższającej z tranzystorem przełączającym MOSFET. W artykule EP 7/2012 od strony 92 jest opisany sterownik takiej przetwornicy, zbudowany na ATtiny13 oraz stosowne obliczenia, które są identyczne jak dla układu MC34063. Wykonuję takie obliczenia...
Cześć, niżej wrzuciłem kod dla stopera, który wyświetla się w prezentacji PowerPoint. Niestety skrypt pożera olbrzymie zasoby i bywa niestabilny. DA się go jakoś zoptymalizować ? [syntax=vbscript]-----------------------... Dim dteStart As Date Dim dteFinish As Date Dim dteStopped As Date Dim dteElapsed As Date Dim...
Chciałbym, aby wartości z pliku "Stary" zostały przeniesione do pliku "Nowy". Mam taką linijkę kodu, ale pokazuje mi błąd. Co robię źle? 3.1.12. Nie wysyłaj wielu jednakowych tematów na forum, użytkownicy nie będą wiedzieć, gdzie mają odpowiadać. Proszę założyć jeden temat i w nim prowadzić dyskusje o swoich skryptach. Zakładanie kilku tematów dla niemal...
Net use (CMD): [syntax=dos] net use w: /DELETE net use w: \\192.168.10.5\iRT /USER:nazwa_użytkownika hasło [/syntax] Net use (VBS) [syntax=vbscript] dim objNetwork Set objNetwork = CreateObject("Wscript.Network") objNetwork.MapNetworkDrive "W:", " \\192.168.10.5\iRTr", False, "nazwa_użytkownika", "hasło" [/syntax] Kodu VBS nie mam jak teraz sprawdzić...
Użyłem komendy do zatrzymania skryptu jeśli warunek nie zostanie spełniony If IsError(a) Then Exit Sub problem polega na tym że wyłącza mi to całkowicie skrypt a potrzebuje by po wypełnieniu tego warunku po prostu zatrzymał się i wrócił do początku nasłuchując z powrotem informacji z 1A Z góry dziękuję za okazaną pomoc [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
Cześć, po kilku miesiącach wracam do tematu przy okazji nowego zagadnienia. W małym skrypcie potrzebuję, by dane wczytywane z pliku z innej lokalizacji były prezentowane w ComboBoxie w formie dwóch kolumn. Poniższe rozwiązanie nie wyrzuca mi co prawda błędu, ale nie daje również wyniku, bo pole kombi zawiera dwa puste wiersze. https://obrazki.elektroda.pl/1888822000_...
...a co w sytuacji kiedy jest: ... Podobno jest jakiś skrypt żeby wyszukał osobe i jej czas wejścia i wyjścia jednego dnia, trzeba tylko zrobić dwie bazy jedną rosnącą drugą malejącą co też zrobiłem, jaki jest zatem następny krok, jakiej uzyć formuły? Pytanie wprawdzie nie do mnie :D , ale mogę podpowiedzieć, że bez VBA przy użyciu standardowych funkcji...
Autor postu rozpoczął: Mam problem z dodaniem załącznika z konkretnego katalogu Jeden z kolegów naprowadzał na Explorator plików, drugi na okno dialogowe :!: - ale autor zamiast krótkiego kodu wyboru pliku przy użyciu okna dialogowego np. [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen...
dzięki wielkie działa wyśmienicie. Można prosić o podpowiedź jak wykonać taki skrypt ? Chodzi mi o analizę i konkretnie funkcję Licz czerwone tylko wtedy gdy kolumna 4 zawiera słowo "FIRST-OFF" Docelowo wykorzystywał będę 26 kolumnę z datą . Aby rozbić analizę na dni. Tzn. w innym arkuszu przydzielić dziennie liczbę czerwonych ( niezgodne, zależne od...
Jeśli to sam sporządziłeś ten kod makra i masz wolę go usprawnić - to proponuję nauczyć się przede wszystkim tzw debugowania skryptów - zakładka deweloper :arrow: makra :arrow: wkrocz :arrow: i dalej przez F8 krok po kroku analizujesz co robi (lub nie robi :D ) Twój skrypt (makro). po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się...
Chodziło chyba o to, że w .PageSetup.PrintArea podaje się zakres komórek do wydruku, a u Ciebie są tam jakieś ścieżki podane... W każdym razie spróbuj może dla odmiany drukowania z linii komend i starego, dobrego .vbs ;) Choć zdaje się, że VBA też to zrozumie jak wstawisz ten kod do makra... 1. utwórz plik z rozszerzeniem .vbs i wklej mu poniższy kod,...
Poprawiony plik. OK, OK, bo co się nie zapytać, czy z czego nie skorzystać to często ludziska się czepiają, stąd taka nerwowość. Sorry zatem. Już skumałem mniej więcej te zdefiniowane obiekty i pętlę. teraz tylko myślę, jak to zrobić tak żeby nie trzeba było zmieniać w kodzie nadawcy oraz hasła każdorazowo, bo może to obsługiwać wielu użytkowników...
Witam. Mam fragment kodu, który pozwala na edycję danych wpisanych w kolejne komórki wiersza tabelki. Kod pozwala na wybór wiersza, a następnie wyświetla formularz z aktualnie wpisanymi danymi - można w polu formularza je zmienić lub wykasować. Wszystko działa jak należy, o ile w linijkach odwołujących się do kolejnych komórek nie pojawi się liczba...
Witam, mam problem z napisaniem oto tego prostego programu, mianowicie: https://obrazki.elektroda.pl/5125283400_... W polu "Wpisz nazwe domeny" program pobiera nazwe, powiedzmy np google.pl [Nazwe sami wpisujemy w programie] W polu liczba domen wpisujemy liczbe np 100 [Liczbe również sami wpisujemy w programie] Wiadomo, klikamy generuj....
Zacząłem już coś pisać, nie jestem expertem :D ,ale nie działała tak jak powinno mam problem z warunkami Jestem pełen podziwu, że z umiejętnościami poniżej poziomu "eksperckiego" podejmujesz się budowy tak złożonego projektu :idea: Przy tworzeniu każdego projektu VBA - ja (też nie uważam się za eksperta :D ) preferuję tworzenie modułowego modelu funkcjonalnego...
Zrobiłem to na około ale działa, może komuś się kiedyś przyda. Skrypt otwiera excela, robi na nim działania - czyli tworzy nowy arkusz, kopiuje z Arkusza 1 odpowiedni zakres i wkleja do nowego. Następnie całość nowego arkusza jest zapisywana do tabeli w accesie. Pamiętajcie żeby dopisywać w accesie w moim przypadku "objExcel" - gdyż później nie chce...
ok udalo mi sie ogarnac, dopne temat do konca to wrzucę skrypta, moze sie komus przyda;) Dodano po 3 ja mam to zrobione w wyskakującym okienku w buttonie kod ponizej: [syntax=vbscript]Private Sub CommandButton42_Click() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0)...
Próbowałem już chyba wszystkiego łącznie z programem No IP DUC, bo myślałem, że to może być to. Używałem wielu kodów html i nadal nie działa (na moim komputerze). :cry: Nie wiem już na prawdę co robić. Dam wam linki do przetestowania (może tylko na komputerze nadającym nie działa). Dodano po 2 Nie zawsze nadaje obraz. Jak już ktoś będzie chciał mi pomóc,...
skrypt serwisu skrypt skaner skrypt kopiowanie
sterownik dogrzewacza grzałka zużyta obciążenie procesor laptop
Pomyłka w podaniu stanu licznika Tauron - jak skorygować? Urządzenia do pomiaru obrotów silnika w dalekopisie