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...
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=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ć.
[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...
[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]
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...
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
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...
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ł.
W załączniku trochę poprawiona wersja. A co z tym przyciskiem?
[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...
Zakładając, że część DDMMRR wpiszesz sobie np. do komórki A2, robisz po prostu: [syntax=vb]nazwa1 = "c:\Należności_" & Range("A2").Value & ".xlsx" nazwa2 = "c:\GL_" & Range("A2").Value & ".xlsx"[/syntax]
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...
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 &...
jednakże z każdym nowym dniem zmienia się nazwa samego pliku ... i pewnie jest jakaś zależność tej nazwy, prawda?
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
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
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.
Replace, psze Pani, Replace...
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 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...
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.)
aby nazwa pliku załącznika była pobierana do tematu wiadomości nazwa załącznika ma być przenoszona do tematu wiadomości mailowej API .... ?! ... na co tu API ? [syntax=vbscript] '.... Szablon = getFile("\\...") If Trim(Szablon) = "" Then Exit Sub Dim nazwa_pliku_zalacznika As String nazwa_pliku_zalacznika = Right(Szablon, Len(Szablon) - InStrRev(Szablon,...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Workbooks(Range("H26"&...
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]
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
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?
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
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]
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...
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.
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ć...
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ę
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...
ż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]
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.
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
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)
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...
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...
A może plik faktycznie się tak nazywa? (z podkreślnikiem)?
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'.
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. .
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.
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)...
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
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")
nie ma komendy która ujmie kolumne (teksty zawarte w komórkach danej kolumny) i powiąże z nazwami plików?
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ę...
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?
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...
[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.
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...
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_...
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,...
Codziennie jest inna nazwa, z stałym fragmentem: ......._Dobowy_raport_produkcji.xls".
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.
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...
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D
Ale ta nazwa starego folderu ma być odczytana z nazwy pliku pdf?
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...
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].
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...
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
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ł?
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...
Witaj [syntax=vb] For Each p In Workbooks(nazwa).BuiltinDocumentProperti... If p.Name = "Creation date" then x = p.Value Next Msgbox x [/syntax] Dostosuj
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]
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.
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()
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...
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.
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...
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...
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"))...
Tylko tyle kodu wystarczy do blokady pliku? data to nazwa arkusza?
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.
nie o to chodzi nazwa pliku do którego ma się odwołać komórka , ma być zapisana w innej komórce
s1 = "C:\folder1\" s2 = "C:\folder2\"
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 ?
chce żeby wyświetlił się msgbox lecz nie zatrzyma on czytania kodu Taka już rola MsgBox'a , żeby zatrzymywał i czekał na decyzję użytkownika. jak powstrzymać otwieranie nowego arkusza jak jego nazwa się powtórzy?? Excel z pewnością nie pozwoli na dublowanie nazw arkuszy. Jeśli chodzi o nadawanie nazw musiałbyś najpierw wykonać porównanie i dopiero...
w załączniku przesyłam plik
Musisz pokombinować, bo sama linia z błędem w moim pliku działa. Może nazwa tabeli, a może adresacja komórek.
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
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...
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...
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...
Witam zainteresowanych tematem. Powoli chce zamknąć sprawę programu do pomiaru i zapisu wyników z pracy paneli PV. Proszę o uwagi i ewentualnie sugestie. Jak to już wygląda to fotka w załączeniu. Dodałem menu z którego będzie można wyłączyć lub włączyć wyświetlanie cyfrowe wartości mierzonych poniżej wskaźników analogowych. Testy programu robię podając...
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 :)
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ć.
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...
Jako administrator dodaj siebie do właścicieli danego folderu. Czy te pliki nie śą przypadkiem zaszyfrowane (bodajże zielony kolor nazwy)?
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"
nazwa pliku excel excel zwraca nazwa pliku nazwa pliku nazwa katalogu
gorąca szlifierka suzuki wagon fibaro czujniki
Jak skonfigurować stację multimedialną Podofo do dodatkowego monitora Elektryczny dozownik mydła wydaje dźwięk, ale nie podaje mydła