Zamiast nazwa = ThisWorkbook.Sheets("zam_od_han... 4).Value // tutaj chciałem przypisac do zmiennej nazwę pliku, jest inna od Application.ScreenUpdating = False // nazwa_pliku ze wzgledu na potrzebny format Set plik = Workbooks.Open(Filename:= _ nazwa_pliku) Sheets("dyl").Select Windows("wzorzec_zamowienia.xls...
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
Chciałbym do tego makra dodać to, że wszystkie te pliki, które zostaną zapisane po odpaleniu makra i wybraniu ilości kopii otwierają się [syntax=vbscript]Workbooks.Open sciezka & Cells(2, 3) & ".xlsm"[/syntax] I chesz otworzyć na raz 10 plików? Porąbany pomysł.
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
[syntax=vbscript]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\" & Sheets("nazwa_arkusza").Range("Y1")[/syn... Założenie jak wcześniej. Oba pliki umieszczone w tym samym folderze. W komórce Y1 znajduje się dokładna nazwa pliku łącznie z rozszerzeniem. Powinno działać.
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
W załączniku trochę poprawiona wersja. A co z tym przyciskiem?
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
[syntax=vbscript]Sub Konwersja() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder z plikami CSV" .InitialFileName = Environ("userprofile") & "\Desktop" If .Show = -1 Then f = .SelectedItems(1) End With If f = "" Then Exit Sub x = "\PlikiExcel" If Dir(f & x, vbDirectory) = "" Then MkDir (f & x) csv = f &...
Rozdzieliłem ten poprzedni przykład na 3 pliki, ale zdecydowanie lepiej pracuje się w jednym pliku. Zastosowałem podwójne nazwy, bo zauważyłem, że Excel jest wtedy bardziej stabilny. Możesz spróbować normalnie, z pojedynczymi nazwami, stabilność może też zależeć od wersji Excela. Ten plik główny powinien być otwierany jako ostatni. Jeśli chodzi o wskazanie,...
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
Sugeruję użyć okna komand i po wejściu do tegoż katalogu napisać takie polecenie : [syntax=dos]dir /A:D > wynik.txt[/syntax] A następnie utworzony plik (wynik.txt) zaimportować do Excel-a.
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Wypróbuj takie coś: [syntax=vbscript]' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe kolumny ' 4. Dane do scalenia mają nagłówki...
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje Jestem za tym, żeby sprawdzić obecność takiego pliku przez: If Dir(Thisworkbook.path & "\" & nazwa)<>"" then ... i podjąć dalsze działania (zapisać plik, podać komunikat, itp.)
jednakże z każdym nowym dniem zmienia się nazwa samego pliku ... i pewnie jest jakaś zależność tej nazwy, prawda?
1. Każdy plik ma unikalną nazwę. 2. W każdym pliku są 2 arkusze o nazwach (ORYGINAL i KOPIA). Chciałbym, żeby nazwa arkusza była taka sama jak pliku. Czyli dla pierwszego skoroszytu: Arkusz1 = nazwa pliku Arkusz 2 = nazwa pliku(2) lub nazwa pliku(K)
Zmień na [syntax=vbscript]Nazwa = Mid(Filename, InStrRev(Filename, "\") + 1)[/syntax]
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
Podaję przykładowe pliki z jednego dnia. Aby je tu wrzucić musiałem zmienić nazwy. Normalnie generują się dwa pliki o identycznych nazwach w innych folderach.
Workbooks(Range("H26"&...
Witam mam taki problem mianowicie w programie Word i Excel z Microsoft Office nazwy plików zapisują się z rozszerzeniem np. dla pliku zapisanego w word 2003 jest nazwa.doc a w przypadku pliku zapisanego w excel jest nazwa.xls. Jak można zrobić aby rozszerzenia plików nie były widoczne w nazwach pliku?
Replace, psze Pani, Replace...
teraz cos podziałałem ale niestety plik o nazwie strNameGL muszę aktualizować ręcznie, pojawia się komunikat aby wyskazać ścieżkę pliku.
W pełni zgadzam się z kolegą adamas_nt co do znaków, które może zawierać nazwa pliku. Chcę tylko zwrócić uwagę na drobny błąd, który zakradł się do jego kodu: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... Aby to działało prawidłowo wystarczy zamienić "Value" na "Text". Różnica...
EXCEL automatycznie dopasował krótką nazwę do długiej W Twoim (uszkodzonym :cry: ) pliku jest 9 nazw długich i 19 nazw krótkich :D Do czego więc EXCEL ma dopasować 10 krótkich nazw :please: Gdyby liczba nazw była równa w obu kolumnach to moim zdaniem wystarczyło by posortować osobno kolumny :idea: Jeśli jednak z jakiś dziwnych powodów :D chcesz wyszukiwać...
Nie dajesz przykładowych plików więc trudno to ustawić do Twoich potrzeb :cry: Proponuje spróbuj coś w tym stylu (po dostosowaniu do swoich potrzeb ścieżki, nazwy plików, arkuszy i zakresów :!: ): [syntax=vbscript]Sub Import() Dim xlapp As Object Set xlapp = CreateObject("excel.application") Dim wb As Object Set wb = xlapp.Workbooks.Open("C:\Test\Nazwa.xls"...
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
nie ma komendy która ujmie kolumne (teksty zawarte w komórkach danej kolumny) i powiąże z nazwami plików?
Dziękuję za pomoc. Spróbuję rozwiązać ten problem. Narazie robie tak ze przy skanowaniu zmieniam ręcznie nazwę na określony nr Zlecenia. Potem mam napisane makro gdzie automatycznie pliki .pdf powiela się z komorkami w excel o tej samej nazwie w bazie danych jako hiperłącza. .
Trzeba dołączyć nie obrazek, tylko plik Excel, a następnie można pokazać na Twoim przykładzie. W skrajnym przypadku powinny być widoczny nazwy wierszy i kolumn.
W związku z pytaniem na pw. Utworzyłem sobie plik w c:\ o nazwie plik1.xlsx, w którym wpisałem tekst w komórki Od B34 w prawo. Następnie uruchomiłem makro (c:\ w InputBox'ie). Dane pięknie skopiowały się do "Arkusz2", komunikat: "skopiowano z 1 pliku". Możliwe przyczyny błędu: -podajesz złą lokalizację -lokalizacja jest dobra ale nie ma tam plików -nazwy...
Spróbuj formuł z załącznika. Zwróć uwagę na nazwane zakresy i formułę nazwas w Menedżerze nazw. A na przyszłość swoje dane przykładowe umieszczaj w pliku, a nie w tekście.
Jeżeli plik zewnętrzny ma być zamknięty podczas pobierania danych to tylko przez VBA.
[syntax=vbscript]Sub Pliki() Sciezka = "C:\" ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow Plik = Sciezka & Range("A" & x) & ".xlsx" If Dir(Plik) = "" Then f = True Exit For End If Next If f Then MsgBox "Plik " & Plik & " nie istnieje.", vbCritical, "UWAGA" End Sub [/syntax] W kolumnie A umieść nazwy plików.
Ja korzystam z metody: ActiveWorkbook.FollowHyperlink Address:=sciezka & nazwa_pliku Ścieżka i nazwa pliku jest pobierana z komórek excela, metoda jest wywoływana dwuklikiem (Worksheet_BeforeDoubleClick()) na komórce w konkretnym wierszu.
robi się na żółto Trzeba było zmarnować tyle czasu, żeby się tego dowiedzieć. Widać, że dane masz niespójne, to znaczy, że nazwa klasy ma jakąś nieprzewidzianą wartość. Kod pisałem pod dane z przykładu. Masz w pliku B, w kolumiie N jakieś dziwne nazwy lub ich brak?
ark = ActiveWorkbook.Sheets(1).Name trzeba bylo po Nazwapliku = ActiveWorkbook.Name Dodano po 1 myslalem ze to logicznie dojdziesz Dodano po 2 bo po ThisWorkbook.Worksheets(1).Activate bedzie nazwa pierwszej wkladki w pliku, w ktorzem makro
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Niestety nie udaje mi się . Teraz w ogóle ukryty skoroszyt jest cały czas widoczny. Nie bardzo wiem gdzie mam wpisać ten kod "Set plik = Workbooks("plikukryty.xlsm")". W Private Sub ? Windows(plik.Name).Visible = False - plik name to nazwa całego pliku excel? U mnie wygląda to tak : https://obrazki.elektroda.pl/2866232400_...
możesz odpalić excela z parametrem jako nazwa pliku np excel c:\plik.xls A plik.xls może uruchamiać makro przy starcie np w zdarzeniu Workbook_Open()
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
Mam problem z uzyciem metody FileCopy i sciezka zeby filecopy dzialalo W 'filecopy' musisz podać pełną ścieżkę źródła skąd kopiujesz plik i pełną ścieżkę wraz z nazwą pliku dokąd kopiujesz, czyli np. 'filecopy FileTextBox.Text, d:\nazwa_kopiowanego_pliku.cos' zostaje ci wyciągnięcie jeszcze nazwy pliku z tego 'tekstboksa'.
Witam, próbuje stworzyć universality plik Excel PQ do odczytu danych z grupy plików csv w folderze. W danej grupie pliki csv będą miały taka samą strukturę (ilość kolumn i nazwy kolumn). Plik Excel ma obsługiwać rożne grupy plików csv które będą się różnic ilością kolumn i nazwami. Potrzebuje zrobić dynamiczne pobieranie nagłówków, może ktoś z was ma...
Coś mi mówi, że tu chodzi o wyszukiwanie plików w katalogu mając tylko szablon nazwy. Jeżeli tak to do tego służy np. Dir. Pierwsze wywołanie, z parametrem (pełna nazwa ze ścieżką - może zawierać * i ?) wyszukuje pierwszy plik, kolejne wywołania, bez parametrów, wyszukują kolejne pliki. Powtarzasz w pętli do uzyskania pustej nazwy i to już wszystko.
Wydaje mi się, że poniższą linijkę: Cells(x, 2).FormulaR1C1 = "='[nazwa]WINTER 2010'!R" & y & "C" & 10 & "" powinieneś zamienić na: Cells(x, 2).FormulaR1C1 = "='[" & nazwa & "]WINTER 2010'!R" & y & "C" & 10 & "" i zrób tak w każdej linijce, bo w kodzie...
Można to zrobić, ale nie dałeś przykładowych plików, to sobie dostosuj nazwy i ścieżkę. Załączam 2 pliki z danymi (docelowo zamknięte) i plik roboczy.
Jak formuła służy temu Jeśli data jest postaci tekstowej to możesz wykorzystać funkcję ADR.POŚR() :idea: , ale ciekaw jestem w jakim systemie możesz zatwierdzić nazwy plików wg Twojego przykładu :D
A może plik faktycznie się tak nazywa? (z podkreślnikiem)?
[syntax=vbscript]Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("N:\a.xlsm") 'Lokalizacja pliku EXcel xlApp.visible = true xlBook.refreshall WScript.Sleep 15000 xlApp.Run "Makro1" 'Nazwa makra do uruchomienia xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit...
Ale ta nazwa starego folderu ma być odczytana z nazwy pliku pdf?
Możesz napisać makro ale według mnie lepiej jest ręcznie używać opcji zapisz jako - i dodać do nazwy pliku np:001, 002 itd. dodaję link może się przyda http://www.swiatexcela.pl/2011/10/17/aut...
A może trzeba zamienić: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\Jan Kowalski.xls", FileFormat:= _ na: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\"&AQ3, FileFormat:= _ ? Przy odrobinie chęci można znaleźć rozwiązanie tego problemu na Elektrodzie. :D
że DEST_COORD może się kilka razy powtórzyć [syntax=vbscript]SelectSingleNode[/synta... jak sama nazwa wskazuje daje ci tylko jedno wystąpienie musisz użyć [syntax=vbscript]selectnodes[/syntax]
Jako administrator dodaj siebie do właścicieli danego folderu. Czy te pliki nie śą przypadkiem zaszyfrowane (bodajże zielony kolor nazwy)?
Czy istnieje taka formuła, która umożliwiałaby automatyczną aktualizacje danych ... dodam, że formuła ADR.POŚR działa tylko gdy plik jest otwarty na kompie Jedynym, chyba, sposobem odwołania się poprzez 'formułę' do komórki z zamkniętego pliku jest 'formuła ręcznego pisania'. Przykład pobrania zawartości komórki ' A4 ' z arkusza ' Arkusz1 ' z pliku...
Błędnie składasz string dla zapisywana. Spróbuj [syntax=vb]Sub WklejDoWorda() Dim oWord As Object, a As String Set oWord = CreateObject("Word.Application") oWord.Documents.Add oWord.Visible = True 'możesz usunąć a = Selection.Row Range("D" & a).Select With oWord With .Selection .Font.Size = 11 .Font.Name = "Arial" .TypeText Text:="xyz" End With End...
Ale nazwa załącznika ma być przenoszona do tematu wiadomości mailowej, a tu jest problem.. przy: "& doc.Name" wywala błąd..
W załączniku przesyłam przykład dwóch plików Excel. Istotna jest Tabela 1 w której występuje więcej obiektów, częściowo pokrywających się z Tabelą 2. Chcę je porównać i wychwycić różnice na podstawie "nazwy obiektów". W nowo utworzonym pliku Excel (Tabela 3) w którym pojawią się te pozycje, których nie ma w Tabeli 2, chciałabym również, aby znalazły...
Zainteresuj się instrukcjami obsługi plików. Np Instrukcja używana do zmiany nazwy pliku dyskowego lub folderu (katalogu). Składnia rozkazu Name: Name StaraNazwa As NowaNazwa Sprawdzaj w pętli cztery (trzy w drugim przypadku) znaki od lewej każdego jpg, wyszukaj w kol.B, podstaw z kol.A i zmień nazwę
Problem w tym że nie odróżniasz nazwy pliku od samego pliku: [syntax=vbscript]Sub OpenClose() ChoiceFileName = Application.GetOpenFilename("Excel-files... 1, "Select One File", , False) If ChoiceFileName = False Then Exit Sub Dim wBook As Workbook Set wBook = Workbooks.Open(Filename:=ChoiceFileName, AddToMru:=False) Application.Wait (Now + TimeValue("0:00:05"))...
Pytania uściślające: - w której wersji Excela ma to działać (jeśli w kilku wersjach, to podać najstarszą), - jak rozumieć te kategorie wagowe, np. pozycja [syntax=text]0,9 kg 3,38[/syntax] oznacza wagę powyżej 0,4 kg do 0,9 kg włącznie, czy od 0,9 kg do 1,4 kg wyłącznie? - czy ustalenie kategorii wagowej ma służyć jeszcze do czegoś innego poza ustaleniem...
Musisz pokombinować, bo sama linia z błędem w moim pliku działa. Może nazwa tabeli, a może adresacja komórek.
Witam Czy jest w Excelu formuła która pobiera dane z innego pliku tylko że nazwę pliku z którego ma pobrać wartość jest podana np. w komórce A1. Zrobiłem to w vba ale zależy mi żeby było to zrobione przy pomocy formuł. Pozdrawiam
Tylko tyle kodu wystarczy do blokady pliku? data to nazwa arkusza?
Tam jest ceesfałka. Może [syntax=vb]Workbooks.Open "http://stooq.pl/q/d/l/?s=bal&d1=2013012... nazwy jakieś tam (nie wnikałem) pasują z nazwami plików .csv...
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D
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...
Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2 = "\\Serwer\test" Set folder = CreateObject("Scripting.FileSystemObject...
Przy tego rodzaju pytaniach zawsze należy załączyć przykładowy plik z oczekiwanymi wynikami. Tu chcesz mieć listę TOP5, ale czego? Jeśli wartości z kolumny trzeciej, to tam jest tylko jedna wartość większa od zera. To jaki ma być wynik? Jeśli to chodzi o te wartości, to można je uporządkować np. funkcją MAX.K lub MAKS.WARUNKÓW. Ale wyniki mogą być różne,...
w załączniku przesyłam plik
Witaj [syntax=vb] For Each p In Workbooks(nazwa).BuiltinDocumentProperti... If p.Name = "Creation date" then x = p.Value Next Msgbox x [/syntax] Dostosuj
Wiele jest napisane, szczególności niewiele(z wyjątkiem ~30 plików). Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek Gdzie to makro? Co najmniej łączenia plików(nazwy ścieżek plików). Gdzie jest ta tabela przestawna?
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
.. Kod, który mi podałeś powoduje, że w "pliku synchronizującym" w arkuszu1 wrzuca mi w formie tekstowej wszystkie nazwy plików z katalogu C:\LQA, natomiast nie importuje arkuszy.. Nie robisz niczego źle - doklanie tak działa. W komentarzu wewnątrz kodu napisałem Ci gdzie go zmodyfikować do swoich celów. Nie sądziłem, że oczekujesz gotowca? Jeżeli...
Wyszła mi taka formuła: [syntax=text]=ADR.POŚR("'[01 Par. -Styczeń 2017.xlsx]"&TEKST(WYSZUKAJ(100;B$7:B7);"... wykorzystuje liczby wpisane w kolumnie B. Wyniki muszą być wpisywane od siódmego wiersza. W kolumnie W jest formuła wyliczająca numer wiersza...
Jeżeli oczekuje kolega jakiejkolwiek pomocy, to proszę usunąć pobieranie punktów za zamieszczony plik.
Witajcie, Mam dość dziwny problem z otwieraniem pliku *. xlsx. Przy próbie otwarcia pliku Excel otwiera jego 2 egzemplarze. Oba okna mają tą samą nazwę pliku z dopiskiem 1 lub 2 tj. [nazwa pliku].xlsx:1 oraz [nazwa pliku].xlsx:2. Plik znajdują się lokalnie i nie ma żadnych odwołań do innego pliku. Czy ktoś się już z czymś podobnym spotkał?
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
Zamiast Range("C2").Value = "=SUMA(C4:C1441)" Range("C2").FormulaLoc... = "=SUMA(C4:C1441)" Dopisanie wartości do nazwy pliku: "D:\Analiza\" & Worksheets(1).Name & "-" & Range("C2").Value & ".xls"
A czy dana nie ląduje czasem w innym arkuszu niż zakładasz? Sheets(1) to arkusz o indeksie jeden. Jeśli "1" to nazwa arkusza, to posługuj się nazwą Sheets("1") Poza tym Workbook s ("jeden.xls")
Dzień dobry, Przyznam, że nie bardzo rozumiem o jaki błąd Panu chodzi. Zauważyłem tylko, że w pliku, który Pan teraz załączył nazwa "prac" nie odwołuje się do lokalnego skoroszytu, tylko do skoroszytu na moim pendrivie, na którym miałem plik z przykładem. Coś Excel musiał namieszać przy kopiowaniu plików. Proszę sprawdzić u siebie, czy nazwy które ma...
To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
plik z przykładem.
Witam Problem mam taki ze chciałbym aby poprzez kliknięcie przycisku excel skopiowały arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Drugiego dnia excel miałby robić to samo (kopiuje arkusz) ale już tylko nadpisuje plik który stworzył wczoraj...
D:\Notowania :) Dodano po 34 PRL Wszystko super działa tylko chciałbym żeby w pierwszym wariancie dane importowało do nowego arkusza z nazwa pliku, w drugim natomiast do zupełnie nowego skoroszytu (pliku excel) również z nazwą pliku z którego dane zostały importowane.
Witaj [syntax=vbnet] ChDrive "C:" ' Przejdz do dysku, gdzie konkretny folder ChDir "C:\Folderz\Subfolderz\konkretny folder" ' Przejdz w konkretny folder vFile = Application.GetOpenFilename(... itd) [/syntax]
Najprościej dodać kilka załączników poprzez kilka linii .Attachments.Add z kolejnymi nazwami plików, bo chyba to będą pliki.
Czyli jeżeli gdzieś ten plik otwierasz to zapamiętaj jego nazwę (najlepiej pełną, ze scieżką) i potem powinno zadziałać zamykanie z dokładnie tą samą nazwą. Jeżeli masz problem tylko z jednym plikiem to możesz go nawet potraktować nieco inaczej niż pozostałe. Jak rozumiem dla pozostałych nazw nie zapamiętujesz.
Ustawiasz w programach wyszukiwanie plików po rozszerzeniach *.xls lub *.xlsx lub *.tmp i jak coś odnajdą to zapisujesz koniecznie na innym nośniku niż ten z którego odzyskujesz np na pendraiva. Pliki mogą nie mieć takich samych nazw jak twoje poszukiwane excelowe .I otwierasz każdy i wiesz czy jest zdrowy czy nadpisany i uszkodzony.
Dzień dobry Mam kilkanaście plików excela. W każdym jest jeden arkusz. Potrzebuję połączyć te arkusze w ten sposób by powstał jeden plik z wieloma arkuszami. Dane miałyby być niezmienione tj. formuły przekopiowane jak w źródłowych plikach. Formatowanie by było zachowane Nazwy arkuszy w pliku wynikowy np. jak źródłowych, ale to obojętne mogę sobie pozmieniać....
Nigdy nie robiłem nic w VBA a mam coś takiego do zrobienia: Mam plik, w którym zmienia się nazwa (data). Chce stworzyć makra, po uruchomieniu których odpowiednia kolumna w pliku wejściowym zostanie przefiltrowana po nazwie pliku z makrem. Proszę o pomoc :)
W pliku Excel mam informację o produktach: nr artykułu, nazwa, cena, ilość etc... W zdefiniowanym katalogu mam umieszczone zdjęcia do tych artykułów, które obecnie ręcznie kopiuję i wrzucam do mojego Excela; np. numer artykułu to 123456 a plik ze zdjęciem zawiera w nazwie właśnie ten numer 123456 np. image_123456_part1.jpg. Muszę do pliku Excel o strukturze...
brakujące nazwy plików zmiana nazwy plików długie nazwy plików
falujące niskie obroty kosiarka wariuje klawiatura czujnik obwodu mazda
ue46f6640 przekaznik ue46f6640 przekaznik
Piecyk gazowy Vaillant słabo grzeje wodę - przyczyny i rozwiązania Pralka Candy Smart - problem z szufladą na proszek