pierwszy arkusz zawierał przycisk po którego wyborze wyskoczy okienko, w którym będzie można wybrać pliki excela z dysku komputera Efekt taki uzyskasz przypisując do swojego przycisku np kod typu: Nie posiadam aktualnie przykładu takiego raportu :cry: W zależności od struktury i typu wartości...
OK. Nie napiszę gotowca i zachęcam do pisania samemu. Większa satysfakcja i coś się można nauczyć. Struktura jest taka, że są obiekty Application, Workbook, Sheet. W takiej hierarchii. W Excelu, edytorze VB użyj narzędzia ObjectBrowser. Wybierasz z listy gdzie jest "All libraries" Excel. Na liście...
Autor postu rozpoczął: Mam problem z dodaniem załącznika z konkretnego katalogu Jeden z kolegów naprowadzał na Explorator plików, drugi na okno dialogowe :!: - ale autor zamiast krótkiego kodu wyboru pliku przy użyciu okna dialogowego np. [syntax=vbscript]Dim intResult As Integer Dim strPathFile...
Przykład pierwszy z brzegu z helpa vba excela Sub Main() Dim fd As filedialog Dim vrtSelectedItem As Variant Set fd = Application.filedialog(msoFileDialog... With fd .Filters.Clear .Filters.Add "All files",...
Dot. ostatnie pytanie kol. marek003 Wydłubane (i ciut przerobione) gdzieś z Elektrody (może się przydać) Sub otwórz() Dim fdiag As FileDialog Dim plik As Variant Set fdiag = Application.FileDialog(msoFileDialog... With fdiag .Filters.Clear .Filters.Add...
Dzięki, przejżę z pewnością wskazaną witrynę w poszukiwaniu rozwiązania tego i przyszłych problemów :) Jednakże, może ktoś pomogłby mi w poniższym problemie. Jest kod, który otworzy mi wskazany plik Excela, ale nie wiem co zrobić aby z tego otwartego pliku skopiować arkusze np.: Arkusz1, Arkusz2...
Mój plik główny ma trochę inny uklad niż podany w pliku, który był tylko próbką. Do rzeczy: - dane będe kopiowane do Glowny_Plik.xls, od kolumny T do AB włącznie, łacznie 9 kolumn - dane do kopiowania pobierane z Plik_z_inf_zwrotnym.xls, od kolumny N do V chodzi o tym by kopiowac dane z Pliku...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path ...
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear ...
Witam, Robię pewną bazę danych w excelu w którym są klienci, zrobiłem przycisk, który po naciśnięciu miał otwierać wybrany z okna plik i zamykać aktualny. Mam problem, wyskakuje mi okno wyboru pliku, ale po kliknięciu dzieje się tylko to, że zamyka mi excela nie otwierając wybranego pliku. [syntax=vbscript]Sub...
Nie mam pewności czy trafiłem z zakresami :) Spróbuj Sub Przycisk1_Kliknięcie() Dim sciezka As String, Wybor As FileDialog, plik As String, wiersz As Integer 'Set Wybor = Application.FileDialog(msoFileDialog... Wybor ' .Title = "Wybierz folder" ...
Witam Męczę się już kolejny dzień, nie wiem co zmienić w tym kodzie aby Dane z pliku "A" w którym jest tabela z danymi (A1:M30) - wiele komórek scalonych, kolorowa i w ogóle no i dane oraz formuły. Problem w tym, że formuła kopiuje tylko do pierwszego arkusza a di tego wyskakuje komunikat "subscript...
Przerobilem znalexione w sieci makro tak ,że działa ale tylko na 2 plikach :/ nie wiem o co chodzi.. A chciałem aby działało na tylu plikach ile zaimportuje.. Możecie coś podpowiedzieć? I ewentualnie pomoc w jeszcze 2 rzeczach: 1) Wstawianie zer tylko tam gdzie: a) osoba jest zgodna ale...
Dziwne. Testuję to cały czas. Na innym portalu znalazłem takie coś i działa to super, ale wkleja mi tylko do jednego arkusza. Generalnie sprawa się troszkę uprościła, bo potrzebuję tylko zawsze pierwszego arkusza z danego pliku w folderze. Ta opcja z zaznaczeniem tego folderu jest świetna....
Ad 3. Mniej więcej taki kod: [syntax=vbnet]Dim fdSaveFile As FileDialog Dim vSaveFolder Set fdSaveFile = Application.FileDialog(msoFileDialogFold... fdSaveFile .AllowMultiSelect = False .Show vSaveFolder = .SelectedItems(1) End With ActiveWorkbook.SaveAs vSaveFolder...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich...
Na początek zmień nazwę pliku i zmień tak samo nazwę w kodzie. Powinno działać, cudów nie ma. W następnym kroku możesz wybrać plik za pomocą Application.FileDialog, zapamiętać, otworzyć plik i dalej robić to co chcesz. Parametry i sposób użycia Application.FileDialog znajdziesz łatwo na stronach MS...
Z góry dziękuję za pomoc oraz jakiekolwiek wskazówki. Proponuje wykorzystanie innego formularza systemowego msoFileDialogSaveAs W podobnych sytuacjach korzystam z takiego kodu opartego na tym oknie dialogowym SaveAs :D [syntax=vb]intChoice = Application.FileDialog(msoFileDialogSave...
Witam. Znalazłem w sieci Marko które wykorzystuje do scalania danych z wielu skoroszytów do zbiorczego. działa wyśmienicie (scala dane z pierwszego arkusza skoroszytów) ale pojawiła się potrzeba scalenia arkuszy z rożnych plików po nazwie arkusza czyli mam 10 plików źródłowych z arkuszami "Arkusz1",...
Znalazłem taki kod, który chciałbym dostosować do własnych potrzeb. ' ========================================... 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...
Ogólnie rzecz biorąc mój kod wygląda tak [syntax=vbscript]Sub Scalaj() Dim Skonsolidowany As Worksheet Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Pocz As Range, Kon As Range Dim Naglowki As Range, Podzakres As Range, KomDocel As Range Dim Licznik As Long,...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... = Application.FileDialog(msoFileDialogOpen... b = Workbooks.Open(s) a.Sheets(1).Range("K2... b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Witam, stawiam swoje pierwsze kroki w Acess i VBA. Chcę stworzyć formularz, który umożliwi import raportów w formie excela (ma zbieżne kolumny z tabelą w Access). Sprawę rozwiązuje ten kod [syntax=vb]Private Sub Polecenie4_Click() Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogOpen...
Podsumuje może wątek :) kodzik poniżej kopiuje pierwszy arkusz w wybranych skoroszytów :) Specjalne podziękowania dla adamas_nt :) Sub Makro1() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialog... ...
Ja pisząc makra w VBA zawsze sobie deklaruję odwołanie do poszczególnych arkuszy, dzięki czemu łatwo można się później po nich poruszać. Robi się to w ten sposób: Set wssg = ThisWorkbook.Worksheets("Strona główna") gdzie ThisWorkbook oznacza - jakże by inaczej ;), bieżący dokument...
Możesz wykorzystać FileDialog do wybrania plików, lub Dir i pętlę Do, jeśli dane pobierasz ze wszystkich plików w określonej lokalizacji. Druga rzecz to wyszukiwanie właściwych danych. Jeśli to te same komórki we wszystkich arkuszach, to nie ma problemu. W innym przypadku potrzebny będzie jakiś klucz:...
Metoda GetOpenFilename nie ma argumentu definiującego ścieżkę do pliku. Może zmień na dialog: [syntax=vb]Sub obraz2() Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\"...
Witam, Potrzebuje pomocy w kodzie vba mianowicie chciał bym aby plik excel importował dane z plików xml. z danej lokalizacji. pliki xml wszystkie w nazwie posiadają początek nazwy FV_ - chodziło by mi o to iż każdy nowy plik znajdujący się w lokalizacji: C:\fv\ został zaimportowany do pliku...
Pomoc nadeszła z innego forum :-) Kod zmodyfikowany do moich potrzeb Option Explicit Sub Import() ' ' Importu Makro ' Makro zarejestrowane 2008-06-13, ' ' 'zapobiega "migotaniu" ekranu podczas wykonywania makra: Application.ScreenUpdating = False ...
Zacznijmy od tego że da się użyć zmiennej. Sub test() plik = "test.xls" //ten zmieniający się plik Workbooks.Open ("c:\test.xls") //tu jakaś ścieżka do niego Windows(plik).Activate //tu go aktywujemy...
Popracowałem trochę nad programem. Działa już znacznie szybciej. Mam problem chcę aby program wypisywał do TextBox'a komunikaty, za każdym razem do nowej linii. Część komunikatów będzie jednak odświeżana np komunikat o postępie. Kod obecnie wygląda następująco: Option Explicit Private Sub...
[syntax=vb] Dim nazwaPliku As FileDialog Set nazwaPliku= Application.FileDialog(FileDialogType:=m... nazwaPliku .Show End With [/syntax]
Witam ponownie Dzisiaj proszę o pomoc w zwiazku z tematem, który czesciowo rozwiazalem. Mam kilkanascie plikow o nazwie: litera alfabetu.xlxs, czyli: a.xlxs, b.xlxs, ... W nich sa zapisane wartosciami 3 kolumny: A B C Z tych kolumn potrzebuje skopiowac kolumny B i C (jedno pod drugim)do nowego...
Spróbuj z rozdzieleniem po wczytaniu całej linii. Np[syntax=vb]Sub wczytajPlikTekstowy() Close #1 'dla pewności Open ".\dane.txt" For Input As #1 wrs = 1 Do Until EOF(1) kol = 1 Line Input #1, liniatekstu tbl = Split(liniatekstu, "|") For i = 0 To UBound(tbl) Cells(wrs,...
Wykorzystałbym osobny plik, w którym zapisywałoby się wyniki. Tu można wskazywać przez Filedialog, lub "ręcznie" wpisać nazwy do arkusza. Ustal jakąś hierarchię. Wg mnie: 1. Sprawdź, czy ilość i nazwy arkuszy w obu plikach są takie same. 2. Porównaj UsedRange każdej pary arkuszy. 3. Następnie komórka...
Witam. Posiadam makro ale chciałbym, żeby zaczytywało pliki nie tylko ze wsakzanego folderu ale również ze wszystkich plików w podfolderach. Czy jest taka komenda? Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Obsługa błędów: poczytaj o On Error GoTo ... Otwieranie pliku: [url=]przykład tutaj
:arrow: PRL Nie prościej byłoby Split'em? Zobacz taki test [syntax=vb]strStr = Array("2011-01-12 00:00:00.000|bm2csrin|31310", "", "jakiś nagłówek", "2011-01-12 00:00:00.000|bm2csrin|") On Error Resume Next For i = 0 To UBound(strStr) p = Split(strStr(i), "|") test = p(UBound(p)) * 1 If...
Witam. Jestem "świeży" w VBA, dopiero od tygodnia w tym siedzę. Mam zrobić arkusz, który będzie kopiował kolumny z różnych plików, które niekoniecznie będą znajdowały sie w tym samym katalogu, co program. Co już mam: [syntax=vb]Private Sub CommandButton2_Click() Dim i As Integer For i = 3 To...
Witam, chciałbym aby makro wywołało okno dialogowe, w którym użytkownik może wskazać ścieżkę i plik, które zostaną zapisane do osobnych zmiennych (do wykorzystania w dalszej kolejności przez funkcję GetValue) Mam takie marko: [syntax=vb] Sub nazwa_pliku_temp() Dim p As String, f As String ...
Ok i w momencie gdy wstawię tą funkcję nie dzieje się nic - pojawia się błąd "directory not found". Nie wiem jak wstawić tą funkcję do makra, tak, aby pojawiało się okno dialogowe. Sub export_to_anki() ' ' export_to_anki Makro ' Prepare export form Excel sheet to Anki 1 st column - word...
Można też przy pomocy obiektu FileDialog: [syntax=vb]Sub PokazPliki() With Application.FileDialog(msoFileDialogOpen... .InitialFileName = "K:\Test" 'ścieżka do katalogu .Show End With End Sub[/syntax]
Otwieranie wybranego pojedynczego pliku :D realizuje kodem: [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen... = False intResult = Application.FileDialog(msoFileDialogOpen... If intResult <> 0 Then ...
Cześć, Mam problem z doszlifowaniem makra, którego zadaniem jest przeniesienie wyfiltrowanych danych do jednego zbiorczego arkusza. Mam już makro, które działa bez zarzutów i zrzuca mi informacje do jednego zbiorczego pliku. Brakuje mi jednak funkcjonalności, która przy wywoływaniu komendy scal...
Hej, Mam oto sobie taką formułę na łączenie wielu plików z Excela (wiele plików i 2-3 arkusze): Kod: ' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych...
Bez ścieżki dostępu... Jaka komenda otwiera plik excela? Sub Open_Copy() Dim fd As FileDialog Dim plik As Variant Set fd = Application.FileDialog(msoFileDialog... With fd .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" ...
Może jeszcze załącze cały kod. jaki jest w pliku z makrem który potrzebuje zmodyfikowac. [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma się wykonać makro Dim robWB As Workbook: Set robWB = ThisWorkbook Dim robWS...
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz...
Witam Jestem początkujący w VBA i mój problem (dla innych pewnie żaden) polega na ty, że stworzyłem sobie kod, który ma formatować i przepisywać dane z innego pliku excela. Stworzyłem sobie zmienną, która zawiera nazwę aktualnie wybranego pliku. Moje pytanie: jak spowodować, żeby do poszczególnych komórek...
Niestety pomysł z odejmowaniem jednego dnia nie sprawdzi się gdyż sobota (zazwyczaj) i niedziela są dniami wolnymi od pracy. Dochodzą przypadki że np we wtorek jest święto i potrzebny jest w środę plik z poniedziałku a nie z wtorku. na forum znalazłem kod [syntax=vb]Sub test() Dim fDialog...
Jak napisać kod do makra 1. Nagraj makro wykonujące w/w czynności, przeanalizuj. 2. Zerknij [url=]tutaj, następnie [url=]tutaj 3. Połącz, usuń nadmiar kodu 4. Jak coś nie będzie działać, opisz na forum.
Witam Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie [syntax=vbscript] Sub Pobieranie_IL2() 'otwieranie...
Witam ponownie Mam problem z umieszczeniem procedury sprawdzającej czy jest włączony autofiltr i jeżeli jest, to wyłączający go. Znalazłem poniższy kod na forum [syntax=vbnet]If ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter[/... nie potrafię włączyć go do swojego makra,...
Wypada mi teraz grzecznie odpowiedzieć: "Cześć adamas_nt". Dzięki makro ruszyło, ale po odhaczeniu tego drugiego ptaszka. Rozumiem, że przy pierwszym ptaszku musi być dodany zaufany wydawca. Czy w excel 2003 można ustawić takiego zaufanego wydawcą, bo przejrzałem trochę internet to jest tego wiele, ale...
Co zostaje przypisane do zmiennej "Plik"? Spróbuj podstawić FileDialog [url=fhttps://msdn.microsoft.com/en-us/v... zamiast przypisywać na sztywno. Jako typ wpisz 'msoFileDialogFolderPicker', ustaw 'AllowMmultiSelect' na false.
Mam taki kod makra j.n.:[syntax=vbscript]Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Ad...
Witam Mam skoroszyt z pięcioma arkuszami, w których opracowuję dane. (w załączeniu). W ostatnim arkuszu "dane_end" mam wynik opracowania. Arkusz ten za pomocą makra eksportuję do nowego pliku. Jest "ok" jeżeli dane dotyczą jednego dnia i jednej jednostki. Opracowane dane są zawarte w kolumnach od...
W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object,...
Znalazłam taki kod. [syntax=vbnet]Sub ImportDatafromcloseworkbook() 'Update 20150707 Dim xWb As Workbook Dim xAddWb As Workbook Dim xRng1 As Range Dim xRng2 As Range Set xWb = Application.ActiveWorkbook xTitleId = "KutoolsforExcel" With Application.FileDialog(msoFileDialogOpen... .Filters.Clear ...
Można to osiągnąć np. taką kombinacją komend (do wywołania okna dialogowego potrzebujesz załączyć referencję do Microsoft Office 11 Object Library - w edytorze VBA tools->refrences) 'funkcja pobiera katalog z pełnej ścieżki Function GetDirName(ScanString As String) As String Dim intPos...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij...
Jak przerobić makro poniżej, by działało przy otwartym skoroszycie źródłowym (nie mogę go zamykać), z którego ma pobierać dane, gdyż obecnie wyskakuje mi taki błąd (dane oczywiście pobiera): i przenosi do tej linii Set wb = GetObject(strQ) Kod zamyka skoroszyt źródłowy (a chciałbym,...
Witam Procedura mojego zadanie wygląda następująco. 1. Wczytuje plik txt do excela 2. "Obrabiam do wg. swoich potrzeb 3. Eksportuje dane do txt, nadpisując plik importowany. 1 makro do wczytywania mam napisane. Problem jest jednak z drugim, ponieważ muszę wyeksportować tylko dane z kolumn od...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile...
Teraz pokazuje mi błąd w tej linijce[syntax=vbscript]With Sheets(tblArkusze(i)) .Visible = True[/syntax] Odrzuciłem na razie sprawę formuł i sprawdzania poprawności. Teraz to makro wygląda j.n. [syntax=vbscript]Sub wstawianie_IL() 'poprawione Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook...
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim...
chciałbym wykonać pewne makro na wszystkich plikach w danym folderze Szukaj na forum, jest wiele przykładów. Albo taki przykład: [syntax=vbscript]Sub DzialajNaPlikach() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder" .InitialFileName = Environ("USERPROFILE")...
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ć...
Nie mam Corel'a, ale VBA chyba wszędzie podobny... Najprościej byłoby z FileDialog. Jeśli konieczna jest lista dysków w ComboBox, to można połączyć z FileSystemObject. Załączam przykład takiej listy plików w Excel'u.