Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

VBA Pobieranie wybranych plików z danymi

#1
VBA Pobieranie wybranych plików z danymi
Pilnie potrzebuję pomocy.
Mam folder ("osoby") z kilkonastoma plikami. Każdy z plików jest nazwany imieniem i nazwiskiem danej osoby; w plikach są informacje o tych osobach (wiek, zamieszkanie, itp.) Plik "lista osób" to dwie kolumny: imienazwisko.xls; imięnazwisko.
I potrzebuję ograniczyć pobieranie danych do wybranych osób, czyli żeby makro mi nie pobierało danych do wybranych osób: jest 100 nazwisk a ja chcę wykluczyć wszytskich janówkowalskich.
Z góry dziękuję!

Kod bierz z znaczniki "code"
Wyjątkowo poprawiłem.
broda99

.


Kod:
Sub MakroOsoby()
Dim tab_pliki(1 To 100, 1 To 2) As String
Dim ilosc_pliki As Integer
Dim stan As Boolean
Dim nr_wiersza As Integer
stan = False

Application.ScreenUpdating = False

Windows("lista_osób.xlsm").Activate
Range("A1").Select

While ActiveCell.Value <> ""
ilosc_pliki = ilosc_pliki + 1
tab_pliki(ilosc_pliki, 1) = ActiveCell.Value
tab_pliki(ilosc_pliki, 2) = ActiveCell.Offset(0, 1).Value

ActiveCell.Offset(1, 0).Range("A1").Select
Wend

ChDir "X:\moje\osoby\makro"
Workbooks.Open Filename:= _
"X:\moje\osoby\makro\dane.xlsx"
Windows("dane.xlsx").Activate
For i = 1 To ilosc_pliki

Range("A2").Select
stan = False
While ActiveCell.Value <> "" And stan = False

If ActiveCell.Value = tab_pliki(i, 2) Then
'kopiowanie
ActiveCell.Offset(0, 1).Range("A1:C1").Copy
Workbooks.Open Filename:="X:\moje\osoby\osoby\" & tab_pliki(i, 1), _
Origin:=xlWindows
Worksheets(1).Activate
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
nr_wiersza = ActiveCell.Row
Range("A1").Select
Worksheets(2).Activate
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets(3).Select
ActiveChart.SetSourceData Source:=Sheets(1).Range("A1:D" & nr_wiersza)
Sheets(2).Select
Range("A1").Select
ActiveWorkbook.Close savechanges:=True
stan = True

ActiveCell.Offset(1, 0).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If


Wend
Next i

' Workbooks.Open Filename:="X:\moje\osoby\osoby.xlsx", _
' Origin:=xlWindows
Range("C1").Select

End Sub
 System operacyjny: windows_eight Przeglądarka: firefox
#2
RE: VBA Pobieranie wybranych plików z danymi
Już ci odpowiedziałem tutaj: http://www.excelforum.pl/topics3/vba-pob...t61270.htm - (pod innym nickiem): daj "zbiorczy" plik z makrem i 2-3 przykładowe pliki z danymi do importu.

I doprecyzuj co to znaczy: "janówkowalskich" - jaka ma być reguła?


Wątek przenoszę do odpowiedniego działu.
broda99

.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (VBA Pobieranie wybranych plików z danymi)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [VBA Excel] Wyszukiwanie wartości w kolumnie Pioro 2 3323 22.06.2020, 18:27
Ostatni post: Pioro
  VBA excel dmjs 6 12017 17.04.2019, 10:20
Ostatni post: ptrick
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 12977 19.06.2018, 23:24
Ostatni post: broda99

Skocz do:


Wybrane wątki (VBA Pobieranie wybranych plików z danymi)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4708 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 24764 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7213 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 8998 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 10937 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 10320 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 10358 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 12312 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4667 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 11543 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 12017 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 11591 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 11176 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 10257 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 14147 21.03.2019 01:28
Ostatni post: UnableToSee