请教如何新建工作簿文件

xuehan

我想在一个工作簿文件mybook.xls中用vba代码来编写： 在C:\vba\mywork\下新建一个myexcel.xls文件,并激活它 请问该如何写好呢？

徒然客

Public Sub 创建新文件() Set newBook = Workbooks.Add With newBook .Title = "mywork" .Subject = "mywork" .SaveAs Filename:="C:\vba\myexcel.xls" End With Workbooks.Open ("C:\vba\myexcel.xls") End Sub

jelly0

Sub Macro1() Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\VBA\mywork\myexcel.xls" End Sub

xuehan

谢谢大家的帮助 如果我想把mybook.xls中的一部分数据拷贝到myexcel.xls中，那myexcel.xls是否一定是要激活？ 可不可以在不打开myexcel.xls的情况下来完成拷贝呢？

jelly0

Sub a() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\VBA\mywork\myexcel.xls") Sheet1.Range("A1") = wb.Sheets(1).Range("A1") wb.Close Application.ScreenUpdating = True End Sub

xuehan

但是当C:\VBA\mywork\myexcel.xls已经存在时，再新建同名文件总是会提醒：覆盖，不覆盖，取消这三项． 现在选不覆盖和取消都会有出错信息，请问：该如何捕捉处理这三项的按钮事件呢？ 或者大家有什么好方法解决呢？

EdgeOfCity

如果出现上述情况，你想怎么处理？覆盖，不覆盖还是取消？

xuehan

这三个都需要处理，根据所选的按钮不同，来实现相应的功能 现在不知道怎么来响应这三个按钮的事件

slhenry

应该是不行的。

df888888

希望大家努力