Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Excel - Pobieranie danych z zamknietych plików z uzwględnieniem daty

Olaf80 26 Feb 2015 17:33 543 1
  • #1
    Olaf80
    Level 7  
    Cześć
    Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz.
    Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc.

    Application.ScreenUpdating = False
    Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx"
    Sheets("Spakowane").Select
    Range("B2:D10000").Select
    Selection.Copy
    Windows("ats 2.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Windows("ats 1.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close False
    Application.ScreenUpdating = True
    End Sub
  • Helpful post
    #2
    JRV
    VBA, Excel specialist
    Najłatwiej za pomocą kwerendy do arkusza Excel

    SELECT *
    FROM `F:\ATS\Ats 1.xlsx`.`Arkusz1$` `Arkusz1$`
    WHERE (`Arkusz1$`.DataZ <= Date()) AND (`Arkusz1$`.DataZ >= Date()-2)

    DataZ - jest naglowek kolumny(data) wg ktorej chcesz dane