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

• #5642 Fire/SOUL/CD félisten mizu_ #5633

  Új Válasz 2009-11-13 18:13:53 #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