GoldenLine
Zaloguj się

konto usunięte

Temat: Makro pobierające dane z zamknietego skoroszytu.

Witam,

potrzebuję makro pobierające dane z zamkniętego skoroszytu. Nazwa skoroszytu się zmienia w zależności od miesiąca więc dobrze by było gdyby makro poprosiło o wskazanie pliku i następnie pobrało ze wskazanego pliku dane z arkusza "dane" i wkleiło dane (jako wartości) do arkusza zawierającego owe makro, arkusz powiedzmy niech nazywa się "import". Znalazłem już kilka tematów z takim makrem ale w żadnym nie ma dokładnie tego co ja potrzebuję ale jak jest coś w podobie to nie działa lub ja coś źle robię. Czy jest ktoś mi wstanie pomóc? :)Ten post został edytowany przez Autora dnia 31.03.14 o godzinie 18:56
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Makro pobierające dane z zamknietego skoroszytu.

Nie bardzo wiadomo jakie dane i ile tych danych chcesz pobierać z plików. Służy do tego funkcja getValue, którą faktycznie możesz bez trudu odszukać w internecie. Jednak dla większych ilości danych efektywniej jednak otwierać plik/pobrać dane i zamknąć.

Polecam gotowe rozwiązania, np.: Wartości z komórek skoroszytów
lub o ile dane pochodzą z wielu arkuszy danego skoroszytu: Wartości z komórek arkuszy
Link do wypowiedziLink

konto usunięte

Temat: Makro pobierające dane z zamknietego skoroszytu.

No właśnie zauważyłem, że pobieranie danych z zamkniętego skoroszytu jest dość problematyczne. Dzięki za linki do dodatków (może kiedyś skorzystam) ale na razie poradziłem sobie makrem, które otwiera wybrany skoroszyt, kopiuje (akurat w tym przypadku) kolumny A:BL i wkleja do mojego skoroszytu z makrem, na końcu plik z którego zaciągamy dane jest zamykany. Wklejam kod makra, może się komuś przyda...

 Sub OpenCloseWorkbook()

Dim MonthlyWB As Variant

Dim FileName As String

 

MonthlyWB = Application.GetOpenFilename( _

FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open Production Report")

 

Workbooks.Open MonthlyWB

FileName = ActiveWorkbook.Name



Range("A:BL").Select

Selection.Copy

ThisWorkbook.Activate

Range("A1").Activate

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

Application.CutCopyMode = False

Workbooks(FileName).Close SaveChanges:=False

End Sub
Link do wypowiedziLink
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: Makro pobierające dane z zamknietego skoroszytu.

A co z ADO?
Link do wypowiedziLink

konto usunięte

Temat: Makro pobierające dane z zamknietego skoroszytu.

Pewnie się da ale ja na ADO się nie znam i nigdy nie tworzyłem nic w tej technologii dostępu. Ale jeżeli ktoś ma jakieś koncepcje to chętnie sprawdzę...
Link do wypowiedziLink
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: Makro pobierające dane z zamknietego skoroszytu.

Użyj funkcji GetValue
http://www.excelforum.pl/viewtopic.php?p=202397
Link do wypowiedziLink
Tomasz Komor

Tomasz Komor Inżynier Mechatronik

Temat: Makro pobierające dane z zamknietego skoroszytu.

Witam,
Mam plik z zestawieniem gdzie podawana jest nazwa pliku Excel "śrubka" w kolejnej kolumnie suma sztuk.

Ręczne wpisywanie nazwy pliku i sprawdzanie sztuk w każdym pliku jest kłopotliwe mając ponad 4000 plików.
Próbowałem z
[code}ADR.POŚR(C1 &"!B1")[\code]
jednak wyskakuje błąd

Umiem z nazwy pliku śrubka zrobić nazwę z rozszerzeniem XML śrubka.xml tylko jak to wstawić do formuły adresu by pobrało dane z danej ścieżki S:\Polska\magazyn\ oraz plik podkładka.xml śrubka.xml oraz dane z komórki G20
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora

konto usunięte

Temat: Makro pobierające dane z zamknietego skoroszytu.


 Sub OpenCloseWorkbook()

Dim MonthlyWB As Variant

Dim FileName As String

 

MonthlyWB = Application.GetOpenFilename( _

FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open Production Report")

 

Workbooks.Open MonthlyWB

FileName = ActiveWorkbook.Name



Range("A:BL").Select

Selection.Copy

ThisWorkbook.Activate

Range("A1").Activate

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

Application.CutCopyMode = False

Workbooks(FileName).Close SaveChanges:=False

End Sub
Ten post został edytowany przez Autora dnia 13.02.17 o godzinie 11:39
Link do wypowiedziLink
Anna Klima

Anna Klima

Temat: Makro pobierające dane z zamknietego skoroszytu.

Witam, mogłabym prosić o pomoc przy modyfikacji kodu w ten sposób aby była możliwość pobierania danych np z dwóch arkuszy? Czyli procedura powinna otworzyć skoroszyt, pobrać dane z arkusza1 oraz z arkusza2 oraz zamknąć ten skoroszyt. Bardzo będę wdzięczna za pomoc
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj