[求助] * 复制工作簿的代码 *

hhkg · 发表于 2005-9-5 07:51

编写代码，要求：在打开甲文件夹里的“主文件”工作簿时，打开并复制同文件夹里的名为“工程模板”工作簿并命名为“新工程”另存于乙文件夹内。甲、乙二文件夹在同一文件夹内。

HudkD2U6.rar (9.83 KB, 下载次数: 18)

hhkg · 发表于 2005-9-6 08:09

可以直接覆盖，如果能够象EXCLE的book1、 book2……一样，自动生成新工程1、新工程2……就更灵活更好！

hhkg · 发表于 2005-9-6 13:37

谢谢Long_III！

再请教您一个问题：在“乙”工作簿中要运行“甲”工作簿中的宏（宏名为“上月”），代码怎么写？

hhkg · 发表于 2005-9-6 14:08

只搜索到一个类似的。

我在乙中

Sub 运行() Workbooks("甲").Activate appliction.Run ("甲.xls! 上月")

End Sub

提示错误24，要求对象？

Long_III · 发表于 2005-9-6 13:39

搜索一下吧

Long_III · 发表于 2005-9-6 09:46

主文机下复制如下代码

Private Sub Workbook_Open() Dim wb As Workbook Dim s$, s1$, i% s = ThisWorkbook.Path Set wb = Workbooks.Open(s & "\工程模板") i = 1 Do s1 = Left(s, Len(s) - 4) & "用户文件\新工程" & i & ".xls" '按工作簿新增的思路，如果原先的存在，就一直增加 i = i + 1 Loop Until Len(Dir(s1)) = 0 '这句可以判断工作簿是否存在,如果路径是对的，dir函数就会取出它的名字 wb.SaveAs s1 '保存工作簿 End Sub

Long_III · 发表于 2005-9-5 10:29

如果“新工程”已经存在了，那怎么办？直接覆盖？

		自动登录	找回密码
密码			免费注册