Ú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ó.

• #2105 matekmatika tag ssrobi #2104

  Új Válasz 2007-03-22 08:25:26 #2105

  Ú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

  

  matekmatika

  tag

  válasz ssrobi #2104 üzenetére

  Hát...izé... Nem munkafüzet1-et kellene megnyitnia? A kód a munkafüzet2-ben van tehát ha fut, az alapból meg kell hogy nyitva legyen.
  
  
  Vagy te az munkafüzet1-be raktad a kódot?
  mert ha igen akkor munkafüzet1 helyett munkafüzet2-re írd át
  
  ErrorHandler:
  Workbooks.Open Filename:=''munkafüzet2.xls''
  End Sub
  
  így.
  
  
  
  
  [Szerkesztve]

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