Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #22905 Delila_1 veterán greenface #22902
    Új Válasz #22905
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz greenface #22902 üzenetére

    2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.

    A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.

    Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
    A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
    A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).

    Sub Erteket_Beilleszt()
    Dim FN As String
    Const utvonal = "C:\Adatok\Alkönyvtár\"
    Application.DisplayAlerts = False

    ChDir utvonal
    FN = Dir(utvonal & "*.xlsx", vbNormal)

    Do
    If FN <> "." And FN <> ".." Then
    Workbooks.Open Filename:=utvonal & FN
    Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
    Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
    Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
    Range("A5, D5, A8, A10, C10, A12, C14").Value
    Sheets("Munka1").Delete
    ActiveWorkbook.Save
    ActiveWindow.Close
    End If
    FN = Dir()
    Loop Until FN = ""

    Application.DisplayAlerts = True
    End Sub

Új hozzászólás Aktív témák