高手：如何用vbExcel菜/工具修改，及保存
就是，整程都用vb。
不用手去置excel
然後在下次打excel　程序，修改的菜/工具可以保存

以下代，我打置excel後，手excel 就可以修改的菜/工具可以保存。但是如果用vb 的quit 和　set　= nothing 就有法保存置！

高手忙看看！什　！


Public Function ExcelDefault()

'Exit Function

Dim ExcelApp2 As Object
Dim myxls2 As Object
Set ExcelApp2 = CreateObject( "Excel.application ")
ExcelApp2.Visible = True
Set myxls2 = ExcelApp2.Workbooks.Add()
'恢Excel默

ExcelApp2.CommandBars(1).Enabled = True
ExcelApp2.CommandBars( "Cell ").Enabled = True
ExcelApp2.CommandBars( "Formatting ").Enabled = True
ExcelApp2.CommandBars( "Standard ").Enabled = True


ExcelApp2.CommandBars(1).Visible = True
ExcelApp2.CommandBars( "Formatting ").Visible = True
ExcelApp2.CommandBars( "Standard ").Visible = True

ExcelApp2.WindowState = 1


　　　‘以下代自，打的excel　但是置就不能保存。如果屏蔽下面代，然後手excel　就能保存置

' MsgBox "Reback Excel Setting! ", , "Attention: "
' ExcelApp2.DisplayAlerts = False '退出不提示保存
' ExcelApp2.Save
' ExcelApp2.quit
' Set ExcelApp2 = Nothing
' Set myxls2 = Nothing



End Function




[解决办法]
机器上没有EXCEL,光一个破WORD,呵呵..WORD2003测试以上代码通过...VBA原始宏代码是:
Application.Quit (True)
[解决办法]
saveas
记得好像是这样，你试试