megoldást keresek erre a problémára
-
Storey #2174 Sziasztok!
Excel makróval való mentési problémám lenne!
Szeretném új, .XLS formátumban elmenteni egy Excel munkafüzet egy konkrét lapját, abba a mappába, ahonann az alap munkafüzet megnyitásra került, úgy hogy a lapon szereplő értékek értékbeillesztéssel kerüljenek át az új lapra.
Szerény tudásom alapján az alábbi makrót alkottam, de sajnos nem működik. Generálja az új lapot, de aztán hibával leáll!
Sub exportxls()
Set WST = Sheets("A lap neve")
WST.Select
WST.Copy
WST.SaveAs ActiveWorkbook.Path & "/NET_" & Format(WST.Range, "0000") & ".xls"
WST.Select
WST.Name = "Az új név"
Range("A1:J112").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks(neve).Activate
End Sub
Előre is köszi a segítséget!