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

  • 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

Hirdetés