ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA for excel 2000 It seems a Microsoft problem? (https://www.excelbanter.com/excel-programming/330453-vba-excel-2000-seems-microsoft-problem.html)

nkamp[_2_]

VBA for excel 2000 It seems a Microsoft problem?
 

Hello,

Operating system: windows 2000 professional
Excel version: Microsoft Excel 2000 (9.0.2720)

I have already put two times in the issue list but now I can define th
problem exactly. If I use the following piece of code then the exce
file is corrupt:


Sub test_Add_Del_Sheet()
'
' test_Add_Del_Sheet Macro
' Macro recorded 5/27/2005 by NUON
'
' Keyboard Shortcut: Ctrl+g
'
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Move After:=Sheets(2)
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Temp_KV"
Sheets.Add
Sheets("Sheet3").Select
Sheets("Sheet3").Move After:=Sheets(3)
Sheets("Sheet3").Select
Sheets("Sheet3").Name = "Temp_LL"

Application.DisplayAlerts = False

Sheets("Temp_KV").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Temp_LL").Select
ActiveWindow.SelectedSheets.Delete

ChDir "S:\dms\tools\dev_dbb"

ActiveWorkbook.Close savechanges:=True
End Sub


If open the file after running this macro the file is corrupt. See m
attachement for the error I get.

Have anybody a idea or suggestion why this is not working? Do I need
excel update? I can open the file with excel 2003! If I delete th
statement Activeworkbook.close ..... and save the file manually, the
the file is not corrupted!???

Nic

+-------------------------------------------------------------------
|Filename: error.del sheet.gif
|Download: http://www.excelforum.com/attachment.php?postid=3438
+-------------------------------------------------------------------

--
nkam
-----------------------------------------------------------------------
nkamp's Profile: http://www.excelforum.com/member.php...fo&userid=2376
View this thread: http://www.excelforum.com/showthread.php?threadid=37500


theDude[_3_]

VBA for excel 2000 It seems a Microsoft problem?
 

Hi Nico,

Try saving the file by using the Save method before closing it. Add
this line of code right before the ActiveWorkbook.Close...statement:

ActiveWorkbook.Save

Hope this helps,
theDude


--
theDude
------------------------------------------------------------------------
theDude's Profile: http://www.excelforum.com/member.php...o&userid=16550
View this thread: http://www.excelforum.com/showthread...hreadid=375007



All times are GMT +1. The time now is 12:18 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com