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 dmjs 6 3563 17.04.2019, 10:20
Ostatni post: ptrick
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 8573 19.06.2018, 23:24
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 8938 23.04.2018, 11:48
Ostatni post: broda99

Skocz do:


Wybrane wątki (VBA Pobieranie wybranych plików z danymi)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Menu wysuwane z boku patryk67 1 759 07.08.2019 12:43
Ostatni post: aht
  Książki do nauki C# olek23 6 1514 01.08.2019 18:17
Ostatni post: Ajgor
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 2139 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 2368 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 2268 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 3764 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 1617 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 3485 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 3563 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 4165 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 4045 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 3583 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 5976 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 4053 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 4582 07.02.2019 22:01
Ostatni post: Szachista