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

• #2117 lapa veterán ssrobi #2104

  Új Válasz 2007-03-24 19:17:51 #2117

  Ú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

  

  lapa

  veterán

  válasz ssrobi #2104 üzenetére

  teljes elérési utat adsz meg? esetleg munkafuzet2.xls?
  
  különbenis, ha ''windows''-ként hivatkozol, nem biztos az a ''.xls''. úgyértem ha windowsban el vannak rejtve a fájlkiterjesztések, akkor nem is biztos, hogy kell. szerintem csináld így (egyikből másikba másolunk egy tartományt, a céltábla van nyitva és persze ebben van a kód):
  
  Sub masolosdi()
  hovafile = ActiveWindow.Caption
  Workbooks.Open (''C:\valahol\honnan.xls'')
  honnanfile = ActiveWindow.Caption
  ize = Workbooks(honnanfile).Sheets(1).Range(Cells(1, 1), Cells(50, 1))
  Workbooks(hovafile).Activate
  ActiveSheet.Range(Cells(1, 1), Cells(50, 1)) = ize
  End Sub
  
  mint mindig ' ' helyett '' használandó.

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