SG Fórum - Excel kérdés - #2174

SG Fórum - Excel kérdés - #2174

Fórum / Felhasználói programok

Storey 2016. márc. 03. 09:20 | válasz | #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!