Question

Excel 求助：VB中怎么实现自动另存为

Answer 1

'举个例子：将D盘下b.xlsx另存为将D盘下test.xlsx

'引用Microsoft Excel 12.0 Object Library，版本不太一样，有可能是14

Private Sub Command1_Click() 
Dim xlsApp As Excel.Application
Dim xlsWorkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkbook = xlsApp.Workbooks.Open("D:\b.xlsx") 
Set xlssheet = xlsWorkbook.Worksheets(1)
xlsApp.Visible = False 
xlsWorkbook.SaveAs "D:\test.xlsx" '另存文件
xlsApp.Quit 
Set xlssheet = Nothing 
Set xlsWorkbook = Nothing 
Set xlsApp = Nothing 
End Sub

Answer 2

excel文件无法直接保存，点保存会自动提示另存为的原因如下：
1、文件身是只读的，或以只读的方式打开的，
2、你这个文件本身是非EXCEL文件（如文本文件），但你当时用了EXCEL为打开方式，所以在EXCEL编辑过后就不能在EXCEL中直接保存，只能另存了，
3、excel软件出现问题，
4、病毒影响。
一般来说解决的方法是，新建一空白文档，看保存是不是正常，如果正常说明excel软件没有问题，无病毒，如果新建的都无法保存，说明需要清理病毒，修复excel软件。
如果excel软件正常，可以检查一下要开的文档的情况，是否有只读设置，是否格式不对，是否文档本身有限制等。可以考虑，新建一个，把内容复制到新建的文档中，这样就应该正常了。