Da się. Np można wykorzystać metodę ExecuteExcel4Macro , odpowiednio podstawiając argumenty. Kawałek przydatnego kodu: [url=http://www.elektroda.pl/rtvforum/to...
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.
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")"
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...
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.
Czy można pobrać dane z arkusza który nie jest otwarty? Poszukaj informacji na temat ExecuteExcel4Macro Np [url=http://www.elektroda.pl/rtvforum/to...
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...
"nie otwierania ich w aplikacji Excel" Plik musi być otwarty, żeby z niego odczytać dane i mój przykład to robi. Robi to w tle dla użytkownika i o to chodziło. ExecuteExcel4Macro(Arg)... nie ma nic wspólnego z aplikacją Excela. Może w ogóle nie używać Excela?
Jeżeli działasz na zamkniętych plikach, to bez VBA nie da rady (ADR.POŚR nie działa z zamkniętymi plikami). Zerknij: [url=http://vbamania.blogspot.com/2009/0... - Wykorzystanie SQL-a [url=http://www.elektroda.pl/rtvforum/vi... - Funkcja GetValue (ExecuteExcel4Macro) Najprościej...
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ć...
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...
Sprawa z pobieraniem danych z zamkniętego pliku jest o tyle trudna, że żadna przydatna w takim przypadku funkcja na takowych nie działa (Np ADR.POŚR) Pozostaje VBA. Poszukaj informacji n.t. ExecuteExcel4Macro, Np [url=http://vba4all.blog.onet.pl/czytani... Można ją zastosować jako procedurę zdarzeniową podstawiając...
W sumie potrzebujesz otworzyć plik "wzór.xls", następnie poprzez 'Dir' pobierać nazwy kolejnych plików w pętli i albo je otwierać, albo pobierać zawartość komórki bez otwierania (ExecuteExcel4Macro lub wstawić wartość łącza). [url=http://www.elektroda.pl/rtvforum/vi... [url=http://www.elektroda.pl/rtvforum/vi...
Tam są obrazki! ExecuteExcel4Macro chyba odpada (z ciekawości jeszcze spróbuję). Nie możesz po prostu otworzyć plik Workbooks.Open i skopiować arkusze? Ewentualnie można oba plik otworzyć w ukrytej instancji i tu kombinować z wywołaniem makra (tego jeszcze nie próbowałem) i odkryć dopiero po zamknięciu pliku z budynkami... Ale czy ma to sens?
Dzień dobry, Bardzo dziękuje za pomoc. Zapisywanie ze zmienioną nazwą już działa :-) Zmiana wielkości wykresów też działa :-) Jeżeli chodzi o zbudowania dwóch funkcji do uproszczenia makra, to rozumiem zasadę ale nigdy nie budowałem jeszcze funkcji w Exelu. Składnię chyba rozumiem ale nie wiem jak połączyć kilka poleceń w jeden argument. Bardzo poproszę...
A spróbuj tak, co się będzie działo ? (Może nie przywracasz pierwotnego działania wszystkim, zmienionym uprzednio, klawiszom ?) [syntax=vba]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nrPlikuWyj1 As Integer: nrPlikuWyj1 = FreeFile Dim op1 As String: op1 = ThisWorkbook.Name Dim op2 As String: op2 = Application.UserName & "/" & Environ("Username")...
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)...
Taka informacja była. "Rozwiązano problem z częstszą kompilacją makr VBA." :-? Podczas uruchamiania realizuję kod poniżej. Może coś rzuci się w oczy. skróty klawiaturowe które są wyłączane na końcu, to: 'Customize File functions Application.OnKey "^{n}", "" 'New Application.OnKey "^{o}", "" 'Open Application.OnKey "^{p}", "" 'Print Application.OnKey...
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...
Witam Od dwóch dni męczę się nad połączeniem dwóch plików excela, konkretnie chodzi o pobieranie danych do komórki (A1) w pliku 'wynik.xls' z: (A1) w pliku 'dane.xls' Przeszukałem wszystko i nigdzie nie znalazłem szczegółowej instrukcji jak to zrobić. Wiem jedynie że trzeba użyć do tego celu Visual Basic i prawdopodobnie użyć poniższy kod, ale że nie...
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...
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...
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...
I łatwiejsza wersję, oczywiście można ta dodać wielkość powiększenia: Private Sub Workbook_Open() Application.DisplayStatusBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub
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...
Witam, stworzyłem makro które pobiera dane z zamkniętego pliku i wkleja dane w wyznaczone miejsce w drugim pliku. Z makrami dopiero początki, więc kopiuje gotowe kody i próbuje je odpowiednio dopasować [syntax=vbnet]Option Explicit Private Function GetValue(path, file, sheet, ref) Dim arg As String If Right(path, 1) <> "\" Then path = path &...
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...
Witajcie, Podczas wywołania kodu Private Sub Workbook_Open() Dim nrPlikuWyj1 As Integer: nrPlikuWyj1 = FreeFile Dim op1 As String: op1 = ThisWorkbook.Name Dim op2 As String: op2 = Application.UserName & "/" & Environ("Username") On Error Resume Next Open "\\xxxxxxxx\log_BU3.1.txt" For...
Rozwiązaniem będzie: zainteresować się funkcją Dir Tak właśnie jest zrobione w powyższym pliku: Nie bardzo rozumiem co tam jest napisane. Z tego co widzę to podaję ścieżkę w kodzie, a kod jest zbudowany tak że jeszcze muszę wybrać jakiś folder i tego nie rozumiem. Udało mi się przerobić swoje tak żeby pobierało dane na razie statycznie i bardzo źle....
No właśnie takie rozwiązanie jest zbyt proste To może coś (przynajmniej na oko) mniej prostego (ExecuteExcel4Makro) [url=http://www.elektroda.pl/rtvforum/to...
WYSZUKAJ.PIONOWO, zdaje się, nie działa na zamkniętych plikach. Formułę masz źle zapisaną, ale to nie ma znaczenia. Funkcja KOMÓRKA zwróci informacje o pliku, w którym jest formuła (Thisworkbook), drugi argument jest zbędny. Jakimś wyjściem byłoby zapisanie zawartości obu kolumn (1 i 7 jak wynika z arg. VLOOKUP) do tablicy z wykorzystaniem ExecuteExcel4Makro...
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...
Witam. Bardzo proszę o pomoc w prześledzeniu poniższego kodu i jeśli jest to możliwe poprawieniu go tak aby działał jak najbardziej sprawnie i poprawnie. Kod ogólnie robi to co chcę ale robi to bardzo długo i w pewnym momencie wywala błąd. Zadaniem kodu ma być aby z pliku o nazwie 'TEST.xlms' z arkusza 'DataBaza3' pobrać listę jaka znajduje się w kolumnach...
kopiować excel excel kopiowanie excel excel hasło excel haslo excel
instrukcja amplituner panasonic wtyczka zasilać laptop transport kolumn
hewalex sterownik hewalex sterownik
Chłodnica klimatyzacji (skraplacz) – budowa, typowe usterki, serwis, R-1234yf, micro-channel Pompy ciepła Panasonic Aquarea – High Performance, T-CAP, HT, L-Generation, dobór i parametry