Witam! A czemu nie załączyłeś "takiego" nietypowego pliku :?: :cry: IMHO - możliwości są co najmniej dwie :D : błąd pliku (np uszkodzony szablon nowego pliku), albo błąd aplikacji Excel :?:
...Mam skłonność do wybierania krótkich kodów, Żebyś tak jeszcze miał skłonność do pisania krótszych postów ;P Niedawno miałem podobny problem, który rozwiązałem w ten sposób, że przed otwarciem pliku sprawdzam wszystkie otwarte arkusze. Coś w stylu: otwarty = false for each ws in Workbooks if ws.Name = "RAPORT DZIENNY.xls" then otwarty =...
Co w zrozumieniu ' blokowało '? (Tylko do odczytu, otwarcie z haslem, inne)
[syntax=vb] Sub nowy() Const stn = "\\server\vers\" 'sciezka do pliku na serwerze myName = ThisWorkbook.Name klon = Split(myName, ".")(0) typ = Split(myName, ".")(1) ThisWorkbook.SaveAs klon & "_old." & typ Workbooks.Open stn & myName ThisWorkbook.Close True End Sub [/syntax]
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Jaki kod byłby poprawny? Zamiast zamykać Excela (aplikacje :!: ) zamknij ten ukryty skoroszyt :D np.[syntax=vbscript] Workbooks("TenUkryty.xlsm").Close SaveChanges:=False[/syntax]
To chyba pierwszy na tym forum wątek dotyczący poziomów prywatności w PQ. W skoroszycie są kwerendy PQ, które pobierają dane z adresów NBP: https://nbp.pl/podstawowe-stopy-procento... ora... Bezpośrednia odpowiedź - To blokada Zapory Prywatności Danych (Formula.Firewall) w Power Query: łączysz dane z Excela (Excel.CurrentWorkbook) z internetem...
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
Z włączoną synchronizacją: Widzisz odpowiedź? [syntax=vbscript]sciezka = ActiveWorkbook.Path[/syntax] Jeżeli włączysz synchronizację twoja sciezka się zmienia przez co dir() się wysypuje bo nie obsługuje url-a tak na szybko to zmień na stałą ścieżkę [syntax=vbscript]sciezka = "c:\users\kotar\onedrive\dokumenty\aplex... Plik = Dir(sciezka & "\Dokumenty\Pracownik\"...
ze tak czy siak potrzebne są dwa klawisze Można z jednym np. "end" wrzuć to do modułu [syntax=vbscript]Sub test() MsgBox "ok" End Sub[/syntax] a to do thisworkbook [syntax=vbscript]Private Sub Workbook_Open() Application.OnKey "{end}", "test" End Sub[/syntax] Zapisz zamknij i uruchom skoroszyt naciśnij "end"
Na obrazku skoroszyt jest otwarty na Twoim kompie Na obrazku widać, że Excel jest otwarty na komputerze zdalnym (AnyDesk). Na filmie uruchamiam makro, które importuje z Arkusz1 (z zasobu sieciowego \\serwer\bekap\a.xlsx) do tabeli Excel, co działa. Chyba o pobranie danych Ci chodzi, a nie o kopiowanie pliku, prawda? [syntax=vbscript]Kill Ustawienia.Ścieżka...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Znaj moje dobre serce :) Stany magazynowe tworzą się na podstawie wpisanych dokumentów więc "ręczna" ingerencja w arkusze DokumentyPZ i DokumentyWZ "rozwali" stany. Stany magazynowe robią się na bieżąco ale gdyby się coś zacięło Przycisk odtwórz stany na podstawie dokumentów od początku stworzy zestawienie Są pewne instrumenty zabezpieczające ale nie...
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
Możliwe byłoby blokowanie arkusza(y) wykorzystując metodę OnTime . Sprawdzałoby się co, powiedzmy 5 minut, czas zegara systemowego i jeśli warunek spełniony - włączamy blokadę...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
(at)lanzul Odpada na pewno konwertowanie do exe-a bo wtedy skoroszyt będzie bez możliwości modyfikacji (tak jak read only) Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy To tak jak adamas wspomniał Workbooks_Open ale łatwe do obejścia
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Widzę, że dopracowałeś trochę arkusz. Dopisałem funkcje która zmienia kolor wypełnienia komórki w przypadku "przeterminowania" zadania. Sprawdzane pod kątem niedotrzymania terminu są tylko zadania niewykonane (oznaczone czerwoną czcionką). W arkuszu jest skoroszyt z kodami kolorów, jak otworzysz makro są tam komentarze i jest napisane którą liczbę trzeba...
A może jakieś propozycje jak to elegancko rozwiązać? Wg. podanego przykładu ?
A więc.. sprawa jest bardzo prosta, musisz stworzyć warunki w kolumnach np z prawej strony danych. Warunki takie będą wyświetlać 1 lub 0 w przypadku prawdy i fałszu (D, E, F), w kolumnie G za pomocą znaków konkatenacji lub funkcji złącz.teksty() łączysz wszystkie 1 i 0 z kolumn w których znajdują się warunki. Powstają Ci w ten sposób słowa kodowe np:...
1. Najpierw o "chroń i udostępnij skoroszyt..." Nie znalazłem sprawdzenia "wprost" tych statusów, ale można zrobić obejście (funkcja): - dla MultiUserEditing (True) wywołać: - Workbook.UnprotectSharing ("xx") przy czym - hasło z założenia jest błędne => - jeśli hasła nie ma, to jesteśmy w domu (Ochrona=False) - jeśli hasło jest, to mamy błąd, który...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Dwa pytania na wstępie. Czy możesz ingerować w ten skoroszyt (dodać dodatkową kolumnę dzięki której później będziesz filtrował dane)? O jaką tabelę ci chodzi (z którego arkusza)? Jeżeli możesz ingerować w arkusz dodaj jedną kolumnę przy nazwisku. Wpisz formuły odnoszące się do nazwiska we wszystkich wierszach dotyczących tego nazwiska. Zaznacz grupę...
"+" na początku jest tu zbędny, ale nie przeszkadza, natomiast dalszy przedrostek "_xlfn." przed angielską nazwą funkcji jest dodawany przez program Excel, gdy skoroszyt został zapisany w nowszej wersji Excela, a później próbuje się go uruchomić w starszej wersji, która nie obsługuje tej funkcji. Ten wygląd ekranu pochodzi od Excela, użytkownik nic...
Kopiujesz arkusz (z formatami, filtrami, etc). A gdyby zastosować zwykłe kopiuj-wklej? Np [syntax=vb]Private Sub CommandButton1_Click() Dim wshSrc As Worksheet, wshDst As Worksheet Dim wbkSrc As Workbook, wbkDst As Workbook On Error GoTo Err_KopiujArkusz Set wbkSrc = ThisWorkbook 'ten skoroszyt Set wshSrc = wbkSrc.Worksheets("Arkusz1") wshSrc.Select...
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Witam. Mam otwarty 1 skoroszyt w EXCELU. Klikając w górny "x" zamykałem skoroszyt i cały Excel (do niedawna). Teraz zamyka się tylko skoroszyt, a EXCEL pozostaje otwarty. DLACZEGO?
Cóż, zamysł jest dobry. Projekt do najłatwiejszych nie należy i z pewnością jest czasochłonny. Uparcie brniesz dalej, gdzie większość woli gotowce i dawno rzuciłaby to w diabły nie narażając szarych komórek na przepracowanie. Tu tylko podziwiać, gratuluję. Szczerze mówiąc zaskoczyłeś mnie tym pytaniem :) Do tej pory szukałem tylko rozwiązań dotyczących...
Mam kilka otwartych plików Excela (skoroszytów), np. test1.xlsm p1.xls p2.xls p3.xls Będąc w pliku test1 chciałbym aktywować skoroszyt p1 (arkusz1), następnie skopiować z niego dane, wkleić je do pliku test1 (arkusz2), zamknąć plik p1 i przejść do następnego pliku. próbowałem dostać się do drugiego pliku z poniższego kodu, niestety pojawia się błąd...
Zmiana skoroszytu po nieudanej próbie z lokalizacji sieciowej. Mam skoroszyt, który otwiera inny skoroszyt z lokalizacji sieciowej po ścieżce zdeklarowanej w makrze, zapisuje go w swojej lokalizacji, a następnie aktualizuje się, zamyka skoroszyt, z którego dokonał aktualizacji danych, zapisuje zmiany i zamyka najpierw skoroszyt źródła, a potem siebie...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Wstaw skoroszyt
Czy masz może sposób na konsolidację paru plików, w których jest wiele skoroszytów ? Twój kod importuje tylko pierwszy skoroszyt Wydzielono z dyskusji archiwalnej => https://www.elektroda.pl/rtvforum/viewto... Proszę nie podpinać się pod stare tematy. RADU23
Rozwiązanie marek003 jest wydaje mi się prostsze i działało. Ale niestety jako laik próbowałem lekko zmienić skoroszyt i sie wykrzaczyło i niestety nie wiem dlaczego w pętli szukającej zlecenia sie wywala. Jeżeli mogę poprosić o sprawdzenie dlaczego.
Jak otworzysz ten skoroszyt to otwiera ci się tylko ten excel na szaro, czy w drugim okienku jest poprawnie otwarty skoroszyt? Masz w exploratorze plików włączony podgląd zawartości (okienko podglądu)?
Czasem pomaga zapisanie do formatu XLSX -> XLS. Zrób taki test, że: XLSX -> XLS a następnie ponownie do pliku: XLS -> XLSX XLS - to Skoroszyt programu Excel 97-2003
Dzień dobry. Mam problem z swoim plikiem .xls, który cały czas był w pendrive umieszczonym w routerze i robił jako lokalny dysk. Był uruchamiany głownie prze ze mnie, z jednego laptopa. Jakiś tydzień temu zakończyłem pracę na pliku, zapisałem i zamknąłem. Po kilku dniach jak chce uruchomić plik to pojawił się komunikat: "W skoroszycie istnieje zawartość,...
Niestety, z tego co się orientuję ustawienia wskaźnika powiększenia widoku dokumentu zapamiętywane są w samym dokumencie podczas zapisywania dokumentu. Po ponownym otwarciu dokumentu współczynnik powiększenia będzie dokładnie taki sam, jak po jego zapisaniu. Pozdrawiam. UPDATE: Jedyna droga aby pliki otwierały się zawsze w takim samym powiększeniu jest...
Cześć, proszę o pomoc, skorzystałem z kodu znalezionego na forum, jednak potrzebuję pewnej modyfikacji. W obecnej postaci makro sprawdza czy istnieje w lokalizacji skoroszyt o określonej nazwie, jeżeli tak to go usuwa i tworzy nowy. Docelowo chciałbym żeby makro w przypadku kiedy istnieje już plik tworzyło w nim nowy kolejny arkusz, a jeżeli nie istnieje...
Temat już mocno przeterminowany, ale w ramach wiedzy załączam poniżej makro autozapisu co 15 minut, które działa w nowszych wersjach excela np 2010 Wklejamy w ten skoroszyt Option Explicit ' Zmienna przechowująca czas ostatniego zapisu Private dtLastSaveTime As Date Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range)...
Jeszcze nie jest tak jak mi się ,,wydaje że ma być" Przy nie wypełnionej komórce zamyka skoroszyt i dopiero po ponownym otwarciu informuje że jest pusta. Kopię zapisuje prawidłowo ze zmianami ale i z pustymi komórkami
To po czym ma excel (oko ludzkie) poznać gdzie się zaczyna dany zakres?
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
skoroszyt excel skoroszyt excel szablony skoroszyt formatowanie
niedziałający spryskiwacz astra samsung ustawienia fabryczne bluetooth odtwarzać muzyk
regulacja posuwu drutu regulacja posuwu drutu
CSOT ST3151A07-1-XC-3 Pinout & Datasheet Info for 32" LCD Panel STX Electrino Hi-Fi Speakers: Models, Specs, Reviews, and System Matching
