application getopenfilename

Otwieranie pliku i zapisywanie ścieżki w komórce za pomocą makra

Mógłbyś jeszcze podpowiedzieć jak wstawić całą ścieżkę do pliku? [syntax=vbscript]Range("A1") = Application.GetOpenFilename[/syntax]

VBA (excel) : otwieranie pliku z widocznym rozszerzeniem lub bez (IF)

[syntax=vbscript]Sub OtworzPlik() Filename = Application.GetOpenFilename(, , Title) Set a = Workbooks.Open(Filename) a.Activate End Sub [/syntax]

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

Sprobuj tak [syntax=vb]ChDrive "C" 'tu dysk ChDir "\badbat\" ' tu sciezka do folderza x = Application.GetOpenFilename("Wszystkie pliki, *.*")[/syntax]

VBA: Jak połączyć się z najnowszym plikiem Excel z datą w nazwie?

Witaj [syntax=vbnet] ChDrive "C:" ' Przejdz do dysku, gdzie konkretny folder ChDir "C:\Folderz\Subfolderz\konkretny folder" ' Przejdz w konkretny folder vFile = Application.GetOpenFilename(... itd) [/syntax]

Jak w VBA zapisać ścieżkę otwartego pliku w makrze?

Coś takiego [syntax=vbscript]plik = Application.GetOpenFilename(FileFilter:=... If plik <> 0 Then Set plik1 = Workbooks.Open(plik) End If[/syntax] ps Niedawno był podobny temat jak chcesz otwierać więcej plików https://www.elektroda.pl/rtvforum/topic3...

VBA Excel - Sprawdzanie poprawnej nazwy pliku przed kopiowaniem do arkusza

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]

VBA makro przenoszące wartości z innych plików xls

[syntax=vbscript]Sub Pobierz() Set w = ActiveWorkbook p = Application.GetOpenFilename("Pliki Excela,*.xls*", MultiSelect:=True) If UBound(p) = 2 Then Set a = Workbooks.Open(p(1)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("C10") a.Close False Set a = Workbooks.Open(p(2)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("E10") a.Close False...

Excel VBA pobieranie danych z innego pliku excel o zmiennej nazwie

będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...

Jak zmienić literę dysku w ścieżce VBA dla sieciowej lokalizacji?

Coś ma być zmienne, tylko co, bo zapis dwuznaczny - czy "Y:", czy reszta, czy całość ? Przeczytaj w pomocy podręcznej, chociażby o "Application. GetOpenFilename "

[VBA] Kopiowanie danych z jednego do drugiego pliku

jak mam nazwać w kodzie plik Możesz wybrać ręcznie: [syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook Plik = Application.GetOpenFilename(FileFilter:=... Excela, *.xlsx") If Not Plik Then Exit Sub Set b = Workbooks.Open(Plik) b.Sheets(1).Range("B2:B10").Copy a.Sheets(1).Range("C5").PasteSpecial xlPasteValues b.Close False End Sub [/syntax]

VBA kopiowanie danych z różnych skoroszytów do odpowiednich arkuszy

Tu masz bez 'set b': [syntax=vbscript]Sub KopiujMiesiace() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets(1) Plik = Application.GetOpenFilename Workbooks.Open Plik For x = 1 To Sheets.Count nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets(x).Range("A1:B10").Copy a.Range("A" & nw) Next ActiveWorkbook.Close Application.ScreenUpdating...

Jak wyświetlić ścieżkę do pliku bez nazwy pliku w MsgBox VBA?

testuj [syntax=vb]Sub aaa() Dim pname As Variant Dim file As Variant Dim length As Variant pname = Application.GetOpenFilename( _ filefilter:="Pliki Worda (*.xlsm),*.xlsm", _ Title:="Wybierz plik do importu danych") file = Dir(pname, vbSystem) MsgBox file Path = Left(pname, InStrRev(pname, "\")) Cells(1, 10).Value = Path End Sub[/syntax]

[Exel] Jak stworzyć makro do importu danych z pliku txt z wyborem pliku?

Jeju. Aleś się napisał. Pan Tadeusz przy tym to pestka. :D A wystarczą dwie linijki kodu nie licząc deklaracji. [syntax=vb]Sub OtwórzTekstowy() Dim strPlik As String strPlik = Application.GetOpenFilename Workbooks.OpenText strPlik, xlWindows, 1, xlDelimited, xlTextQualifierDoubleQuote, False, True, False, False, False, False End Sub [/syntax]

Jak w VBA otworzyć, skopiować dane i zamknąć plik o zmiennej nazwie?

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

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

Sprobuj to [syntax=vb] Sub zbior() Dim wb As Workbook fl = Application.GetOpenFilename("Excel ,*.xls*", , "Any files") If fl = False Then Exit Sub fl = Dir("*.xls*") With ThisWorkbook While fl <> vbNullString Set wb = Workbooks.Open(fl) shn = wb.Name wb.Sheets(1).Name = shn wb.Sheets(1).Copy after:=.Sheets(.Sheets.Count) wb.Close False fl = Dir...

Jak napisać marko w VBA pod poniższy scenariusz?

[syntax=vbscript]Sub Przycisk4_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=... Excel (*.xls*),", MultiSelect:=True) For i = 1 To UBound(plik) Set b = Workbooks.Open(plik(i)) Sheets("ORZ").Range("a146").Copy nw = a.Cells(Rows.Count, "C").End(xlUp).Row...

[Excel/VBA] Wczytanie danych z txt do dwóch Combobox'ów

Ponieważ dane które pobierasz masz rozdzielone tabulatorem, wystarczy taka prosta przeróbka: [syntax=vb]Private Sub CommandButton1_Click() ComboBox1.Clear ComboBox2.Clear Dim InFile As Integer InFile = FreeFile plik_txt = Application.GetOpenFilename("Pliki txt(*.txt),*txt") Open plik_txt For Input As InFile While Not EOF(InFile) Line Input #InFile,...

VBA - automatyczne uzupełnianie nazwy pliku z miesiącami (nazwapliku_miesiąc)

To może Application.GetOpenFilename?

[VBA] - Makro do kopiowania danych z innego pliku.

[syntax=vbscript]Sub Szukanie() NazwaPliku = UCase("SzukanyPlik.XLSX") Set Liczydlo = Sheets("SzukanyPlik") Application.ScreenUpdating = False Do While SzukanyPlik <> NazwaPliku p = Application.GetOpenFilename(FileFilter:=... files, *.xlsx", Title:="Find SzukanyPlik", MultiSelect:=False) SzukanyPlik = UCase(Mid(p, InStrRev(p, "\") + 1)) If...

EXCEL automat do kopiowania danych pomiędzy dwoma plikami

Bez obsługi błędów. Tylko przykład: [syntax=vbscript]Sub Kopiuj() PlikX = Application.GetOpenFilename("Plik Excela , *.xlsx") If PlikX <> False Then Set X = Workbooks.Open(PlikX) PlikY = Application.GetOpenFilename("Plik Excela , *.xlsx") If PlikY <> False Then Set Y = Workbooks.Open(PlikY) Y.Sheets("Arkusz1").Range("A1") = X.Sheets("Arkusz1").Range("A1")...

Excel 2013 VBA: Jak zautomatyzować separację i wstawianie danych z pliku DANE?

[syntax=vb] Sub karty() Dim src As Worksheet, r&, c& plk = Application.GetOpenFilename If plk = False Then Exit Sub Workbooks.Open plk Set src = ActiveWorkbook.Sheets(1) ThisWorkbook.Activate r = 2 With src While .Cells(r, 1) <> "" For c = 1 To 8 x = .Cells(r, c) If x <> "" Then For i = 1 To Len(x) Cells(c * 3 + 2, i) = Mid(x, i,...

Automatyczna aktualizacja 1000 plików .xls na podstawie wzoru - jak to zrobić?

Dodaj ten makro do nowego wzoru, który ma już stworzone odpowiednie formuły i VBA. [syntax=vb] Sub aktualiz() Dim wb As Workbook Dim wzor As Worksheet, mp As String mp = ThisWorkbook.Path & "\" Set wzor = ThisWorkbook.Sheets(1) zakr = Array("D7:D16", "G7:G9", "C20:C169") plik = Application.GetOpenFilename("Excel Files , *.xls*", , "Wybierz dowolny...

Excel makro z wyborem arkusza do wklejenia danych - jak to zrobić?

Możesz zobaczyć to z inputboxem: [syntax=vb]Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False Then Exit Sub Set openFile = Workbooks.Open(Filename:=plik)...

Jak modyfikować kod VBA do wczytywania wielu plików Excel naraz?

Wydaje mi się, że bardziej chodzi o wybieranie wielu w oknie 'GetOpen'. Nie wnikając w "panel" i "remonty" powinno być coś takiego: [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim tb() As Variant, test As Boolean, i As Integer Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie = MsgBox("Wybierz plik",...

[Excel] Jak zmodyfikować skrypt do łączenia plików, by brał nagłówek z pierwszego?

Ten skrypt nie kopiuje dokładnie - nadpisuje ostatni wiersz, bo nie przesuwasz zmiennej NextRow na kolejny wiersz. Kod po poprawkach: [syntax=vbscript]Private Sub CommandButton1_Click() Dim FolderName As String, fileName As String Dim NextRow As Long Dim ws As Worksheet Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (filefilter:="Microsoft...

Jak skrócić kod VBA, aby nie powtarzać nazw plików?

Przeczytaj w pomocy funkcje Dir a Application.GetOpenFilename

VBA kopiowanie zawartości komórek między plikami

plik chce dowolnie wybrać Application.GetOpenFileName Wiesz, jak napisać kod do otwierania pliku, a nie wiesz, jak skopiować dane z jednego do drugiego? Nie rozumiem chyba.

Wybór i zapis zdjęcia z UserForm do komórki w Excel VBA

No teraz to już znam nazwę metody Application.GetOpenFilename

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

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

Przyśpieszenie działania makra VBA przy otwieraniu i przetwarzaniu wielu plików xls

Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...

VBA - Import pliku CSV - usuwanie danych od kolumny zawierającej przecinek

Czy można zmodyfikować powyższy kod, tak aby wszystkie dane były importowane? Tak :ok: proponuję zamienić na taki kod :spoko: [syntax=vbscript]Public Sub ImpCsv() Dim Monthly As String Dim aConn As Object If ActiveWorkbook.Connections.Count > 0 Then For Each aConn In ActiveWorkbook.Connections aConn.Delete Next aConn ActiveWorkbook.Names(1).Delete...

[VBA] - Makro do kopiowania danych z innego pliku.

Sorki że się włączę a jeśli nie znamy nazwy pliku i próbujemy go znaleźć, otworzyć oraz skopiować to samo [syntax=vb]Application.GetOpenFilename("... Excela (*.xlsm),*.xlsm", 2)[/syntax] wystarczy?

Import pliku csv do określonego arkusza za pomocą kodu VBA

Jeśli dobrze rozumiem to chcesz zaimportować do określonego arkusza plik CSV? Można to zrobić tak, ale sposobów jest więcej (to pierwszy z brzegu przykład). Sub csv_Import() Dim wsheet As Worksheet, file_mrf As String Set wsheet = ActiveWorkbook.Sheets("Arkusz2&... 'nazwa arkusza do którego chcesz zaimportować file_mrf = Application.GetOpenFilename("Te...

[VBA] Jak przenieść otwarty plik Excel do folderu C:/BC/HS?

Witam, tu jest moja część makra. Ominąłem większość bo niepotrzebne w tym problemie. Otóż otwarty plik chce zapisać, zamknąć i przenieść do ścieżki C:/BC/HS. Wszystkie pliki będą pierwotnie w C:/BC. Jak to zrobić? "Plik = Application.GetOpenFilename Set a = Workbooks.Open(Plik).Sheets(1)" Te dwie linijki są potrzebne w innej części makra, przeniosłem...

VBA VLOOKUP z innego skoroszytu: rozwiązanie problemu #NAME? i otwieranie pliku na sztywno

To prawdopodobnie brak tego drugiego ampersanda. Teraz zauważyłem że metoda działa ale nadal jest zapętlona przy wyborze pliku. Zapomniałem dodać że działam na przefiltrowanych danych. Jak wyłączam filtrację to normalnie mogę wybrać plik bez zapętlenia. Od czego to zależy? Druga sprawa to chciałbym ustawić jakiś konkretny skoroszyt np otworzony wcześniej...

Excel VBA - Makro wiesza się podczas przetwarzania danych TXT

Witam, od dłuższego czasu pracuje nad plikiem, który pobierze dane TXT następnie obrobi je do oczekiwanej przeze mnie formy ( usunięcie wierszy gdy w kolumnie pojawiają się duplikaty pod warunkiem że w innej z kolumn pojawia się wartość 930). Część nagrałem część napisałem w oparciu o zamieszczone posty. Natomiast problem w tym, że jeszcze kilka dni...

VBA Excel - brak wyświetlania obrazu przez LoadPicture w Image

Mam formularz z kontrolką Image (FotoFracownika) i procedurę Private Sub FotoPracownika_Click() fileToOpen = Application.GetOpenFilename("Pliki graficzne (*.jpg), *.jpg") FotoPracownika.Picture = LoadPicture(fileToOpen) End Sub Po kliknięciu w kontrolkę ładuję obrazek i… nic, nie ma błędu ale i obrazek się nie wyświetla !!! Mogę ten sam obrazek...

Makro - Porównywanie danych zawartych w dwóch tabelach i usuwanie duplikatów

Hej, jest to mój pierwszy post na tym forum, dlatego z góry przepraszam za ewentualne błędy. Generalnie od niedawna uczę się pracować z VBA i obecnie staram się napisać program, który porówna dane z dwóch tabel ( liczba kolumn to zawsze od A DO AD), liczba wierszy zmienna. Chciałabym, żeby moje makro porównywało dane z tych tabel, a następnie usunęło...

VBA - Kopiowanie zakresu z innego skoroszytu do aktywnego skoroszytu

Cześć. Mam problem ponieważ nie działa mi kopiowanie zakresu z innego workbooka i wklejenie go do aktywnego workbooka. Cały wcześniejszy kod działa dobrze więc wychodzi na to że z tym jest jakiś problem. To wycinek kodu: [syntax=vbscript]Sub first() Dim wbA As Workbook Dim wsB As Worksheet Dim file As Variant Dim lastRow As Long Dim a As Variant file...

Excel - Makro, które poprosi o wybranie pliku xlsx

W najprostszej postaci taka procedura może wyglądać tak: [syntax=vbscript]Public Sub WskazPlik() Dim WB As Workbook Dim Wybor Wybor = Application.GetOpenFilename("Pliki Excel (*.xls*),*.xls*", , "Wskaż plik", "Wybierz", False) If Wybor <> False Then Set WB = Workbooks.Open(Wybor) Else Exit Sub End If End Sub [/syntax] Otwiera się okno dialogowe,...

[VBA] Jak użyć funkcji DodajMyslniki w wielu plikach bez kopiowania kodu?

Okej, racja poprawiłem. Teraz przeszukuje twój link i wpadłem na coś takiego. Przerobilem to ale najwyraźniej źle bo podświetla na czerwono. [syntax=vbscript]Function CopyModule(Module1 As String, _ VBAProject(plikodtworzeniowy.xlsm) As VBIDE.VBProject, _ VBAProject(Plik) As VBIDE.VBProject, _ OverwriteExisting As Boolean) As Boolean End Function[/syntax]...

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

Super, działa ale od czasu do czasu w pliku źródłowym mam puste wiersze i działa dopiero po usunięciu ich wszystkich tak samo w przypadku gdy po "|" nie ma znaków... mogę liczyć na jakąś prostą modyfikacje Twojego kodu z obsługą błędów? edit: I jeszcze jedno: jak mogę wpleść w to aplikację do wyboru pliku z okna dialogowego? Mam takie cudo: "Application.GetOpenFileName...

[Inne] VBA Excel Wstawianie zdjęć w shape, różne ścieżki

Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel) & i wg VB wynosi 1, gdzie faktycznie wartość...

Excel 2003 - Makro i funkcja konsolidacji danych oraz import pliku i arkusza

Witaj And (MyWorksheet.Name <> "RAZEM") = dla wszystkich arkuszy niezależnie od ich ilości, z wyjątkiem arkusza RAZEM 2. plik = Application.GetOpenFilename("File excel ,*.xls*", , "Select file") drugie okienko utworzyć formularz z pola listy lub pola kombi i wypełnienie listy nazwamy arkuszy

VBA: Jak zmienić kod makra, aby dane z pliku TXT zaczynały się od komórki A1?

Mam kod makra w Excel pobierający dane z pliku TXT. Moja prośba jest czy ktoś wie co trzeba zmienić aby zawsze zaczynał wypełnianie Excela od komórki "A1". Czy da sie zrobić tak żeby przycisk wywołujący to makro był w jednym arkuszu a zkopiwane dane z pliku TXT do innego arkusza. Private Sub CommandButton1_Click() 'Sub ImportRange()...

[VBA] Jak sprawdzić czy plik jest otwarty i w razie czego zamknąć?

Witam. Poniżej przedstawiłem kawałek mojego makra. Niestety nie wiem jak to zapisać tak, żeby nie wyrzucało błędu. "Plik.Open = True" jest źle, jak moge to zapisać inaczej? [syntax=vbnet]Plik = Application.GetOpenFilename Set a = Workbooks.Open(Plik).Sheets(1) Set c = ThisWorkbook.Sheets(1) If Plik.Open = True Then InputBox ("Wybrany plik jest już otwarty!...

[Excel VBA] import danych z wybranych wierszy i kolumn

Witam, Genialnie napisane, znacznie powyżej mojego poziomu wiedzy :-) bardzo dziekuje za pomoc! Mam tylko jedna prośbę - docelowe rozwiazanie, bedzie ciągnęło dane z kilku wskazanych plików zewnętrznych i rożnych zakładek, dlatego potrzebuje "odpiąć" te procedury od automatycznego wykonywania, tak abym mógł zastosować Application.GetOpenFilename i wskazywać...

zmiana koloru w wykresie w excelu uzależniona od wartości

np tak[syntax=vb]Sub zbior() Dim f As Variant f = Application.GetOpenFilename("Pliki Excel ,*.xls*", , "Wybierz dowolny plik") If f = False Then Exit Sub f = Dir("*.xls*") With ThisWorkbook.Sheets(1) While f <> "" Workbooks.Open f ow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Range("A1:A71,H1:H71,K1:K71,R1:R71").Cop... .Range("A" & ow) Workbooks(f).Close...

VBA - dzielenie wartości z dwóch komórek/wynik w trzeciej

Przetestuj teraz [syntax=vbscript] Option Explicit Sub Checker() Dim Path As String Dim ost_wiersz As Integer, Kolumna As Integer Dim i As Integer Dim Rng As Range Dim pt As PivotTable Dim j As Integer 'zaciąganie csv Path = Application.GetOpenFilename("CSV Files (*.csv), *.csv") Application.DecimalSeparator = "." Application.UseSystemSeparators = False...

[VBA] Jak stworzyć pętlę wyboru pliku z MsgBox po anulowaniu?

Możesz wykorzystać taki schemat kodu z pętlą. Szczegóły sobie dopasuj. Z obrazka trudno kopiować, a załącznika nie dałeś. [syntax=text]Sub Okno_w_petli() Dim nplik As Variant Do nplik = Application.GetOpenFilename("Wszystkie pliki (*.*), *.*", , "Wybierz plik") If nplik = False Then If MsgBox("Nie wybrano pliku." & vbLf & "Masz ostatnią szansę."...

Pobieranie zmiennego zakresu danych z pliku Date.xlsb do Base w arkusz1

Do pliku "Base" w arkuszu "arkusz1" chce pobrać dane z innego pliku xlsb o nazwie "Date" do tego celu użyłem zmiennej; [syntax=vbnet]Dim src As Workbook Dim plik As String plik = Application.GetOpenFilename("Skoroszyt(*... Set src = Workbooks.Open(plik)[/syntax] 'następnie I tutaj ponieważ ilość pobieranych danych nie jest stała chce zaznaczać...

Makro z funkcją VLOOKUP szukające wartości między wybranymi plikami i zmieniające nazwy

Cześć, Potrzebuje pomocy, a mianowicie czy da się napisać makro, które będzie szukać wartości funkcją vlookup z innego pliku, który chciałbym wybrać z folderu, a następnie dla N/A szukać wartości z innego, który też chciałbym wybrać. Dodatkowo, żeby dla wyszukanych wartości z pierwszego pliku zmieniało nazwę na "Tak", a z drugiego dla znalezionych wartości...

Pętla VBA z funkcją konwertującą skróty na pełne nazwy w zakresie komórek

Chodziło mi tylko o to że ilość kolumn jest niewiadoma i nie chcę na sztywno wpisywać ale już nieważne, dzięki. Mam jeszcze jedno pytanie. Zastosowałem metodę GetOpenFilename do wyboru pliku i u mnie wszystko działa normalnie. Wysłałem makro do znajomego i on mówi że przy próbie załadowania danych makro samo siebie zamyka. Czy coś jest nie tak z tym...

VBA wypełnianie serią danych do odpowiedniego zakresu

Jeżeli to pytanie dotyczy poprzedniego tematu, to trzeba dodać jedną linię kodu. [syntax=vbscript]Sub KopiujMiesiace() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets(1) Plik = Application.GetOpenFilename Set b = Workbooks.Open(Plik) For x = 1 To Sheets.Count nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 ow = Sheets(x).Cells(Rows.Count,...

Jak stworzyć UserForm z Checkbox'ami w VBA do wyboru arkuszy z wartością XXX?

Po wstępnych oględzinach działa super. Jutro dostosuję to do moich potrzeb, bo raczej chcę ten kod implementować w plikach właściwych, na których pracuję, a nie robić osobny plik sterujący. Tak swoją drogą to myślałem, że sam kod będzie bardziej rozbudowany :) . Dodatkowo mam pytanie dotyczące metody Application.GetOpenFilename, z której to czasami...

skrócenie makra- za każdym razem otwiera mi się okienko, w którym wybieram plik

Jeżeli kopiujesz podobne zakresy to (trochę to dziwnie robisz ale ) [syntax=vbscript]Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open Dane FileName = ActiveWorkbook.Name Worksheets("SUMA ODPADU").Range("A6:A100,C6:C100").Copy.....

VBA Przechodzenie między skoroszytami o zmiennej nazwie

Witam Tworze makro które będzie otwierało skoroszyt o zmiannej nazwie, wykonywało w nim kilka operacji typu filtrowanie itd a potem przenosiło z niego pofiltrowane dane do pliku w którym uruchamiałem makro. Arkusz w którym będzie uruchamiane makro też będzie miało zmienną nazwę niestety. Teraz mam problem ponieważ po otwarciu pliku z makrem uruchamia...

Jak napisać makro do otwierania i sprawdzania dowolnej ilości plików?

Praktycznie kodu nie ma, aktualnie stanęło na tym: [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=... excel (*.xls*),", MultiSelect:=True) 'With ActiveSheet 'liczbawierszy = .Cells(.Rows.Count, "J").End(xlUp).Row...

VBA Excel - Kopiowanie danych z innych plików do pliku zbiorczego-poprawa kodu

Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...

[VBA] Wybór grafiki wyświetlanej w UserForm

Mam teraz kod : Dodano po 10 Bo pole Image1 to muszę programować tylko pod kątem właściwości wyświetlanego obrazka? Dodano po 19 MAAAAAM !!!! Dodano po 6 A jak zrobić żebym mógł zmienić już wybrany obrazek przed zapisaniem całego UserForm. Już mam trzeba doadać : "AllowMultiSelect = True" Aby przeskalować obraz do wymiaru pola Image trzeba zmienić ustawienia...

excel, otwieranie innych plików excela w różnych arkuszach pliku bazowego.

Mam coś takiego, działa umozliwia mi wybranie jednego pliku i wstawienie w aktywnym arkuszu. Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików i zostały otwarte w osobnych arkuszach? Sub OpenCloseWorkbook() Dim MonthlyWB As Variant Dim FileName As String MonthlyWB = Application.GetOpenFilename( _ FileFilter:="Microsoft...

EXCEL VBA - Jak dodać załącznik z konkretnego katalogu w Outlook?

Witam. Mam problem z dodaniem załącznika z konkretnego katalogu. Próbowałem na wszelkie sposoby. Nie wiem jak dodać ścieżkę. Chodzi o to, że codziennie plik jest inny i chciałbym tylko otworzyć katalog z konkretnymi plikami (załącznikami). Proszę o pomoc. Dziękuje. Pozdrawiam. [syntax=vb]Sub Mail() Dim OutApp As Object Dim OutMail As Object Dim Szablon...

VBA Kopiowanie całego aktywnego arkusza do nowego skoroszytu

Witam wszystkich Potrzebuje zrobić makro w vba tak by otwierało dowolny plik xlsx. Następnie kopiuje całą zawartość otwartego pliku do tego pliku gdzie jest makro tylko do nowych arkuszy ( no i właśnie w tym miejscu mi się wykrzacza) Poniżej kod [syntax=vb]Sub Makro() Dim pl As Variant Dim plik As Workbook pl = Application.GetOpenFilename() If pl =...

VBA Excel 2003 - Makro do dodawania i otwierania hiperłączy za pomocą przycisków

Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...

EXCEL VBA - Kopiowanie danych ze starego pliku do nowo utworzonego

1. Edit: Do otwarcia pliku za pomocą dialogu można użyć [syntax=vb]Plik = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)[/syntax]

Jak przekształcić plik .txt na arkusze w Excelu z nagłówkami jako arkusze?

Testuj. Testowałem ten Twój kod w Excel 2016 i po jednokrotnym przejściu coś się wykrzacza :-( Niestety ze względu na Twoje zabezpieczenia widzę tylko dwie procedury i być może błąd powstaje z uwagi na brak przełączenia na końcu opcji Application.ScreenUpdating na True albo coś źle współpracuje ta procedura z jakimiś ukrytymi procedurami skoroszytu....

Excel - Jak konsolidować dane z wielu tabel bez nadpisywania?

W procedurze Importuj jest błąd. Powinno być: [syntax=vb]Sub Import() Application.ScreenUpdating = False Dim Plik As String, OstW As Long Plik = Application.GetOpenFilename("Pliki XLS (*.xls),*.xls", , "Wybierz plik z danymi") If Plik = "False" Then Exit Sub Workbooks.Open Plik Sheets("Arkusz1").Select OstW = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(2,...

EXCEL - VBA - Jak wyświetlić godzinę wysłania maila w msgbox?

Witam. Wysyłając ważny plik, chciałbym uzyskać potwierdzenie wysłania w postaci msgbox z godzina wysłania, ewentualnie od razu po wysłaniu maila z formularza żeby wyświetliła się aktualna godzina. Będę wdzięczny za porady. Poczta idzie bez zarzutu, gorzej z potwierdzeniem.. [syntax=vbscript]Dim OutApp As Object Dim OutMail As Object Dim strbody As String...

Excel makro VBA-Wczytywanie ciągu znaków z pliku tekstowego "z dziwnymi zna

Plik nie jest tekstowy, jest binarny. 60 znaków, pozostałych tak jakby nie widzi po 60 znaków jest duzo z kodem 00, t.z. koniec linji, dlatego nie widzi. Przeczytaj w pomocy Open # typ binary, random np. Open sciezka For Random As #1 Ponadto 'statement Seek' i Get Dodano po 11 [syntax=vb]Dim sciezka As Variant Dim linia As String * 14 sciezka = Application.GetOpenFilename("Text...

VBA wczytanie pliku tekstowego do EXCELA wraz ze wszystkimi znakami

Witam, Chcialabym wczytac plik zródłowy wraz ze wszystkimi znakami jakie tam wystepuja. Spacjami i tabulatorami itd. 896735 KOD VBA: Sub read_f() Dim myfile As String, textData As String, textRow As String, fileNo As Integer, x As Double myfile = Application.GetOpenFilename() 'open any file fileNo = FreeFile 'Get first free file number textRow = 1 Open...

Jak wyłączyć komunikat aktualizacji w makro Excel?

Cześć, widziałam no forum już https://www.elektroda.pl/rtvforum/topic2... podobny temat, ale próbuję zastosować UpdateRemoteReferences = False i niestety nie działa. [syntax=text] Sub Kopiowanie_z_pliku() Dim Dane As Variant Dim FileName As String Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm",...

VBA - pętla dla arkuszy RD1-RD10, kopiowanie komórek do pliku zbiorczego

Sprobuj[syntax=vb]Sub Zbior_dane() Dim dane As Range, bk As Workbook, sh As Worksheet, r& Dim plik$, f As Variant f = Application.GetOpenFilename("Pliki Excel ,*.xls*", , "Wybierz plik") If f = False Then Exit Sub Set dane = ThisWorkbook.Sheets(1).Cells pth = CurDir & "\" plik = Dir(pth & "*.xls*") r = 1 While plik <> "" Set bk = Workbooks.Open(plik)...

Excel VBA - Zapisywanie wskazanego pliku PDF do folderu udostepnione OneDrive

Czesc, Niestety przyszlo mi dzialac w pracy przy pomocy OneDrive, nie kalsycznego serwera gdzie kazdy moze po prostu wejsc do folderu.... i pojawil sie problem z transferem plikow. Mianowice, potrzebuje stworzyc makro, ktore bedzie dosyc prostym UserFormem, w ktorym pozostali wypelnia podstawowe dane oraz za pomoca przycisku ''browse'' wskaza mi plik...

Excel VBA - Zawartość której nie można odczytać.

Witam. Mam dziwny problem. Przyniosłem z pracy kilka plików utworzonych w Excelu, w tej samej wersji 2007. Obojętnie jaki ma ten plik rozszerzenie *.xlsx czy *.xlsm. Wszystkie te dokumenty mogę bez problemu otwierać i obrabiać. Problem pojawia się dopiero po tym jak wcześniej w innym arkuszu uruchomię pewne makro. Udało mi się dojść do tego, że problem...

[VBasic] Błąd przy wczytywaniu pliku 14012012.rpt w makrze VBasic

Witam, czy możecie mi powiedzieć dlaczego jak wykonuję poniższy kod to pojawia się błąd. Wykonanie kodu dla pliku o nazwie: 13012012.rpt przebiega poprawnie a jak wczytuję plik 14012012.rpt to pojawia się problem. Oba pliki załączyłem. [syntax=vb] Sub Czytaj() Dim PLU As String, Temp As String, J As Double, FullFileName FullFileName = Application.GetOpenFilename("Raport...

VBA - Przypisanie do zmiennej ścieżki do pliku + nazwa arkusza

Witam Proszę o informację czy za pomocą kodu VBA można przypisać do zmiennej ścieżkę + nazwa arkusza Za pomocą kodu [syntax=vb]NowaZmienna = Application.GetOpenFilename(FileFilter:=... Excel (*.xls), (*.xls)")[/syntax] mogę przypisać do zmiennej ścieżkę do wskazanego pliku. Ale czy da się przypisać do zmiennej nazwę arkusza z którego chcę importować...

VBA - Makro do kopiowania danych z wielu arkuszy do nowego skoroszytu

Z jakiegoś tematu, nie pamiętam i nie próbuję nawet szukać, uchowała mi się taka "kopiarka". Oczywiście do przerobienia, ale jeśli koncept do zaakceptowania... Niestety jakkolwiek bym się starał z załączonego pliku nie rozumiem nic :-) Mam prosty kod otwierający plik. [syntax=vb]Sub GetImportFileName() Dim Filt As String Dim FilterIndex As Integer...

pobieranie danych do pliku z innego pliku z konkretnego arkusza

Dzień dobry, mam makro, które przykleja mi zakładkę z pliku, ta która akurat była otwarta gry zapisywało się plik. Chciałabym jednak, żeby makro przyklejało mi dane z konkretnej zakładki z konkretnego pliku. Zakładka nazywa się SUMA ODPADÓW. Plik, z którego chcę przeklejać nazywa się Wafel. Plik docelowy to Odpady. Jak dopisać, że chcę pobierać dane...

VBA - Zapisywanie wyszukanego pliku xls* jako txt ze średnikiem jako separator

Witam serdecznie! Mam problem z makrem. Chcę w makrze wskazać plik xls* i zamienić go na txt, w którym zamiast Tab jako separator byłby ";". Napisałem na razie takie makro, ale niestety nie jest to pełne. Przepraszam ale jest to moje pierwsze podejście do VBA, dlatego może być to bardzo złej jakości i jest na 100% niekompletne. [syntax=vbscript]Option...

VBA - Skopiowanie kilku skorosztytow do jednego ( tylko skoroszyty z danymi).

Dzięki wielkie, tylko niestety nie o to samo mi chodzilo:( Obecnie mam taki kod...,ktory pozwoli mi wybrac jeden plik oraz tworzy z pliku nowy arkusz z danymi z wybranego pliku,niestety wrzuca tez puste arkusze ;( [syntax=vb]Sub Makro() Dim pl As Variant Dim plik As Workbook pl = Application.GetOpenFilename() If pl = False Then Exit Sub Set plik = Workbooks.Open(FileName:=pl)...

EXCEL VBA: Automatyczne pobieranie nazwy pliku załącznika do tematu maila

Jaki błąd? Bo u mnie https://obrazki.elektroda.pl/6603446000_...

VBA - Zaznaczenie wszystkich arkuszy i zapisanie każdego z osobna do pliku

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 parts of given (def = 40) rows excl one- sheet files '...

Excel VBA: Makro do kopiowania wierszy na podstawie plików indexy1.txt i indexy2.txt

Witaj Jest tylko indexy1.txt i indexy2.txt lub więcej plików tekstowych? Ma nazwy pliku stałych(indexy1.txt i indexy2.txt ) czy mogą być różne? Tam jest tylko indeksy(505-20-073), lub dłuższe wiersze? Te indeksy w osobnych wierszach? Dodano po 1 Pozostaje tylko chyba do odgadnięcia Spróbuj: [syntax=vb]Sub Idz() Dim ostw& Dim ns% Dim bs As Range, cs...

VBA Excel: Wczytywanie danych z pliku *.txt lub *.csv do określonych komórek

slicznie dziekuje teraz wrocilem z pracy jak wstane bede testowal dzieki bardzo jeszcze raz, napisze jak to dziala u mnie :) wszystko dziala dziekuje bardzo o to mi chodzilo :) pozdrawiam P.S. Przerobilem to troszke i dziala idealnie, jakby ktos potrzebowal to skrypt obsluguje otwieranie pliku z podanej lokalizacji poprzez okienko windowsowskie Sub...

VBA wklejanie dwóch zakresów komórek po zaznaczeniu komórki w innym arkuszu

A dlaczego klawiszem Insert? On nie do tego służy. Tak wiem, że ten klawisz jak wszystkie inne na klawiaturze do czegoś służy. Dałem przykład - równie dobrze może być to kombinacja klawiszy, skrót, jakkolwiek to ubierzemy. Zwyczajnie chcę wybrać sobie miejsce do wklejenia dwóch różnych zakresów z jednego arkusza w dwa różne zakresy drugiego arkusza....

VBA Excel - wybór pliku zewnętrznego z danymi żródłowymi i odświeżenie danych

Próbuje dodać wskazane przez Ciebie elementy do kodu, ale nie do końca mi sięudaje. Kod obecnie wygląda tak: [syntax=vbscript]Sub OdswiezanieDanych() Dim Zrodlo As Variant Dim Nazwapliku As String Dim Skoroszyt As Worksheet Dim Tabela As PivotTable Zrodlo = Application.GetOpenFilename(FileFilter:=... Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open...

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

Zrobiłem pętle ( w zasadzie dwie bo jednej nie potrafię, ale to nie ważne bo działa jak powinno ) [syntax=vb] Sub kopiuj2() Dim i As Double Dim z As Double z = 1 y = 1 ActiveWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Coun... For Each Ark In ActiveWorkbook.Worksheets If Ark.Index <> ActiveWorkbook.Sheets.Count Then Ark.Activate...

Jak napisać makro VBA do wyszukiwania i zwracania wartości w Excelu?

Dziękuję Ci bardzo. Działa Dodano po 1 Załóżmy, że mam dwa excele gdzie kolumna A jest taka sama natomiast mogą się różnić nazwy w kolumnie B i chciałbym porównać te wartości w kolumnie B do siebie dla tych dwóch exceli. Oczywiście tylko sprawdzam nazwy które są przypisane do liczby z kolumny A, którą wybieramy. Ogólnie miałem takie makro: [syntax=vbscript]Sub...

[VBA] Excel - poprawienie kodu na kopiowanie danych

[syntax=vbscript]Sub Kopiuj() Application.ScreenUpdating = False Set a = Workbooks("plikodtworzeniowy.xlsm").Shee... Plik = Application.GetOpenFilename Set b = Workbooks.Open(Plik).Sheets(1) l = b.Cells(Rows.Count, "AP").End(xlUp).Row + 1 If a.Range("AP2") = "" Then l = 2 b.Range("B11") = "=RIGHT(R[-1]C,10)" a.Range("L" & l & ":L" & l) = b.Range("B1")...

makro w excelu które po kliknięciu otwiera okno wyboru i wkleja zdjęcie

Witam, Mam taki problem. Nie jestem zbyt zaawansowany w pisaniu makr. Ostatnio próbowałem napisać w excelu takie, które po naciśnięciu przycisku, który wstawiłem do dokumentu przez formanty formularza, otworzy okno wyboru, gdzie będe mógł wybrać zdjęcie w formacie jpg lub mapy bitowej a następnie wklei do dokumentu to wybrane przeze mnie zdjęcie, w...

VBA Excel - Usuwanie wiersza jeśli jest w nim dane słowo, łączenie kilku makr

wyciągnąć z tych txt liczby pierwsze od lewej. Innymi słowy trzeba wyciągnąć rzeczywistej średnicy i zaokrąglenie? Oraz Rozmiar osi X? Dodano po 53 Spróbuj [syntax=vb]Sub Wybierz_wyniki_do_analizy() Dim plik As String, r&, c&, i&, krt krt = Array("Circle:*", "Diameter*", "Circularity*", "Plane:*", "X-axis*") Filt = "Wszystkie pliki (*.*),*.*"...

Excel - porównanie cen produktów z dwóch tabel na podstawie kodu produktu

W pliku, gdzie tabela A, to makro [syntax=vb] Sub porownaj() fl = Application.GetOpenFilename("Excel Files ,*.xls*", , "Wybierz plik") If fl = False Then Exit Sub Dim bs As Range, bd As Range Dim rs&, rd&, rp& Dim cb& Set bs = ThisWorkbook.Sheets(1).Range("A:A") Set bd = Workbooks.Open(fl).Sheets(1).UsedRange bn = ActiveWorkbook.Name...

Jak naprawić działanie makra z pliku Personal przy kopiowaniu tabel?

Dzień Dobry Mam kłopot po skopiowaniu kodu do pliku Personal makro nie działa poprawnie i nie wiem jak to zmienić. Zaczynam od otwarcia pliku na którym pracuję i i robię kopie arkusza tam będą kopiowane wartości z tabelą nieciągłą obszar ("A1:Q18").Wszystko działa do momentu otwarcia i skopiowania tabeli z wskazanego pliku niestety dalej makro nie przechodzi...

VBA / Excel - Jak połączyć kilka plików csv w jeden

Witam! Mam problem z pewną czynnością. Mianowicie z pewnego programu generują mi się raporty w formacie csv. Jest ich zawsze kilkadziesiąt ze względu na fakt, iż program ma ograniczenie do 300 wierszy. Muszę więc wygenerować kilkadziesiąt raportów a później złączyć je w jeden. I tu problem jak zrobić to makrem. Pliki zawsze nazywają się inaczej, a w...

[VBA] Jak pominąć wybrane kolumny przy kopiowaniu danych z plików Excel?

Witam, Mam makro które pozwala mi skopiować dane z kilku plików excela do jednego. Zależało mi na tym żeby kopiować tylko wybrane kolumny. Udało mi się to częściowo bo w tej chwili kopiuje dane zaczynając od kolumny "C". Nie umiem sobie natomiast poradzić z pominięciem kolumn które znajdują się pośrodku, np kolumnę "E". Będę wdzięczny za pomoc. Proszę...

Modyfikacja makra VBA do kopiowania danych z wielu plików do jednego arkusza

Witam, chciałbym prosić o pomoc w modyfikacji jednej funkcji: [syntax=vbscript]Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:=... Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xls...

VBA Excel - Jak przesunąć kopiowanie danych z kolumny A do B?

cześć, napisałem makro które kopiuje mi dane z nowo otwieranego pliku do tego, które chce. Tylko że robi to w wersji jeden do jednego, a ja potrzebuję rozwiązania na przesunięcie tych danych do innej kolumny tak aby dane nie były wklejane dla mnie w kolumnie A tylko B. Macie jakieś proste rozwiązanie na to? [syntax=vb] Sub Makro1() ' ' Makro1 Makro...

Funkcja VBA w EXCEL - przeszukiwanie wielu plikow w wybranej ściezce

[syntax=vbscript]Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:=... Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xls... Title:="Choose Excel files to merge", MultiSelect:=True)...

EXCEL - VBA - Import danych z zadanego szablonu Worda do Outlooka bez wyboru pliku

Witam, chciałbym zaimportować dane tj. w temacie, ale bez wyboru pliku. Szablon byłby na stale przypisany do makra. Próbuje zmian na wszelkie sposoby, ale bez skutku.. Proszę o pomoc. [syntax=actionscript]Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetCurrentDirectory Lib "kernel32" _ Alias "SetCurrentDirectoryA" (ByVal lpPathName...

VBA Excel - Kopiowanie danych oraz przypisanie do nich wartości.

Cześć, mam pewien problem odnośnie rozwiązania przypisania danej wartości w każdym wierszu gdzie następuje kopiowanie danych z jednego arkusza do drugiego. [syntax=vbscript] Private Sub CommandButton1_Click() CutCopyMode = False Dim strPlik As String Dim i, b, z As Integer Dim data As String Application.ScreenUpdating = False ' Kopiowanie danych do...