Datu ievākšana no excel faila uz citu

[deivs001]

Tā nu ir sanācis, ka vajag padomu, kurā virzienā rakt.

Ir 1 excel fails, kurā tiek ar Pivot table sakārtoti dati, gribētu, lai automātiski tiek ievilkti dati no šī faila uz citu. Bet ar konkrētiem nosacījumiem. Ja konkrētā kolonā parādās, konkrēts vārds, tad, lai ievelk to visu rindiņu jaunajā excel failā.

Gan jau izdevās nesaprotami izklāstīt domu, bet centos.

[Daivana]

Sub Dtry()

Dim myFile As String, myCurrFile As String

myCurrFile = ThisWorkbook.Name

myFile = Dir(“E:Whatever Path*.xls”)

Do Until myFile = “”

Workbooks.Open “E:Whatever Path” & myFile

Workbooks(myCurrFile).Worksheets(“Sheet2”).Range(“A1”).End(xlDown).Offset(1, 0) = Workbooks(myFile).Worksheets(“Sheet1”).Range(“J8”)

Workbooks(myFile).Close savechanges:=False

myFile = Dir

Loop

End Sub

[Nelabojams]

Danke, šitāds var noderēt

[Autors]

Ieraksti