makro execute

VBA Kopiowanie danych bez otwierania pliku. ExecuteExcel4Macro/ADO

Witam, Mam makro, które zaciąga dane z 30 różnych exceli z jednej konkretnej zakładki. Chce to zrobić bez otwierania każdego pliku na dysku sieciowym, co sporo czasu zajmuje. Znalazłem w sieci przykładowe makra na podstawie ExecuteExcel4Macro oraz ADO, ale mam problem, gdyż pliki, które chce otworzyć są zahasłowane (niewiem gdzie w kodzie dać hasło)...

Outlook - makro - edytowanie treści wiadomości przesyłanej dalej

Super, dzięki :D. Nie wiem tylko jak wrzucić adres e-mail z treści do pola odbiorcy... Dodano po 21 I nadal nie wiem co z tym .Execute?

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Word VBA kreator makro nie rejestruje opcji "Zaznacz w Dokumencie Głównym.

Dzięki, ale z twoim uzupełnieniem makro USUWA wszystkie zielone teksty które dokona zaznaczenia w całym dokumencie wszystkich wystąpień fontu z danym formatowaniem, by można było usunąć teksty z tym formatowaniem [syntax=vbscript]Sub Makro2() ' ' Makro2 Makro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Color = 5287936 With Selection.Find...

Excel - Makro automatyczne sortowanie dat oraz budowanie zestawienia

Dodać to jako moduł tak? - jak oddaje w arkuszu wydruk lub jako moduł to otrzymuje informacje o braku end sub, jak dopisuje end sub to mam "can't execute code in break mode"

Makro VBA do otwierania pliku źródłowego z hasłem bez okienka hasła

[syntax=vbnet]arg = "'" & ActiveWorkbook.Path & "\" & "[" & "1.xls" & "]" & "Arkusz1" & "'!" & Range("A3").Range("A1").Address(, , xlR1C1) a = ExecuteExcel4Macro(arg) [/syntax]

Jak zmienić kolor czcionki po podmianie tekstu w Word przez makro Excel?

Może nie wie o który fragment wtedy chodzi? Oczywiście, że nie wie. Musisz najpierw zaznaczyć tekst. Użyj metody Find. [syntax=vbscript]With wordApp.Selection.Find .Forward = True .ClearFormatting .MatchWholeWord = True .MatchCase = False .Execute FindText:="$DA" End With wordApp.Selection.Font.Color = 0[/syntax] P.S. Piszesz ten kod na zasadzie, czy...

[Excel 2007] - makro do pobierania danych z innych plików *.xlsx

Witam, Wstawiłem tak jak napisałeś i niestety pojawia mi się komunikat: can't execute code in break mode i nie idzie makro

Excel - Makro do sumowania danych z 500 plików xls do UŻYWANE.xls

Prawie dobrze ;) Spróbuj: [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("D1:F10") 'tu dopisz ile trzeba ark = "Arkusz1" On Error Resume Next 'If ofs > -1 And Err = 0 Then With Sheets("Arkusz1") 'nazwa arkusza docelowego w UŻYWANE.xls For Each rn In rang .Range(rn) = Empty Next Do While myname...

Word 2003 - jak wstawić tekst z kolumny do dokumentu?

Poproś kogoś od obywateli, aby wykazać, jak włączyć makro trochę się obawiam, że nie jestem w stanie wytłumaczyć z mojej gramatyki w menu Narzędzia - makro - zabezpieczenie niedźwiedź średnia - Pan zdecydowała, czy umożliwić działanie makra [syntax=vb]Sub Petla() Dim isWsz As Boolean, i&, fnd$, rpl$ While Not isWsz i = i + 1 fnd = "[" & i & "]" rpl...

Jak stworzyć makro do otwierania skoroszytów i kopiowania danych z komórki D3?

Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...

VBA - Excel do Word: Kopiowanie Tekstu jako Nagłówki (A1:A10 - Nagłówek_1, A5 - Nagłówek_2)

chodzi mi ... tylko o nagłówek w stylach formatowania Jeśli tak to proponuję po wprowadzeniu całej treści raportu do Worda - przeprowadzić modyfikację stylów przy pomocy VBA w samym Wordzie :D Przykładowo jeśli będziesz miał wprowadzoną w treści raportu trzystopniowe numerowanie działów, rozdziałów i podrozdziałów (typu 1. ; 1.1. ; 3.1.5. ) to można...

Jak stworzyć makro do przenoszenia danych z EXCELa do WORDa?

Dodaj taką sekcję: [syntax=vb] 'zastępowanie w polach tekstowych wordDoc.ActiveWindow.ActivePane.View.See... = wdSeekMainDocument For Each shp In wordDoc.Shapes shp.Select Set wordSelection = wordApp.Selection With wordSelection.Find .Text = "$SKLEP" .Forward = True .MatchWholeWord = True .Replacement.Text = Cells(w, 3).Value .Execute Replace:=wdReplaceAll...

VBA+WORD2013+wydruk biezacej(podanie nr storny wydruku)

Dzieki postaram ale nie wiem czy poradzę sobie. Dodano po 2 Udało się. Makro drukuje bieżąca strone: Sub Makro1() Dim CurPg As Integer CurPg = Selection.Information(wdActiveEndPageNum... With Dialogs(wdDialogFilePrint) .Range = wdPrintRangeOfPages .Pages = CurPg .Execute End With ' End Sub Zamykam temat

Usuwanie fragmentów tekstu w Wordzie za pomocą makra VBA - szukanie i kasowanie ciągu znaków

Załączam przykładowy dokument z którym się borykam. Potrzebuję taki dokument "czyścić" z niepotrzebnych fragmentów. Na przykład taki ciąg znaków "1H NMR" występuje tutaj (dla przykładu) dwa razy. Potrzebuję odnaleźć wszystkie wystąpienia takiego ciągu, oraz usunięcie wszystkiego wraz z nimi końca akapitów. Wyrzeźbiłem coś, co potrafi wykonać zadanie...

[EXCEL] - Aktualizacja danych z zamkniętych plików.

Chodzi o to, że plik główny musi być cały czas włączony właśnie. ='C:\Users\Tomasz\Desktop\ Dodano po 1 Znalazłem rozwiązanie. Podaję kod VBA: Private Function GetValue(path, file, sheet, ref) ' Retrieves a value from a closed workbook Dim arg As String ' Make sure the file exists If Right(path, 1) <> "\" Then path = path & "\" If Dir(path...

Excel - makro do automatycznej aktualizacji łączy w plikach xls

Nie baw się w makra, tylko wydziel sobie arkusz i wstaw w nim 50 łączy do plików. W arkuszu "raport" oblicz tylko sumę... Z drugiej strony: jeśli już koniecznie VBA, to bez wstawiania łączy i otwierania plików zrobisz to wygodnie za pomocą ExecuteExcel4Macro z odpowiednimi argumentami.

[Excel VBA] Jak skopiować specyficzne dane z pliku A do B?

Dzieki za pomoc :) Kurcze wciaz mam problem. Probowalem przerobic makro pod swoje dane (zasada dzialania taka sama)i mam nastepujacy problem z tym Plik raport sciaga sie z ERP i tam dane ktore mnie interesuja zaczynaja sie w komorce A (od 5 wiersza , 4 wiersze to naglowki wiec powinno byc range ("A5")?). Dane maja sie skopiowac do pliku makroS do kolumn...

Jak napisać makro do kopiowania wierszy z plików xls zabezpieczonych hasłem?

ale nie mam pojęcia jak ominąć hasła i jaki kod zastosować aby makro skopiowało zakres ze wszystkich plików. 1. Hasła trzeba znać, nie omijać. No, może z nielicznymi wyjątkami. Poszukaj informacji o ExecuteExcel4Macro 2. Jest kilka przykładów na forum. Np Na pewno odwdzięczę się za pomoc. Hmm, czytałem o przesyłaniu zapachów (jakiś chemiczny generator...

Makro VBA do tworzenia i zapisywania etykiet z pliku DANE ETYKIET

Rety! Po kolei. Nie chcesz otwierać pliku, OK. Ale po co przepisywać jeśli można pobrać do zmiennych, albo od razu do wzorca (tu trzeba zdecydować i ustalić kolejność). Krok 1 - pobieranie danych z pliku. Wypróbuj takie coś (katalog z plikiem skopiowałem sobie na pulpit) [syntax=vbscript]wrs = 2 pth = Environ("USERPROFILE") & "\Desktop\Etykiety\" plik...

Excel - jak dynamicznie zmieniać ścieżki dostępu do plików z danymi?

Niestety, ADR.POŚR działa tylko na otwartych plikach, a szkoda. Pozostaje VBA... Możesz: 1) połączyć otwieranie plików przy pomocy makr + ADR.POŚR 2) proste makro otwierania pliku i kopiowania danych 3) trudniejsze w składni, ale dające możliwość kopiowania z zamkniętych plików, makro z wykorzystaniem funkcji ExecuteExcel4Macro.

EXCEL VBA - odczyt metodą ADODB z otwartego pliku (udział sieciowy)

Witam serdecznie, Mam problem z odczytem danych metodą ADODB z innego arkusza Excel będącego na udziale sieciowym i który może być otwarty przez inną osobę na swoim komputerze. Korzystam z funkcji napisanej przez Tajana: [url=http://www.excelforum.pl/viewtopic.... do ExcelForum - Funkcja GetValue. O ile funkcja ma podstawowe zadanie czytać...

EXCEL - Jak stworzyć makro do generowania PDF z arkusza i pobierania danych?

Punkt dwa był już niejednokrotnie na elektrodzie przerabiany. Np Wydaje mi się, że stworzona tu funkcja może być rozwiązaniem mojego problemu. Ale.. nie działa mi. :-( - błąd argumentu. Nie panuję nad składnią definicji argumentu, tam chyba siedzi jakiś knyf... Function GetValue(path, file, sheet, ref) 'path - Scietka zamkniqtego pliku (np. "a:\pliki...

[VBA] Makro pobierające dane z innych arkuszy oraz makro wyk. na wsz. plikach fo

Witam, mam dwa problemy pierwszy z nich to niedziałąjące makro pobierające dane z innych plików oraz nie potrafię zbudować makra które by się wykonywało na wszystkich plikach z folderu. 1) Tutaj wydaję mi się że powinno pobierać wartość jednej komórki z każdego pliku z podanej ścieżki. Żadnego błędu nie wywala. Makro się wykonuje

VBA Excel 2013 - Jak ukryć menu i wstążkę po podwójnym kliknięciu paska tytułu?

.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")" Przecież wiersz z tą funkcją znajduje się w procedurze którą zamieściłem w moim poście. Napisałem też, że makro ukrywa to co ma ukryć, natomiast szukam rozwiązania problemu powstającego wtedy, kiedy użytkownik podwójnie kliknie na pasek tytułu Excela - wtedy się wstążka "odkrywa", mimo iż programowo...

Jak zmodyfikować makro VBA do kopiowania danych z plików Excel?

Znalazłam na waszej stronie poniższe marko : [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets("BUD") x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("Y:\CGEurope\Files\SOC Reports\2020\Bridge files") 'Tu trzeba wstawić ścieżkę roboczego folderu For...

Makro Excel - Przenoszenie danych do Word, problem z podmianą $imie

Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...

Word, Zapis jako z makrem. nazwa pliku jest nieprawidłowa.

Witam, Mam problem z makrem w Wordzie. Mianowicie makro miało mi tworzyć kopie pliku z odpowiednią nazwą, którą odczytuję z jednej komórki tabeli. Miał być początkowy człon następnie dzisiejsza data i na koniec nazwa firmy. Niestety po napisaniu tego makra (dopiero się tego uczę) przy samym zapisie wyskakuje błąd że Nazwa pliku jest niepoprawna. Dokładnie...

Excel - Jak sumować dane w stopce na każdej stronie wydruku?

Witam Tym razem nie wiem jak to ugryźć. Mam tabelę w excelu (powiedzmy 100 wierszy z liczbami) które drukują sie na np. 4 stronach. Nie mogę "rozwalić" ciągłości tabeli, więc nie mogę wstawiać dodatkowych wierszy (chyba że tylko na moment wydruku). Docelowo arkusz może mieć zmienną liczbę wierszy z danymi. Innymi słowy potrzebuję uniwersalnego rozwiązania...

Excel makro VBA - Importowanie komórek z innego pliku przez makro

Hej, mam problem z moim makrem. Chciałbym zaimportować pewne komórki z innego pliku poprzez makro. Działa już prawie wszystko ok tylko w tych komórkach są daty. Zasięg importu jest większy niż dane które chce ściagnąć z tego względu że co chwila ktoś dodaje nowe wiersze itd. Tak więc gdy zaciągam dane to w moim pliku z makrem w miejsce pustych komórek...

Makro VBA do przefiltrowania danych w kolumnie 'K' i zapisu wyników w osobnych plikach

Ano się używa. Spróbuj na początek z taką procedurką: [syntax=vbscript] Private Sub RunSELECT(S As String, R As Range, Optional Fn As String = "") Dim Rs As Object If Fn = "" Then Fn = ThisWorkbook.FullName With CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & Fn & ";" & "Extended Properties=""Excel...

Makro [VBA WORD] do ustalania zakresu generowanych plików

Dzień dobry, dobry wieczór! Mam sobie taką korespondencję seryjną do generowania dokumentów, makro mi je dzieli na konkretne pliki, do nazwy używa odpowiedniej komórki, wszystko super. Ale potrzebuję je trochę ulepszyć. Chciałbym móc decydować jaki zakres rekordów będzie generowany. Czyli np, jest w bazie wpisane 20 rekordów, ja chcę wygenerować od...

VBA Excel – wypełnienie szablo - VBA Excel – wypełnienie szablonu – działajšce m

Dzień dobry, Dziękuję za wcześniejszą pomoc i link do strony www z kursem. Niestety moja wiedza i doświadczenie nie pozwalają mi zbudować "funkcji" na podstawie tego opisu :) 1. Nie rozumiem jak "kilku poziomowe makro" zapisać w formie argumentu dla funkcji :). (absolutnie to nie jest pretensja - to kwestia mojej niewiedzy - przepraszam) - czy ktoœ...

[Visual Basic] Makro Office 2003 nie działa z Office 2007

Witam. Korzystam z makra które ma porównywać wartości w różnych plikach, jeśli znajdzie takie same komórki to kopiuje komórkę która znajduje sie obok. Makro zostało napisane jakiś czas temu i działa bez większych problemów na komputerze z MS office 2003. Jednak ja korzystam z office 2007 i tutaj pojawia się problem. Makro przerywa działanie zaznaczając...

Automatyzacja kart urlopowych z Excela: przycisk Generuj karty i zapis plików

jak zdefiniować formularz ? może jakiś przykład ? Zostańmy na razie przy przycisku (który może mieć przypisane makro, a makro - to nic innego niż kod VBA). Zakładam, że masz dokument korespondencji seryjnej, otworzyłeś go, wybrałeś źródło rekordów. Stwórz i uruchom sobie makro z następującym kodem: [syntax=vb]With ActiveDocument.MailMerge .DataSource.FirstRecord...

Wprowadzanie warunku w kwerendzie przy uruchamianiu makra w ACCESIE

Wrzuć SQL do kodu VBA , a wymagane dane wprowadź np. za pomocą inputBoxa. Przykładowo: [syntax=vbscript] Dim sSQL As String, idRaport As Long idRaport = InputBox("Podaj ID raportu", "Wprowadzenie danych") sSQL = "INSERT INTO KS_delta_przedostatnie_dane " _ & "SELECT * FROM slajdy_KS_baza " _ & "WHERE id_raportu = " & idRaport dbs.Execute...

Makro do Worda - wstawianie twardej spacji przy jednostkach i liczbach

Witam, jestem na etapie pisania pracy inżynierskiej, napisałem sobie część makra która wstawia mi twardą spację po każdym ze spójników z tablicy (nie wiem czy jest to dobry pomysł, ale nie umiem napisać makra, które znajdzie wyraz na końcu linijki i wstawi po nim spację. Chciałbym do niego dodać kilka rzeczy i proszę o pomoc, otóż nie wiem jak umieścić...

Makro VBA do wprowadzania danych na serwer SQL z arkusza Inserter

Kalendarz jest spoko, dzięki PRL zaraz sobie zmodyfikuje mój formularz. Generalnie w jakiś sposób poradziłem sobie z datą , stosując jakiś kod znaleziony w necie i działało. Wczoraj testowałem formularz, wbijał wszystkie dane elegancko do tabeli na serwerze SQL. Przychodzę dzisiaj, mimo że nic nie zmieniałem w kodzie i ten sam kod już nie działa i wyskakuje...

Jak napisać makro do Worda wstawiające znak BP i numer producenta w etykietach RTF?

Żeby nie grzebać już w schowku to najprościej jest zmodyfikować warunek i dopisać "/". Np.: [syntax=vbscript](...) If .Find.Found Then .Copy .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1 .Find.Text = "-[0-9]{8}" .Find.MatchWildcards = True .Find.Execute If .Find.Found Then .TypeText Text:="/" .Paste (...)[/syntax]

Jak napisać makro w Wordzie do zamiany słów Nie na Tak?

Zarejestruj nowe makro i wykonaj zamień to powstanie Ci taki kod: Sub Nietak() ' ' Nietak Makro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatti... With Selection.Find .Text = "tak" .Replacement.Text = "nie" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord...

[Ms Access/VBA] - Automatyczne wysyłanie maili - jak zamienić makro z excela?

Witam, Mam makro do automatycznego wysyłania maili w Excel'u, jednak potrzebowałbym zrobić takie samo makro do bazy danych w Accesie. Nie pisałem nigdy odwołań do Accessa i nie wiem ja ogarnąć odwołania do rekordów itd. Struktura bazy danych w Accesie jest taka sama jak w Excelu. Kod który posiadam w Excelu to: [syntax=vb][/syntax] Private Declare Function...

Excel - Odwołanie do innego arkusza z nazwą z wybranej komórki

Jednak uwielbiam proste rozwiązania :) Wklej w kod arkusza wynikowego takie makro [syntax=vbscript]Option Explicit Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, myFile As String Dim ark As String, rn As String, arg As String If Target.Address(0, 0) = "A3" Then myPath = "G:\TP\01. Administration\1.1 Work...

kopiowanie arkuszy z wybranych plików Excela (VBS)

Filedialog to strzał w 10 ;), nie wiem tylko jak powinna wyglądać funkcja która wykorzystywałaby ścieżkę do pliku Excela (kod do pliku - vrtSelectedItem) do przekopiowania np. wszystkich arkuszy z wybranego skoroszytu do skoroszytu w którym mam napisane makro. Sub Makro1() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialog...

Jak poprawnie uruchomić makro do zamiany tekstu w plikach .doc?

Witam! potrzebuje zamienić jedno słowo w kilkuset plikach worda. W każdym pliku zamienić trzeba to samo słowo na takie samo inne. Znalazłem sobie do tego makro jednak z niewiadomych przyczyn nie działa. może po prostu źle je uruchamiam? Czy ktoś mógł by mi pomóc. Oto makro: Sub BatchReplaceAll() Dim FirstLoop As Boolean Dim myFile As String Dim PathToUse...

Konwersja *.docx do *.pdf - podgląd przypisów dolnych

Udało się skleić/napisac 2 makra, które robią robotę. Makro (1 i 2) zadziała o ile mamy poprawnie użyte style w dokumencie. (w opcjach stylów włączyć pokaż wszystkie style) Jeżeli nie to: -zmienić styl odnośnika do przypisu dolnego (w tekście) na styl "Odwołanie przypisu dolnego" np. jeżeli odnośnik ma styl "Normalny" używamy: https://obrazki.elektroda.pl/9955118700_...

MAKRO-VBA EXCEL: Automatyzacja kopiowania danych i tworzenia wykresów

Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...

[EXCEL, VB] Jak przerobić makro z Excel 2003 na Excel 2007 bez Application.FileSearch?

Witam. Proszę o pomoc w przerobieniu makra z Excela 2003 na makro pod Excel 2007. Wywala w linii z : Application.FileSearch ponieważ Excel 2007 nie obsługuje tej komendy. [syntax=vb] Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i, wiersz As Long Dim sciezka As String dato = Range("B3") ' nazwa folderu z plikami do pobrania danych sciezka =...

VBA WORD - Jak zmusić makro do zapisu stron PDF z podziałem tabel?

Siedziałem główkowałęm i rozwiązałem to trochę w inny sposób. Podziały stron zastąpiłem na podział sekcji Potem mały kawałek z wybieraniem kolejnej sekcji (tu musiałem dodać małe przesunięcie zaznaczenia aby pominąć zaznaczenie podziału sekcji bo wrzucało na PDF-ie pustą stronę na końcu) A potem Pdf z zaznaczenia przez Range := wdExportSelection Poniżej...

VBA + excel + update (jak sprawdzic czy dany rekord istnieje w bazie danych)

Swoją zabawę z vba i excelem rozpoczęłam od wczoraj... Napisałam makro, które robi aktualizacje cen. W excelu podawany jest kod towaru, cena, która jest aktualizowana dla tego towaru oraz dla którego cennika cena ta ma być aktualizowana. Wszystko w tym dodatku jest teoretycznie okej i teraz tu moje pytanie... Jak sprawdzić czy dany rekord w ogóle istnieje...

Korespondencja seryjna + zapis pliku pod nazwą z kolumny bazy danych

Skopiowałam sobie poprawione według wskazań powyżej makro, które teraz wygląda tak: Sub Test() Call DoOsobnego(oWzorDoc:=ActiveDocument, _ sDir:=ActiveDocument.Path) End Sub Public Function DoOsobnego(oWzorDoc As Word.Document, _ ByVal sDir As String) As Boolean On Error GoTo DoOsobnego_Error Dim r As Long Dim lngRecs As Long If Right(sDir, 1) <>...

[Exel, Vba] Excel VBA: Sortowanie według roku i numeru dokumentu w makrze

Może wystarczy przestawienie cyfr w tablicy[syntax=vb] For i = 1 To UBound(tbl) tblTemp(i, 1) = tbl(i, 1) vVar = CDbl(objRegExp.Execute(tbl(i, 1))(1)) 'tblTemp(i, 2) = CDbl(objRegExp.Execute(tbl(i, 1))(0)) * 10 ^ 3 + vVar tblTemp(i, 2) = CDbl(vVar * 10 ^ 3 + objRegExp.Execute(tbl(i, 1))(0)) Next[/syntax]

VBA: Jak napisać makro kolorujące zdania zaczynające się na A?

Sub kolor() Dim litera As Range Set litera = ActiveDocument.Range With litera.Find .ClearFormatting .Text = "A" .MatchCase = True .MatchWholeWord = False End With litera.Find.Execute Do While litera.Find.Found litera.Expand wdSentence litera.Font.Color = wdColorBlue litera.MoveStart wdSentence litera.Find.Execute Loop End Sub

Jak stworzyć makro w Wordzie do dzielenia tekstu na 512 znaków i usuwania polskich znaków?

Jak na to? Spróbuj [syntax=vb] Sub del512() With Selection .HomeKey wdStory .Find.Text = " " .Find.Replacement.Text = "^p" While .Start < ActiveDocument.Characters.Count - 511 p1 = .Start While .Start <= p1 + 512 p2 = .Start .Find.Execute Wend .Start = p2 .MoveLeft wdCharacter, 1 .Find.Execute Replace:=wdReplaceOne .MoveRight wdCharacter, 1 Wend...

Jak zamienić tekst na znaki Unicode w makro VBA w Word 2000?

Witam. W pracy mamy archaicznego Worda 2000, na którym ułatwiam sobie robotę papierkową używając makr. Chciałbym, by makro zamieniało mi tekst na znak Unicode. Konkretniej - np słowo Eta chciałbym zamienić na greckie Eta (takie h z kreseczką). Tablica znaków Windows wyświetla mi Etę np w czcionce Times New Roman jako U+03B7. Wstawienie .Replacement.Text...

Excel - Jak zoptymalizować makro do kopiowania wierszy z warunkiem konto?

mam takie makro: [syntax=vb] Sub SearchForString() Dim LSearchRow As Integer Dim LCopyToRow As Integer On Error GoTo Err_Execute LSearchRow = 1 LCopyToRow = 1 While Len(Range("A" & CStr(LSearchRow)).Value) > 0 If Range("E" & CStr(LSearchRow)).Value = "konto" Then Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select Selection.Copy Sheets("Sheet2").Select...

Automatyzacja edycji wielu plików Word bez użycia makr - możliwe rozwiązania?

Makrem da się bardzo duuuuużo rzeczy zrobić. Oto przykład do Twojego problemu. Zrobiłem tak na szybkiego więc.... ale raczej działa: Sub Makro4() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatti... With Selection.Find .Text = "data aktualizacji:^?^?^?^?^?^?^?^?^?^?^?^... 'przy założeniu że format szukanego...

Word makro twarda spacja po spójnikach na końcu wiersza (a,(w,(z,(i,(o,(u

Czy da się je jakoś zmodyfikować żeby działało szybciej? Kod, który podałeś działa dokładnie przechodząc krokowo od wiersza do wiersza i wstawia twardą spację tylko na końcu wiersza - to niestety musi trwać :cry: Jeśli zależy Ci na czasie :?: to mogę Ci zaproponować inne rozwiązanie: za każdym przyimkiem :cry: Nie dla każdego dokumentu i nie każdego...

Kłopot z makrem VBA do eksportu danych z Excela, do bazy MySQL

Takie proste pytanie, co tu jest nie tak? Do tej pętli "już" wszystko działa, łącze się z bazą itp. ale jak przychodzi ta pętla to krecha. [syntax=VBA] Do Until Cells(intImportRow, 17) = "" Chip_ID = Cells(intImportRow, 17) ChipTime = Cells(intImportRow, 18) Location = Cells(intImportRow, 19) conn.Execute "INSERT INTO times (Chip, ChipTime, Location)...

VBA - Uruchomienie procedury SQL w makrze: Łączenie z serwerem, wykonanie, potwierdzenie

Ja od dawna używam czegoś takiego i zwykle działa: [syntax=vbscript] Private Sub RunSELECT(S As String, R As Range, Optional Fn As String = "", Optional Hd As String) Dim Rs As Object If Fn = "" Then Fn = ThisWorkbook.FullName If Hd = "" Then Hd = "YES" With CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString =...

VBA Excel - Makro kopiujące wiersze spełniające warunek z datą skopiowania

Nie moge teraz tego sprawdzić. Znalałem poniższy kod, dostosowałem do swoich potrzeb lecz potrzebuje jeszcze go przerobić i dodać: - zmiast Range("T2") - powinnien pobierać dane z Arkusza3 z komórki B2 - w Arkuszu2 w kolumnie 17 po skopiowaniu powinien dodać date skopiowania - oraz każde skopiowanie powinien dodawać do pierwszego wolnego wiersza w kolumnie...

Protel99se – błąd podczas konwersji schematu na PCB, nie działa eksport

Komunikat Node not found oznacza, że węzeł nie został znaleziony. Zapewne Tobie to nic nie mówi, ale spróbuję Ci wytłumaczyć co powinieneś zrobić, żeby było ok. Na schemacie masz diode, kliknij na niej 2 razy i zaznacz opcję Hidden pins. Wyświetlą się przy niej oznaczenia nóżek 1 i 2. Teraz przechodzimy do płytki. Weż w design polecenie update PCB i...

[dsPIC] [dsPIC][asm30] Długi czas wykonania instrukcji nop w __reset, przyczyny?

a co jest PO tej instrukcji nop? bo skoro petle recznie postawiles pod adreem 0x100, to cholera wie co jest pomiedzy nimi... tak w ogole to ASM30 jest object assemblerem i nie powinno sie uzywac recznego ustawiania czesci kodu. jak juz trzeba, to lepiej zrobic to przez definicje sekcji i nastepnie zadeklarowanie czesci kodu jako nalezacej do danej sekcji....

[atmega8a][assembler] - inicjalizacja wyświetlacza HD44780U

Wybaczcie moje marudzenie ale takie makro wymaga co najmniej dodatkowych dwóch "difajnów". Proponowane "ułatwienie" spowodowało że musimy zamiast 11 znaków wklikać 50 i na dodatek w czasie analizowania skakać po dokumencie aby zobaczyć co oznacza makro a później co oznaczają poszczególne definicje z makra. Wszystko zalezy, z jakiego edytora korzystasz,...

Jak połączyć dokumenty Word utworzone z Excela w jeden plik?

Witam na Elektrodzie znalazłem bardzo fajne makro które tworzy dokumenty "wordowskie" na podstawie danych z tabeli excela. Jestem w stanie przerobić je do swoich potrzeb ale nie umiem "działać" makrami na plikach wordowskich z poziomu excela. Czy jest ktoś w stanie tak poprawić kod aby po utworzeniu plików "wordowskich" ich zawartość połączyć w jeden...

Prosty sposób na organizację części i projektów w Excelu za pomocą makra

No fajnie tylko nie każdy ma office a ma np open offica czy libre offica, tak makra będą działać? To zamiast głupio się pytać trzeba sprawdzić. Znalazłem wolną chwilę i przetestowałem plik z pierwszego tematu z OpenOffice 4.1.7. Na wstępie Office napisał mi co zrobić: https://obrazki.elektroda.pl/1447534100_... Włączyłem tam wszystkie...

NRF24L01 i STM32F0DISCOVERY z HAL - problem z bibliotekami z ATmega8

Dałem radę już cokolwiek zrobić, jednak nadal mam problem z odbiorem drogą radiową (wysyłania jeszcze nie sprawdziłem). Zaraz opiszę co dokładnie nadal nie działa. W załączniku dodaję cały projekt. Kody (obecne): main.c [syntax=c]/** ****************************************... * File Name : main.c * Description : Main...

Makro VBA - Jak zmienić tekst między znakami na kursywę?

Witaj, wybacz, potrzebowałem więcej czasu, aby się zapoznać z Twoim makrem, którego forma sprawdza się po prostu doskonale. Na początku moja znajomość tematu była za mała, by pojąć o co w tym chodzi, ale już nauczyłem się tego i owego. Dlatego bardzo dziękuję. Zmodyfikowałem nieco treść, tak aby przygotowany dokument od razu był przekształcany pomiędzy...

VBA- Excel makro na zliczanie wartości z wielu plików

Witam , Posiadam wiele takich samych plików które zawierają harmonogramy z wierszami zawierającymi status, operacje i czas. Dane znajdują się w zakresie od H14 do BA312 tak jak w załączonym pliku. Potrzebuje zebrać ze wszystkich plików dane do jednego pliku w Formie Sumy czasu dla danej operacji która jest zakończona, wydana i do wydania (""); każda...

Tworzenie makra w Access do sprawdzania zgodności nazw plików PDF z nazwami w kolumnie Pliki

Nowa wersja kodu. Rozszerzamy tabelę Tabela_Pliki_PDF o dodatkowe pole tekstowe: Pliki_PDF_Koment. Teraz można komentarze generowane podczas przeglądania folderów umieszczać w istniejącym dla danego pliku rekordzie, lub opcjonalnie dopisywać nowe rekordy z nazwą pliku, jako identyfikatorem . [syntax=vbscript] ' 'Sprawdzanie istnienia folderów i plików...

Szukam osoby do stworzenia makra do myszki - skrypt AHK

Witam jestem zielony w temacie makro do myszki. Poszukuję osoby która by mi takie coś zrobiła za opłatą lub z dobrego serducha . Dostałęm od kolegi takie coś: ;This script adds a simple mouse click to each of the enabled keys and optionally a delayed right click. ;========== Do not change this section unless you know what you are doing. ========== #SingleInstance,...

Makro VBA: Jak dodać twardą spację przed jednostkami i partykułami?

Witam, jestem na etapie pisania pracy inżynierskiej, napisałem sobie część makra która wstawia mi twardą spację po każdym ze spójników z tablicy (nie wiem czy jest to dobry pomysł, ale nie umiem napisać makra, które znajdzie wyraz na końcu linijki i wstawi po nim spację. Chciałbym do niego dodać kilka rzeczy i proszę o pomoc, otóż nie wiem jak umieścić...