Makro - Opret nye filer

Hvis du anvender OutLook kan du få en kopi af et lille system, som er udviklet til en af min kunder i 2002. Systemet er udviklet i office97 - så der skal ske en ændring af en reference VBA - til din evt. OutLook.

Systemet giver mulighed for at sende alle enkelte ark til en specifik modtager ved tryk på een knap.

Er du interesseret - så send en mail til pb@skivehs.dk

MVH

Det lyder interessant og anvendeligt....desværre bruger vi i min virksomhed Lotus Notes og ikke Outlook. Øv

Kan du bygge videre på denne kode?

Sub Test()
    Sheets("Ark1").Select
    Sheets("Ark1").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Test\Dokumenter\Sheet1.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
    Sheets("Ark2").Select
    Sheets("Ark2").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Test\Dokumenter\Sheet2.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

Koden er optaget som makro, hvor jeg på det to første Sheet tager en kopi over til en ny workbook, og gemmer denne med et navn. Hvis du udvider koden til dine 30 filer, vil du kunne styre navn og placering på filerne.