VBA.Mania

Dziś jest poniedziałek, 13 maja 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	import określonych danych z plików o rożnych nazwach otwarty rozpoczął: jarzombas postów: 7

napisał: Trebor postów: 1209 umieszczony: 20 kwietnia 2011 19:16
	Zwróć uwagę na sposób adresowania w stylu Cells(i, 1). Oznacza on że komórką docelową jest komórka określona przez zmienną "i"i 1. Zmienna "i" oznacza wiersz i przyjmuje wartości od 4 do 31. Jeśli pierwszym wierszem ma być wiersz 11 to do "i" dodaj 7 co da 11. Cyfra 1 oznacza nr kolumny. Kolumna C jest trzecia, więc wystarczy jedynkę zamienić na trójkę. Dla kolumny C od wiersza 11 powinno więc być zapisane Cells(i+7,3) = ......... hej

napisał: jarzombas postów: 6 umieszczony: 20 kwietnia 2011 18:22
	Hej czy można zrobić tak żeby importowało komórki do docelowego pliku nie zaczynając od A4 i B4 tylko np. od C11 i D11.

napisał: jarzombas postów: 6 umieszczony: 19 kwietnia 2011 19:55
	Sorry, wszystko ładnie działa. Coś mi się porąbało. Dzięki piękne jeszcze raz.

napisał: Trebor postów: 1209 umieszczony: 19 kwietnia 2011 16:04
	Cytat: czy można zrobić tak aby nie klikać po kolei i importować komórka po komórce, Co oznacza powyższy fragment z naciskiem na "klikać po kolei"?

napisał: jarzombas
postów: 6

umieszczony:
19 kwietnia 2011
11:50

nazwa pliku	rozmiar
16_ITV_14_kopia.rar	451.10 kB

Hej dzięki za szybką odpowiedź. Działa świetnie. Nie wiem czy można zrobić tak aby nie klikać po kolei i importować komórka po komórce, tylko zaimportować od razu wszystkie komórki w danym zakresie i z określonego arkusza.
Załączam przykładowy plik z którego kopiuje się te wartości.

napisał: Trebor postów: 1209 umieszczony: 18 kwietnia 2011 16:54
	Poniżej uproszczony sposób opierający się na wbudowanych mechanizmach excela. Makro tworzy po prostu odniesienie do potrzebnego pliku, arkusza i komórki. Trzeba to jeszcze dopracować i zabezpieczyć, ale jak działa już widać. Sub import() Dim caly As String, plik As String, sciezka As String, arkusz As String, i As Byte arkusz = "Arkusz1" 'D_Kolor_OK caly = Application.GetOpenFilename("Excel Files (.xls), .xls") If caly = "" Then Exit Sub plik = Dir(caly) sciezka = Left(caly, Len(caly) - Len(plik)) For i = 4 To 31 Cells(i, 1) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!J" & i Cells(i, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!Y" & i Next i End Sub

napisał: jarzombas postów: 6 umieszczony: 18 kwietnia 2011 12:59
	Witam Zwracam się z prośbą o pomoc w napisaniu procedury, która zaimportuje mi dane ze skoroszytu bez otwierania go. Zaimportowane komórki to J4:J31 i Y4:Y31 zawsze z tego samego arkusza nazywającego się D_Kolor_OK. Problem jest w tym, że dane te trzeba pobierać za każdym razem z pliku o innej nazwie. Pliki te są zawsze w jednym folderze. Najlepiej byłoby gdybym mógł wskazać plik, który chce i potem pobrać z niego te komórki. Chcę stworzyć plik, który będzie porównywał te zaimportowane wartości do zmierzonych przeze mnie później Pozdrawiam Paweł

wstecz 1 dalej

wszystkich stron: 1