Jag har en excel 2k fil som jag öppnar från vb.6, lägger till ett ark, kopierar lite och sedan sparar och stänger. Trots att jag försökt att städa upp på alla möjliga sätt så stängs inte processen. Det funkar så länge jag inte lägger till raderna om worksheets, se nedan:

<code>
Private Sub Command1_Click()



Dim obExcel As Object
Set obExcel = CreateObject("Excel.Application")
obExcel.Visible = True

Dim xlbook As Object
Set xlbook = obExcel.Workbooks.Open("G:\TA_data\Intern\Virtuellt Schema.xls")

'Jag misstänker att det är här det blir något fel!
xlbook.Worksheets(xlbook.Worksheets.Count).Copy after:=xlbook.Worksheets (xlbook.Worksheets.Count)

xlbook.Worksheets(xlbook.Worksheets.Count).Range("C2:j15").ClearContents

xlbook.Worksheets(xlbook.Worksheets.Count).Cells(1, 2).value = CInt(Right(CStr(xlbook.Worksheets(xlbook.Worksheets.Count - 1).Name), 2)) + 1

xlbook.Worksheets(xlbook.Worksheets.Count).Name = "Vecka " & xlbook.Worksheets(xlbook.Worksheets.Count).Cells(1, 2).value

'Stänger excel
xlbook.Close savechanges:=True


Set xlbook = Nothing
obExcel.Quit
Set obExcel = Nothing '

End sub
</code>

Jag använder VB6 under W2k Server SP2

Hej Stefan,

Om jag inte missminner mig fanns det ett problem i tidigare versioner av VB6.
Har du lagt på någon service pack ?
Senaste (SP5) kan du hämta från ...
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp5/default.asp

Om inte det hjälper, kan du remma så att du bara kör en av raderna...
xlbook.Worksheets(xlbook.Worksheets.Count).....
... i taget för att se vilken/vilka av raderna som orsakar problemet.

Hur ser namnen för flikarna ut ?

Hoppas detta hjälper.

Hej,

Om du stannar körningen mitt i tror jag att du kommer att upptäcka att du har två
excelprocesser. Har nämligen för mig att Excel skapar en process automatiskt av
någon anledning när man har Excel-biblioteket i ett program. Testa med
GetObject(...), fungerar inte det kör en SetObject(...).

/Emma