excel filedialog

Makro-otwieranie pliku i kopiowanie arkusza

Jak napisać kod do makra 1. Nagraj makro wykonujące w/w czynności, przeanalizuj. 2. Zerknij [url=https://msdn.microsoft.com/en-us/li... następnie [url=http://www.elektroda.pl/rtvforum/fi... 3. Połącz, usuń nadmiar kodu 4. Jak coś nie będzie działać, opisz na forum.

VBA Word 2013: Kod do drukowania dokumentów nie działa

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.

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel VBA pobieranie danych z innego pliku excel o zmiennej nazwie

Sposobów na otwarcie pliku w VBA jest wiele. Można użyć: [syntax=vbnet]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\TMP.xlsx"[/syntax] a nazwę pliku podać przez InputBox lub pobrać z jakiejś komórki w arkuszu. Inny sposób to użycie FileDialog i wybranie pliku przy jego pomocy. Wybór należy do Ciebie.

VBA Excel - Jak automatycznie otworzyć plik xlsx z fragmentem Tabela w nazwie

Application.GetOpenFilename Tym sposobem nie da rady zainteresuj się 'filedialog'

Excel - Makro do wyświetlania zawartości folderu pracownika (PDF, DOC)

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]

Jak otworzyć plik Excel z wybranego folderu w VBA?

[syntax=vbscript]Dim WskazFolder As String Dim Okno As FileDialog Dim Wybrane As String Set Okno = Application.FileDialog(msoFileDialogFold... Okno.Title = TytulOkna Okno.ButtonName = TytulPrzycisku If Okno.Show Then Workbooks.Open (Okno.SelectedItems(1) & "\wyplaty.xlsx") End If [/syntax]

[Excel VBA] Makro -po kliknieciu w przycisk otwierało by nowe okno z katalogiem

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 .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...

Otwieranie wybranego okna VBA excel i zamknięcie starego okna

Witam A gdzie masz [syntax=dos]Workbooks.Open?[/syntax] [syntax=vbscript]Sub WybierzPacjenta() Dim plik As Workbook Dim wybierzPlik As Workbook Dim fDialog As FileDialog, result As Integer Set fDialog = Application.FileDialog(msoFileDialogFile... Set plik = ActiveWorkbook With fDialog .Title = "Wybierz Plik" .InitialFileName = desktop & "\Dietetyk\Pacjenci\"...

kopiowanie arkuszy z wybranych plików Excela (VBS)

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...

Access/VBA - Import danych przez Filedialog i dodawanie dodatkowych kolumn

Jeden z options - create objekt EXCEL - zrobić kopię z arkusz1 - Liczba wierszy i dodać kolumnę z datami. Następnie zaimportować w Access. Można inaczej. Po każdym imprtcie (jak teraz) - UPDATE <table> SET data_od WITH <data z TextBox> WHERE data_od IS NULL kolumny data_od data_do musi już być w bazie danych przed tym

Excel - jak stworzyć uniwersalny skrypt do obliczania godzin pracy?

Każdy otwarty plik ma swój indeks w kolejności otwierania. Plik, w którym zaczynasz: Workbooks(1), następnie (2), (3) itd. Można otworzyć bodaj 256, ale tego jeszcze nie próbowałem :) :arrow: marek003 Wypróbuj otworzyć kilka takim Sub otwórz() Dim fdiag As FileDialog Dim plik As Variant Dim ostatni As Byte Set fdiag = Application.FileDialog(msoFileDialog...

makro-otwieranie plików wg kolejności alfabetycznej

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... With fd .InitialFileName = Environ("HOMEPATH")...

Jak eksportować dane z Excel do UTF-8 bezpośrednio do Anki?

Przeczytaj w pomocy FileDialog(msoFileDialogFolderPicker) albo tu http://akademia-vba.pl/tag/wskazfolder/

Jak dynamicznie ustawić ścieżkę do folderu w makrze Excel VBA?

Zmień procedurę na funkcję: [syntax=vb]Function Pobranie_sciezki() as String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz folder" .InitialFileName = ThisWorkbook.Path If .Show Then sciezka = .SelectedItems(1) End If End With Pobranie_sciezki = sciezka End Sub[/syntax]...

[Excel VBA] Formatowanie wielu zakresów jednocześnie w Excel VBA - jak to zrobić?

Ad 3. Mniej więcej taki kod: [syntax=vbnet]Dim fdSaveFile As FileDialog Dim vSaveFolder Set fdSaveFile = Application.FileDialog(msoFileDialogFold... With fdSaveFile .AllowMultiSelect = False .Show vSaveFolder = .SelectedItems(1) End With ActiveWorkbook.SaveAs vSaveFolder & "\" & ActiveSheet.Range("B2").Value & "__" & Format(Now, "dd_mm_yyyy__hh_mm"),...

Makro VBA do kopiowania danych z plików Excel: Dane1, Dane2 do Wyniki co piątek

Zdaje się, że nie wpisałeś path (koniecznie w cudzysłowach) w linii [syntax=vb]Set dirObj = MergeObj.Getfolder("tu ścieżka do plików, filedialog lub inputbox")[/syntax]

Uproszczenie makra przenoszącego wartości w Excelu - sugestie optymalizacji

[syntax=vbnet]Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*;...

[EXCEL] Jak użyć zmiennej dla nazwy pliku w VBA Excel?

Żeby skorzystać z opcji FileDialog musisz dołączyć referencję do biblioteki: w edytorze VBA Tools->References i dać ptaszka przy Microsoft Office 11 Library albo jakoś w tym stylu

makro otwierające źródłowy folder i zapobiegający otworzeniu niewłaściwego pliku

Spróbuj tak [syntax=vbscript] Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Const fileName As String = "A.xlsx" ' nazwa pliku do otwarcia Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add "Pliki Excel",...

Excel VBA: Jak uniknąć nadpisywania istniejącego pliku Word?

Pyta za to okno wywołane w VBA. Tutaj [url=https://stackoverflow.com/questions... - jak uruchomić procedurę BeforeSave No i trochę trzeba pokombinować. Np (wklej poniższe w ThisDocument) [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application...

[EXCEL VBA] Automatyczne importowanie wielu plików XML z folderu C:fv

Wyrzuć wszystko to, co związane jest z filedialog i podstaw ścieżkę do zmiennej 'xStrPath' Dla mnie nie jest jasne został zaimportowany do pliku excel do nowego wiersza. dodatkowo w nowym arkuszu żeby... Nowy arkusz, czy pierwszy wolny wiersz?

VBA Excel - Kopiowanie konkretnych komórek między dwoma arkuszami

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 .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...

Excel - makro do kopiowania danych z Plik2 do Arkusza1 na podstawie ID klienta

Wklej do modułu pliku "Glowny_Plik.xls" Option Explicit Sub Pobierz() On Error GoTo koniec Dim fd As FileDialog, ark As Workbook, i As Long Dim plik As Variant, modulo As String Dim thWkb As String, ostWrs As Long, wrs As Long Set fd = Application.FileDialog(msoFileDialog... Application.ScreenUpdating = False With fd .Filters.Clear...

[Excel] Odczyt danych z plików, odczyt wartości z nazwy plik

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... 'With Wybor ' .Title = "Wybierz folder" ' .InitialFileName = ThisWorkbook.Path 'If .Show Then sciezka =...

Kopiowanie danych z jednego do drugiego arkusza w te same miejsca

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 przypisanie oraz 'FileDialog' w instrukcji warunkowej...

EXCEL - Pobieranie danych z pliku TXT w tym samym katalogu.

Obsługa błędów: poczytaj o On Error GoTo ... Otwieranie pliku: [url=http://www.wiseowl.co.uk/blog/s209/... tutaj

Jak napisać makro do kopiowania arkuszy między plikami Excel?

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 i wkleić je na końcu w pliku z którego uruchamiałem makro....

Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?

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.

Makro do kopiowania danych z wielu plików do arkuszy I L - IX L

Nie analizowałem całości makra, ale nawiązując do tematu związanego z sortowaniem przy FileDialog.AllowMultiSelect=True, wyglądałoby to tak:[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count Set wkb2...

VBA/Excel - Jak zautomatyzować kopiowanie danych z wielu arkuszy do jednego?

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: Nr kolumny, unikalna nazwa w nagłówku, lub tp.

Jak napisać makro w Excelu, które dodaje kod do innego pliku?

Witam Przeanalizuj [syntax=vbnet]Sub Proba() Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" ' cudzysłów " Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName...

Excel (VBA) - kopiowanie zawartości otwartych plików Excela do innego pliku

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 Classes masz klasy obiektów z danej biblioteki. Wybierasz...

Excel: Jak scalić arkusze o tych samych nazwach z wielu plików?

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...

Konwersja wielu plików CSV na format Excel (xlsm) - pętla i zachowanie nazw

W folderze będzie X plików csv i chcę aby w pętli każdy plik zapisywało na xlsm Taką funkcjonalność można uzyskać poprzez kod: [syntax=vbscript]Sub CSVtoXLSM() 'UpdatebyExtendoffice20170814 Dim xFd As FileDialog Dim xSPath As String Dim xCSVFile As String Dim xWsheet As String Application.DisplayAlerts = False Application.StatusBar = True xWsheet =...

VB Excel - jak otworzyć okno wyboru pliku lub folderu?

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", "*.*" .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1 If .Show = -1 Then For Each...

Excel - porównywanie formuł w 2 różnych plikach

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 po komórce (zakres możesz ograniczyć do UsedRange)...

VBA EXCEL - Jak zmienić nazwę i skopiować plik do OneDrive?

Okej a więc udało mi się uzyskać ścieżkę ale nadal jest coś nie tak + nie wiem jak zmienić nazwę pliku na nową. [syntax=vb]Sub upload() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFile... With fd .AllowMultiSelect = False .Title = "Chose file to add" .Filters.Clear .Filters.Add "PDF", "*.pdf"...

Makro VBA: Jak wyłączyć autofiltr przed kopiowaniem kolumn?

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, żeby przed skopiowaniem kolumn z otwieranego pliku...

excel VBA - Kopiowanie danych z innego pliku - co tu nie gra??

No jest kilka kwiatków. Nazwa procedury ze spacją, nieprawidłowe odwołanie do skoroszytu. Sprawdź: [syntax=vb]Sub Kopiowanie_Danych() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFile... With fd Filt = "Wszystkie pliki (*.*),*.*" FilterIndex = 1 Title = "Wybierz plik z danymi do skopiowania"...

Jak dodać okno wyboru pliku do makra importującego pliki .txt w Excelu?

[syntax=vb] Dim nazwaPliku As FileDialog Set nazwaPliku= Application.FileDialog(FileDialogType:=m... With nazwaPliku .Show End With [/syntax]

Makro Excel: Kopiowanie danych do arkusza CSV, problem z formatem pliku xlsm

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 As Worksheet: Set robWS = robWB.Worksheets("MAKRO") Dim fd As FileDialog...

Jak skopiować numery z pliku 1.xls do 2.xls od ostatniego numeru?

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*" If .Show = -1 Then For Each plik In .SelectedItems Workbooks.Open plik All =...

[VBA] [VBA][Excel] Import wielu plików PGN do arkuszy z nazwami plików

Czy po każdym wywołaniu rozkazu Set należało zwolnić pamięć? Prawdę powiedziawszy nie jestem do końca pewien, może ktoś inny wie lepiej:) Wg źródeł na necie, np. raz w całym kodzie, ale już przypisanie Set x = Worksheets(WorksheetName) wykonujesz wielokrotnie w pętli, tam, przy większe ilości arkuszy - jeżeli faktycznie pamięć nie jest zwalniania -...

Excel 2010: Automatyczne pobieranie danych z pliku o zmiennej nazwie

[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...

Excel - MAKRO VBA - porównuje i kopiuje. Kilka problemów.

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 nie ma wartości w całym wierszu b) tam gdzie nie znalazło nikogo...

Makro EXCEL - przenoszenie wyfiltrowanych danych do jednego arkusza z innych

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 pliki w jedno, pobierze te dane, o które ją poproszę. Chodzi...

VBA Excel: Jak scalić skoroszyty xls zaczynając od wiersza 3 bez pomijania danych?

Witam, Znalazłam w Internecie kod makra, które jest podstawą do pomocy przy tworzeniu mojego. Jednak jest to moje pierwsze makro, które tworzę dla kolegów i koleżanek. W swoim makro chciała bym aby rozpoczęcie łączenia plików excela rozpoczynało się zawsze w wierszu 3 (nagłówek w pierwotnym skoroszycie jest zawsze w 3 wierszu, pierwsze dwa wiersze są...

VBA Excel - kopiowanie danych z wielu skoroszytów do jednego arkusza

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, LW As Long, LK As Long Dim ZakresDocel As Range, LW_Docel As Long Dim Folder...

VBA Excel - Kopiowanie komórek z różnych skoroszytów do skoroszytu zbiorczego

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 albo pytaj.

Jak nadpisać dane w Excelu bez utraty istniejących informacji?

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 do scalenia są zawsze w pierwszym arkuszu i mają jednakowe...

Nieudane scalanie danych ze schowka w Excelu - Makro i różne metody próbowane

Tak jak w tym temacie, tylko rozwiązanie zdaje się u mnie nie działać :-? i nie wiem dlaczego DisplayAlerts = false, DisplayClipboardWindow = false Tego też nie udało mi się zaaplikować Sub Scal() Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Licznik As Long, i As Long Dim Folder As String ThisWorkbook.Worksheets(1).Range...

Polecenia w makrze, zapis pliku, kopiowanie informacji

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 skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...

Makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza

Makro robi zestawienie wszystkich wierszy z różnych plików z jednego folderu ale odrzuca te w których szósta komórka we wierszu wynosi zero. Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Z pierwszego pliku jednak takie dane pobiera bez problemu, z kolejnych już nie, pojawia się tam 0. Jakieś wskazówki?...

[VBa Excel] - Makro do scalania arkuszy z wielu skoroszytów

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. Można ją tu wykorzystać? [syntax=vbnet]Public Const WERSJA As...

Excel VBA makro - Scalanie plików z folderu, formatowanie i okienka dialogowe

JRV, dzięki za dobre chęci. Tylko, że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików, a ja chciałem aby można było wpisać jeden raz dla wszystkich plików. Na chwilę obecną mam już wszystko zrobione, wszystko już działa jak należy, łącznie z licznikiem scalonych plików :D . W razie...

[VBS][MAKRA] pobieranie danych z pliku i tworzenie wykresu

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 As Integer Dim intPosSave As Integer intPos = 1 Do intPos...

Makro do wyszukiwania danych z baz dostawców w Excelu (BM Byggmakker, Brødrene Dahl)

Rozwiązanie (VBA) jest w miarę proste. Zwykła pętla z kilkoma warunkami i wyszukiwaniem. No, trochę "dłubaniny" przy tworzeniu procedury ;) Pytanie dodatkowe: Czy wszystkie pliki są w tej samej, stałej lokalizacji (a może przy pierwszym odwołaniu, gdy plik jeszcze zamknięty, należałoby podać lokalizację w okienku filedialog)? Tak pliki są w jednej...

VBA - Excel - Makro do kopiowania zakresu komórek do innego pliku otwartego plik

[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]

Excel - Jak otworzyć pliki z folderu pracownika przez makro?

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 strPathFile = Application.FileDialog(msoFileDialogOpen...

Pobieranie danych z Excela do 15000 wierszy poprzez VBA - kod i rozwiązanie

Witam, mam plik Excela z ok 15000 wierszy. Znalazłem poniższy kod, ale pobiera mi tylko ok 10000. Poradzi ktoś coś? Dim wkbCrntWorkBook As Workbook Dim wkbSourceBook As Workbook Dim rngSourceRange As Range Dim rngDestination As Range Set wkbCrntWorkBook = ActiveWorkbook Sheets.Add After:=ActiveSheet Sheets(2).Name = "EXPORT" With Application.FileDialog(msoFileDialogOpen...

[VBA] - Prośba o przerobienie kodu, by nie wyskakiwał błąd autoryzacji

[syntax=vbnet]Sub Otwórz () Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet ActiveSheet.Unprotect Password:="x" Application.ScreenUpdating = False Application.DisplayAlerts = False Set actWS = ThisWorkbook.Worksheets("Arkusz1") With Application.FileDialog(msoFileDialogFile... .Filters.Add "Pliki Excel (*.xlsx; *.xls)",...

Excel 2016 - Łączenie kilkunastu plików z jednym arkuszem w jeden wieloarkuszowy plik

[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFold... If .Show = -1 Then Folder = .SelectedItems(1) & "\" Else Exit Sub End If End With Set Razem = Workbooks.Add Application.DisplayAlerts = False Razem.SaveAs Environ("UserProfile") & "\Desktop\Razem.xlsx" Application.DisplayAlerts...

[Excel] Makro - kopiowanie tabeli z kilku plików do jednego

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 pliku, w ktorym mam przycisk i do niego przypisane makro....

Jak edytować kod VBA do kopiowania danych między plikami Excel?

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 .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect...

Excel: Makro do sumowania godzin dla unikalnych numerów klientów

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 Excela. Jeżeli otworzysz plik w ten sposób: Set wb...

VBA EXCEL - Tworzenei makra do wczytywania części danych z pliku .txt

: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 test Then MsgBox test Else MsgBox "Linia " & i + 1 & ". Ciąg nie...

Jak scalić wiele plików Excel do jednego arkusza z VBA?

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 (w tym docelowego) ' 3. Dane do scalenia są zawsze...