Hej

Kan någon förklara för mig varför excel ligger kvar i minnet efter
jag kör den här koden

Dim xlObj As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlObj = New Excel.Application
Set xlWb = xlObj.Workbooks.Add
Set xlSheet = xlWb.Worksheets.Add
xlSheet.Name = "bok1"
xlSheet.Cells(1, 1).Value = "Cell A1"
xlSheet.Cells(1, 2).Value = "Cell B1"
xlSheet.SaveAs ("C:\kalkyler\kalkyl1.xls")
xlObj.Quit
Set xlSheet = Nothing
Set xlWb = Nothing
Set xlObj = Nothing

men efter att man stänger av programet så frigörs excel
och man kan öppna excel bladet.

Mvh
Tobbe

Det kan bero på att du inte stänger arbetsboken efter dig. Prova att göra det innan du stänger applikationen.

Mvh,
Håkan Wennerberg
hakan@wennerberg.nu
http://wennerberg.nu/

kör xlObj.quit

Prova med at stänga så här. Men det borde funka på ditt sätt också.

Set xlSheet = Nothing
Set xlWb = Nothing

xlObj.Workbooks.Close
xlObj.Quit
Set xlObj = Nothing

\Leif P

Nix!

Ligger fortfarande kvar i minnet frigörs först när jag stänger av programet eller kör CtrlAlt-Del och stänger det där ifrån.

Jag använder mig av kod som jag har skapat med makro
i Excel som jag sen har klistrat in i min kod
Ex:
Columns("A:A").Select
Selection.ColumnWidth = 2.29
Columns("B:B").Select
Selection.ColumnWidth = 35
Columns("C:J").Select
Selection.ColumnWidth = 8
Range("B5:B6").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Font.Bold = True
Kan det någonting där som spökar?

Jag söker vidare
tack i alla fall
Tobbe

Jag startar en wordapplikation från min klass och hade liknande
problem som du nu upplever. Jag kom fram till att problemet är det
att om det redan finns en instans av Word som kör så är inte min
applikation ägare till processen och får inte stänga ner den.

För att lösa detta problem kollade jag innan jag startar min applikation
om det redan finns en Wordapplikation som kör.

' Kolla om det kör en wordapplikation redan för om så är fallet
' får vi inte stänga ner den när vi avslutar denna funktion.
On Error Resume Next 'Skjut upp felhantering
dummy = CStr(Application.Version)
If Err.Number = 0 Then
WordRuns = True
Else
WordRuns = False
End If
Err.Clear
On Error GoTo 0

När du sedan skall stänga kollar du om WordRuns (i detta exmpel) är false
Är det false så är det bara att stänga ner Word, eller Excel i ditt fall.

(Du får anpassa koden till Excel)

/Peterh

Hej har kollat att excel är inte öppet innan jag kör min kod
jag testade att sänga excel och sen öppna den igen och stänga igen då då funker det men är det rätt???

Här är koden

Set xlSheet = Nothing
Set xlWb = Nothing
xlObj.Quit
xlObj.Workbooks.Close
Set xlObj = Nothing

Dim Xcel As Object
Set Xcel = CreateObject("Excel.Application")
Xcel.Quit
Set Xcel = Nothing

Då frigörs excel från minnet
/Tobbe