Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • 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

  • #5642 Fire/SOUL/CD félisten mizu_ #5633
    Új Válasz #5642
    Ú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

    Fire/SOUL/CD

    félisten

    válasz mizu_ #5633 üzenetére

    Hali!

    Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
    Amint látod, az alábbi makró egy CommandButton-hoz tartozik.

    Private Sub CommandButton1_Click()

    'A hálózati Excel fájl útvonala és neve
    Dim MyNetworkExcelFilename As String
    MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
    'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"

    'Ennek az Excel fájlnak a neve, ami futtatja a makrót
    Dim MyCurrentExcelFilename
    MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)

    'Forrás munkafüzet
    Dim MySourceWorkbook As Workbook

    'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
    Dim MySourceSheet As String
    MySourceSheet = "Munka1"

    'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
    Dim MyDestinationSheet As String
    MyDestinationSheet = "Adatok"

    'Megnyitjuk az állományt
    Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)

    'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
    'hogy egy új munkalapot hozunk létre a munkafüzet végén
    Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)

    'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
    'semmilyen kérdés bezáráskor(például a módosítások mentése)
    MySourceWorkbook.Close False

    'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
    ActiveSheet.Name = MyDestinationSheet

    End Sub

    A példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)

    Ha valami nem lenne tiszta, akkor írj.

    Fire.

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