每次Excel启动时都会打开空白工作表 – 在使用VBA代码分割电子表格后意外创build
我需要Xcel 2010的一些帮助。
我在Xcel 2010中有一个电子表格预算工作簿，有6个工作表选项卡。 我只需要将其中一个工作表的副本传递给不允许查看其他工作表的人员。
我使用下面显示的这个VBA代码来分割工作簿，它工作得很好。 但是，既然这样做了，现在每次打开任何 Xcel文件，我都会得到三个同时打开的空白工作表，它们被标记为Tabelle1.xls，Tabelle2.xls和Tabelle3.xls。
我以为使用另一个VBA代码（见下面的其他代码）删除模块将照顾，但它没有。 现在没有代码/模块，如果我打开Visual Basic，但我仍然得到三个空白的工作表，从我打开的任何Xcel文件分开打开。 三个空白工作表都具有.xls文件扩展名，但MS Office的版本使用了.xlsx。
其他信息：我正在使用Windows 7，这是我的工作电脑，不知道自己的VBA编码。 我正在寻找谷歌search的快速解决scheme，让自己陷入困境。
分解工作簿的代码
Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs _ Filename:=MyPath & "\" & sht.Name & ".xls" ActiveWorkbook.Close savechanges:=False Next sht End Sub 我用来删除模块的代码：
Sub DeleteModule() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents("Module1") VBProj.VBComponents.Remove VBComp End Sub
SectionBreak
您的症状表示XLSTART文件夹中的工作簿（“自动运行”文件夹）。 名字是“Tabelle”的原因是这个工作手册的来源可能是德语的地方。
只要Excel应用程序启动，打开此文件夹中的任何工作簿。 这是一个通常用于放置个人macros工作簿的文件夹，因此在不同工作簿上工作时，macros中的macros自动可用。
在你的情况下，这似乎是无意的。 检查文件夹，通常是：
Win7 / 8： C：\ Users \ [用户名] \ AppData \ Roaming \ Microsoft \ Excel \ XLSTART
WinXP： C：\ Documents and Settings \ [用户名] \ Application Data \ Microsoft \ Excel \ XLStart
并清除你不在那里的任何文件。
关于如何自定义模板和Excel使用的工作簿，请参阅http://office.microsoft.com/en-gb/excel-help/customize-how-excel-starts-HP010197489.aspx 。结果。