Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2177
    utvonal = ActiveWorkbook.Path & "\"
    Sheets("Munka1").Copy
    Cells.Copy
    Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.SaveAs Filename:=utvonal & "Füzet_neve.xls", FileFormat:=xlExcel8
    ActiveWorkbook.Close