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]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ć.
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
[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ł.
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
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]
[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...
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...
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
... 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...
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...
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 "?"
nie ma komendy która ujmie kolumne (teksty zawarte w komórkach danej kolumny) i powiąże z nazwami plików?
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,...
Zmień na [syntax=vbscript]Nazwa = Mid(Filename, InStrRev(Filename, "\") + 1)[/syntax]
[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 &...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
W załączniku trochę poprawiona wersja. A co z tym przyciskiem?
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
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.)
[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.
jednakże z każdym nowym dniem zmienia się nazwa samego pliku ... i pewnie jest jakaś zależność tej nazwy, prawda?
Replace, psze Pani, Replace...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
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.
nazwa = "abc.txt"
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]
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?
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_...
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...
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.
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)
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]
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
Workbooks(Range("H26"&...
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.
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()
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'.
Po prostu otwórz "dany plik" i w arkuszu Dane_1 w wybranej komórce dajesz = i klikasz myszką na odpowiednią komórkę w "danym pliku" to utworzy hiperłącze do niego. Nie o to mi chodzi. Potrzebuję aby po wpisaniu nazwy pliku w kolumnie PROTOKÓŁ arkusz automatycznie pobrał dane do wybranych komórek z pliku, którego nazwa została podana. Taka operacja...
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...
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ć...
[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...
ż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]
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?
Wiem że każde hasło da się złamać. W sumie to kwestia czasu. Myślałem też nad takim rozwiązaniem gdzie hasło jest w zewnętrznym pliku na zewnętrznym serwerze do którego ja mam tylko dostęp i mogę go zmieniać. Program łączyłby się z tym plikiem i pobierał aktualne hasło do otwarcia arkuszy. Może wówczas byłoby to trudniejsze do złamania. Znalazłem za...
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
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...
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
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...
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,...
Ale nazwa załącznika ma być przenoszona do tematu wiadomości mailowej, a tu jest problem.. przy: "& doc.Name" wywala błąd..
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D
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...
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.
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.
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")
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...
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...
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. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
Tylko tyle kodu wystarczy do blokady pliku? data to nazwa arkusza?
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 ?
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. .
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
Próbowałem z funkcją ADR.POŚR. W komórce B1 podałem dane do pliku źródłowego: ADR.POŚR=('C:\Users\Desktop\[01-01-2013.... Nawet wyszło tylko ta funkcja wymaga aby plik źródłowy był otwarty, a znajdzie się ktoś kto wie jak pobrać dane z zamkniętego pliku
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"
Jako administrator dodaj siebie do właścicieli danego folderu. Czy te pliki nie śą przypadkiem zaszyfrowane (bodajże zielony kolor nazwy)?
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...
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.
Witaj Jeśli skoroszyt jest otwarty codziennie, można użyć zdarzenia otwarcia książki. Ale warunek jest niejawnie opisane. Tu jest tabela, jest kolumna, jest data. Dla makro jest więcej specjalnie - Arkuszm, nazwa kolumny, wiersz gdze zaczyna się listy, nawet lepiej załączenia pliku.
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"))...
A może plik faktycznie się tak nazywa? (z podkreślnikiem)?
Spróbuj takiego kodu: [syntax=vbscript]Sub Makro1() Sheets("typ").Select Sheets("typ").Copy Range("A1:K50").Select 'określenie całego zakresu do zapisu samych wartości bez formuł Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs...
Musisz pokombinować, bo sama linia z błędem w moim pliku działa. Może nazwa tabeli, a może adresacja komórek.
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.
Popieram mojego poprzednika. To trochę dziwne podejście to tematu "Oczekuję od was pomocy ale mi za nią zapłaćcie". Jeżeli zaś chodzi o otwieranie Na początku chciałbym się zająć importowaniem plików. Udało mi się stworzyć polecenie które importuje jeden plik. Chciałbym żeby importował kilka plików naraz do różnych arkuszy ale w jednym pliku. sugeruję...
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
WIERSZ()-13, skad te 13 ? Druga linia tabelek jest o 13 :!: wierszy niżej dlatego formuły tam trzeba tak skorygować :please: Oczywiście to dotyczy 1 wersji mojego pliku tzn w tym bez sumowania wzg dostawców :cry: Formuły z sumą iloczynów występują w drugiej wersji :D
Podaj pelna nazwa tego chytrego pliku "1_19". jest to excel'owsky? Oprocz blad 400 jest komunikat? Jaky?
Codziennie jest inna nazwa, z stałym fragmentem: ......._Dobowy_raport_produkcji.xls".
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ę
Witaj [syntax=vb] For Each p In Workbooks(nazwa).BuiltinDocumentProperti... If p.Name = "Creation date" then x = p.Value Next Msgbox x [/syntax] Dostosuj
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...
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...
W B2 sama nazwa bez rozszerzenia, pilik będzie na C: [syntax=vbscript]Sub elka() Open "c:\" & Range("B2") & ".dxf" For Output As #1 For Each c In Range("A7:A30") Print #1, c Next Close #1 End Sub[/syntax]
...błąd pokazuje w tej ścieżce: Plik = Dir(sciezka & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & "\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & ".jpg") To sprawdź jeszcze tak [syntax=vbscript]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount...
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...
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ł?
Witaj Sheets("dane").Querytables(1).Refresh albo Sheets("dane").Querytables("ExternalData... Ta 'Querytables' mozhe nie tylko "ExternalData1", inna nazwa (dołącz plik)
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
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.
Witam użytkowników, Od jakiegoś czasu męczę się z makrem do wstawiania obrazu. Postaram się szczegółowo opisać sytuację na przykładzie w pliku (załącznik). W arkuszu kosztorys wybieram z listy numer pewnego modelu produktu (ten sam numer ma nazwa pliku obrazu ilustrującego owy model produktu) - pliki obrazów znajdują się w danym folderze na dysku. Automatycznie...
Można też odpowiednio napisać formuły z wykorzystaniem np. funkcji adres pośredni ADR.POSR() Przykład: =ADR.POŚR("'[Nazwa pliku.xls]Arkusz5'!F6";1) Oczywiście ten adres można tworzyć z innych komórek Np. w komórce A1 jest nazwa pliku np "dane z 01.01.2025.xls" więc funkcja adresu pośredniego może mieć taki wygląd: =ADR.POŚR("'[" & A1 & "]Arkusz22'!F6";1)...
nie o to chodzi nazwa pliku do którego ma się odwołać komórka , ma być zapisana w innej komórce
Najprościej dodać kilka załączników poprzez kilka linii .Attachments.Add z kolejnymi nazwami plików, bo chyba to będą pliki.
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"
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...
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...
excel nazwa pliku excel zwraca nazwa pliku nazwa pliku nazwa katalogu
prawa strona ciemny chinski generator klimatyzacja toyota schemat
szpiegowanie telefonu szpiegowanie telefonu
Przesterowanie sygnału MUX3 w Łochowie - DVB-T2 Lokalizacja czujnika zamykania kabiny Mercedes ATEGO 1224