复制指定工作表到指定工作簿

LangQueS · 发表于 2007-6-8 01:12

我将复制到“临时”工作簿的“001”表改为“001”表后，再执行报错了，请再看看。

不过今天太晚了，如果yuanzhuping兄需要休息，明天再解决吧。真抱歉！

LangQueS · 发表于 2007-6-8 01:14

另外代码中好象不是复制“报表”工作表，而是复制数据了。

yuanzhuping · 发表于 2007-6-8 01:24

原来是要拷贝“报表”工作簿的表到新建的“临时”工作簿中，看看是否这样的？

8u4lTXEX.rar (13.93 KB, 下载次数: 81)

LangQueS · 发表于 2007-6-8 01:27

还有11楼说的问题。如果“临时”工作簿已经打开，代码好象就不工作了。

另外，在实际应用中，“报表”不是当前表。

[此贴子已经被作者于2007-6-8 1:31:09编辑过]

yuanzhuping · 发表于 2007-6-8 01:33

QUOTE:

以下是引用LangQueS在2007-6-8 1:12:23的发言：

我将复制到“临时”工作簿的“001”表改为“001”表后，再执行报错了，请再看看。

这个001应该是“报表”吧？在代码中修改一下。

LangQueS · 发表于 2007-6-8 01:42

抱歉yuanzhuping兄，我的代码水平为零，请你明天继续修改吧。

这么晚，打扰了！

[此贴子已经被作者于2007-6-8 1:43:12编辑过]

yuanzhuping · 发表于 2007-6-8 01:44

如果临时表已打开，就拷贝报表中的001表到临时表中，如果没有打开就新建一个临时表再拷贝报表中的001表到临时表。有个问题，如果临时表已打开，而且临时表中已有001表，那新拷贝的表就不能命名为001。

bjhBPaHn.rar (18.49 KB, 下载次数: 29)

LangQueS · 发表于 2007-6-8 01:45

QUOTE:

以下是引用yuanzhuping在2007-6-8 1:33:31的发言：

这个001应该是“报表”吧？在代码中修改一下。

我将复制到“临时”工作簿的“001”表改为“002”表后，再执行报错了，请再看看。

LangQueS · 发表于 2007-6-8 01:51

是我写错字造成了麻烦：

重申要求：

复制当前工作簿的“报表”工作表到“临时”工作簿为“001”表。

如果“临时”工作簿未打开，就创建新工作簿为“临时”并在其中加入“001”表；

如果“临时”工作簿已经打开，就直接加入“001”表。

如果打开的“临时”工作簿中已经有“001”表，就报错退出。

[此贴子已经被作者于2007-6-8 1:52:23编辑过]

yuanzhuping · 发表于 2007-6-8 01:56

QUOTE:

以下是引用LangQueS在2007-6-8 1:45:01的发言：

我将复制到“临时”工作簿的“001”表改为“002”表后，再执行报错了，请再看看。

复制到“临时”工作簿的“001”表,是指报表中的001表，如果是的话，改了后代码中也要改。Sheets("001").Copy Before:=Workbooks("临时.xls").Sheets(1)。

如果是指临时表中的001表，好像没有报错啊。

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