/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18609
refi 14474
Klaudi 8489
Rosco40 5695
berpox 5456
dk 5398
Benjamin... 4870
webnoob 4747
o.v.n. 4637
10  EXTERMINA.. 4373
Slette regneark via macro
Fra : Tobster
Vist : 438 gange
100 point
Dato : 10-01-11 17:22

Jeg har en macro i excel, der opretter en opgave i outlook, hvor den gemmer et ark fra filen.
Den opretter fint både kopi af arket og opgave i outlook, men jeg kan ikke få den til at slette (kill) den midlertidige fil igen.

Jeg har vedhæftet koden her... Men hvad skal jeg taste ind for neden for at den sletter filen?
Til at starte med gemte jeg den i samme filnavn, men efter mange oprettelser, så brækker Outlook sig og vil ikke makke ret. Derfor er jeg nødt til at få et nyt filnavn hver gang.

Det er denne linie jeg skal have rettet til:
Kill ThisWorkbook.Path & "\" & Sheets("Grunddata").Range("J13").Value



Kode
Sub Create_Task()
'You must set a reference to the Microsoft Object Library x.x via the Tools | Reference...
'in the VB-editor.
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim CurrFile As String

Set olApp = New Outlook.Application
Set olTask = olApp.CreateItem(3)

ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
Sheets("Grunddata").Range("J13").Value

Application.ScreenUpdating = False

With olTask
.subject = "Serviceaftale, " & Sheets("Grunddata").Range("J13").Value
.Body = "Att.: " & Sheets("Grunddata").Range("J17").Value & ", Tlf: " & Sheets("Grunddata").Range("J16").Value & " / " & Sheets("Grunddata").Range("M17").Value
'You need to change to Your own dateformat.
.DueDate = DateAdd("n", 10080, Now) ' Set the due date to
' X minutes from now.
.StartDate = Sheets("Grunddata").Range("M9").Value
.Status = olTaskNotStarted
.Importance = olImportanceNormal
.ReminderSet = True
.ReminderPlaySound = True
.Companies = "none"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

ActiveWorkbook.Close False
Kill ThisWorkbook.Path & "\" & Sheets("Grunddata").Range("J13").Value
Set olTask = Nothing
Set olApp = Nothing


 
 
Annuller spørgsmålet
Fra : Tobster


Dato : 10-01-11 18:12

Løste selv problemet...

Sub Create_Task()
'You must set a reference to the Microsoft Object Library x.x via the Tools | Reference...
'in the VB-editor.
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim CurrFile As String
Dim strname As String

Set olApp = New Outlook.Application
Set olTask = olApp.CreateItem(3)

strname = Sheets("Grunddata").Range("J13").Value & " - " & Date
strname = Replace(strname, "/", "-")


ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
strname


Application.ScreenUpdating = False

With olTask
.subject = "Serviceaftale, " & Sheets("Grunddata").Range("J13").Value
.Body = "Att.: " & Sheets("Grunddata").Range("J17").Value & ", Tlf: " & Sheets("Grunddata").Range("J16").Value & " / " & Sheets("Grunddata").Range("M17").Value
'You need to change to Your own dateformat.
.DueDate = DateAdd("n", 10080, Now) ' Set the due date to
' X minutes from now.
.StartDate = Sheets("Grunddata").Range("M9").Value
.Status = olTaskNotStarted
.Importance = olImportanceNormal
.ReminderSet = True
.ReminderPlaySound = True
.Companies = "none"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

ActiveWorkbook.Close False
Kill ThisWorkbook.Path & "\" & strname & ".xls"

Set olTask = Nothing
Set olApp = Nothing

End Sub

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173457
Tips : 31650
Nyheder : 719565
Indlæg : 6382316
Brugere : 218248

Månedens bedste
Årets bedste
Sidste års bedste