vb 操作excel另存为的问题
本帖最后由 bcrun 于 2013-04-15 13:27:14 编辑

Set ExcelSheet = ExcelBook.Worksheets(1)
ExcelSheet.SaveAs "C:\text.xls"

我想把excel第一个页签另存为，这代码能另存为，但是把整个excel都另存为了，
有其他好方法么。求帮助

[解决办法]
录制宏就能得到代码
[解决办法]
如果工作表中的内容是纯文本的，可以另存为 csv 格式。

这样它就只有一个表了。
它‘另存为’的时候，好象是将指定工作薄的活动工作表保存。

[解决办法]
好久的贴呀，复制当前工作表，新建工作簿，第一个工作表A1粘贴值，再粘贴格式，更改工作表名，保存为想要的工作薄名。方法变通一下

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

当然也可以根据需要第一步粘贴公式，通过录制宏可以得到代码