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.
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ć...
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...
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)...
Nie bardzo mam czas wnikać, ale z opisu wynika, że wystarczy zmodyfikować nieco "Makro2" W przykładzie sumowanie z trzech komórek. Jeśli zaskoczy, dopisz sobie ile tam trzeba... [syntax=vb]Sub Makro2() MyPath = "M:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("A1", "A2", "A3") 'tu dopisz kolejne adresy ark = "Arkusz1" With Sheets("Arkusz1")...
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?
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...
Da się. Np można wykorzystać metodę ExecuteExcel4Macro , odpowiednio podstawiając argumenty. Kawałek przydatnego kodu: [url=http://www.elektroda.pl/rtvforum/to...
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...
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")"
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.
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...
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
"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...
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")...
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...
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...
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...
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....
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...
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...
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...
Znalazłem w necie ciekawą procedurkę do rejestracji funkcji. Jest z nią jednak drobny problem. Ale od początku. Mam napisaną przykładową funkcję zwracającą indeks koloru wypełnienia komórki: Private Function KolorKom(Komorka As Range) As Double Application.Volatile KolorKom = Komorka.Interior.ColorIndex If KolorKom < 0 Then KolorKom = 0 End...
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...
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
singer chwytacz zwiększenie momentu obrotowego sterowniki option
kociol gazowy mieszany radio blaupunkt daytona
Motorola Edge 40 Neo a uruchamianie bramek sklepowe OpenBeken autoexec.bat script to toggle relay on BK7231 from two button inputs