Forum elektroda.pl

Regulamin  | Punkty  | Dodaj...  | Ostatnie  | Szukaj  | Rejestracja  | Zaloguj

Ta strona używa cookie. Dowiedz się więcej o celu ich używania i zmianie ustawień cookie w przeglądarce.
Korzystając ze strony wyrażasz zgodę na używanie cookie, zgodnie z aktualnymi ustawieniami przeglądarki.

Excel - pobieranie danych z innych plików.


Napisz nowy temat  Odpowiedz do tematu      Strona Główna -> Forum elektroda.pl -> Komputery Serwis -> Komputery Software -> Excel - pobieranie danych z innych plików.
Autor
Wiadomość
micamic
Poziom 2
Poziom 2


Dołączył: 02 Sie 2009
Posty: 2

Post#1 Post autora tematu 02 Sie 2009 10:33   

Excel - pobieranie danych z innych plików.


Witam,

Potrzebuję pobierać do mojego arkusza dużo danych innych arkuszy i chcę to zautomatyzować. Arkusze to : Zeszyt_nr1.xls, Zeszyt_nr2.xls, Zeszyt_nr3.xls itd

czy można wstawić do nazwy pliku w ścieżce odwołania zmienną ?

np.
='[Zeszyt_nr zmienna .xls]Arkusz1'!$A$1

Jak to napisać bo jestem już zmęczony przeciąganiem komórek i robieniem tego na piechotę :|
Powrót do góry
   
Google


Google Adsense


Post# 02 Sie 2009 10:33   





Powrót do góry
   
adamas_nt
Moderator
Moderator


Dołączył: 26 Sty 2008
Posty: 3960
Miasto: Nowy Tomyśl

Post#2 02 Sie 2009 12:59pomocny post - solucja   

Re: Excel - pobieranie danych z innych plików.


Nazwy obiektów są typu String, więc wystarczy "poskładać" Np makrem:
Range("C3")=Workbooks("Zeszyt_Nr" & zmienna & ".xls").Sheets("Arkusz1").Range("A1")
Plik musi być otwarty.

Lub formułą w arkuszu:
=ADR.POŚR(ZŁĄCZ.TEKSTY("'[!Zeszyt_Nr";C1;".xls]Arkusz1'!$A$1"))
Gdzie Nr wpisany jest w komórce C1 (tu również plik musi być otwarty).

Możesz dodać łacza do plików w referencjach (edytor VB) i wtedy mogą być zamknięte dla obu przypadków.
Powrót do góry
   
Google


Google Adsense


Post# 02 Sie 2009 12:59pomocny post - solucja   





Powrót do góry
   
micamic
Poziom 2
Poziom 2


Dołączył: 02 Sie 2009
Posty: 2

Post#3 Post autora tematu 02 Sie 2009 14:37   

Re: Excel - pobieranie danych z innych plików.


Rewelacja !
Wiele godzin szukałem pomocy na microsoft.support a tu nagle rozwiązanie tak szybko. Wielkie dzięki.
Powrót do góry
   
Google


Google Adsense


Post# 02 Sie 2009 14:37   





Powrót do góry
   
noonka
Poziom 5
Poziom 5


Dołączył: 03 Gru 2013
Posty: 12
Miasto: Poznań

Post#4 05 Gru 2013 19:32   

Re: Excel - pobieranie danych z innych plików.


Witam,

przygotowuję makro, które kopiuje określone wiersze z wielu plików xls i zapisuje je do jednego arkusza tworząc swojego rodzaju bazę. Niestety nie jestem zbyt zaawansowana jeśli chodzi o VBA, wiec moja metoda jest dość chałupnicza:(
najpierw podaję nazwę pliku Excel go otwiera ale problem polega na tym, że kopiując wartości z pliku źródłowego konieczne jest wprowadzanie nazwy jeszcze raz, chociaż teoretycznie jest tam podana zmienna, która powinna te nazwę przechowywać. Najgorsze w tym wszystkim jest to, że w często wartości odpowiadające danym z kilku arkuszy się "ujednolicają" i tym sposobem wszystkie wartości w arkuszu są takie same:(

Kod Visual Basic - [rozwiń]
Sub formuly()
 
plik = InputBox("podaj nazwę pliku źródowego:")
Workbooks.Open Filename:= _
"C:\Users\Desktop\folder docelowy\" & plik & ".xls"
 
pliczek = "plik" & ".xls"
 
Sheets("Info").Select
Range("B4").Select
Selection.Copy
Windows("Zeszyt1.xlsm").Activate
 
Sheets("dane z RZiS").Select
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
 
Range("A201:A205").Select
Selection.Copy
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
 
ActiveSheet.Range("b" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = _
"=IF([pliczek]YR_reports!R29C13="""","""",[pliczek]YR_reports!R29C13)"
ActiveSheet.Range("b" & Rows.Count).End(xlUp).Offset(1).Select


chciałabym prosić o pomoc w kwestii usprawnienia kopiowania i zabezpieczenia wartości przed "ujednolicaniem".

z góry dziękuję za pomoc:)
Powrót do góry
   
JRV
Poziom 19
Poziom 19


Dołączył: 29 Paź 2009
Posty: 759

Post#5 05 Gru 2013 23:01   

Re: Excel - pobieranie danych z innych plików.


Witam
noonka napisał:
pliczek = "plik" & ".xls"
- Dlaczego 'plik' w cudzysłowie jeśli
noonka napisał:
plik = InputBox("podaj nazwę pliku źródowego:")

należy uważnie przeczytać post 2 w tym względzie:
noonka napisał:
"=IF([pliczek]YR_reports!R29C13="""","""",[pliczek]YR_reports!R29C13)"

chce być "=IF([" & pliczek & "]YR_reports!R29C13="""","""",[" & pliczek & "]YR_reports!R29C13)"
Powrót do góry
   
noonka
Poziom 5
Poziom 5


Dołączył: 03 Gru 2013
Posty: 12
Miasto: Poznań

Post#6 06 Gru 2013 11:05   

Re: Excel - pobieranie danych z innych plików.


bardzo dziękuję za pomoc - działa jak należy:)

kombinowałam z konkatenacją w formule, ale źle wstawiałam cudzysłowy:)

Pozdrawiam i życzę miłego dnia:)
Powrót do góry
   
Napisz nowy temat  Odpowiedz do tematu      Strona Główna -> Forum elektroda.pl -> Komputery Serwis -> Komputery Software -> Excel - pobieranie danych z innych plików.
Strona 1 z 1
Podobne tematy
[Excel] pobieranie danych z innych plików (4)
Excel - Pobieranie danych z innych plików (4)
[Excel] Pobieranie danych z innych plików oraz dopisywanie ich do listy (1)
[Excel] Pobieranie danych z zamknietych plików (14)
Exel - [Excel] Pobieranie danych z plików (4)
Excel - Pobieranie danych z plików txt do arkusza (20)
[EXCEL] - Przerzucanie danych do innych plików. (2)
[excel] [vba] Pobieranie danych z plików po nazwie wiersza (1)
[EXCEL VBA]- Pobieranie danych z kilkunastu zamknietych plików (6)
Excel - Pobieranie danych z dwóch plików i porównanie zmian w % (6)


Administrator || Moderatorzy || Regulamin forum || Regulamin ogólny || Informacja o cookies || Reklama || Kontakt

Page generation time: 0.084 seconds

elektroda.pl temat RSS