Excel宏的问题

我想用宏实现把文件1复制到文件3的第1个工作表，把文件2复制到文件3的第2个工作表。文件3是宏所在的Excel文件。我的思路很简单，打开、复制、关闭；那种不打开读取的不会。
现在就差选择文件并打开的命令不知怎么写了。

文件1的按钮的命令
Private Sub CommandButton1_Click()
CommonDialog1.ShowOpen
End Sub

文本框1的按钮的命令
Private Sub TextBox1_Change()
TextBox1.Text = CommonDialog1.Filename
End Sub

复制按钮的命令
Workbooks.Open Filename:="？？？"
...下面的命令写好了

就是？？？应该怎么写才表示用文件1的按钮选取的文件。以上我写的命令有什么错的希望大家指正。

田纳西

楼主 会写核心复制部分么？会写的话，只要在打开被复制工作表的时候调用CommonDialog1.ShowOpen方法的返回结果就可以了。如果不会，请再发问。

复制部分我写好了，用？？？改成文件路径的试过正常，如D:\1.xls。（只能是这个文件名，这个路径。不然要改代码） 所以我想要写代码来选取文件打开。

调用CommonDialog1.ShowOpen方法的返回结果，就是这个不会。谁来告诉我啊！

[ 本帖最后由 free08read 于 2008-3-6 18:59 编辑 ]

田纳西

你写的太简单了，楼主是自学VBA的吗？以前有过任何语言的编程经验吗？

你的代码有几个问题：

1、VBA虽然源于VB，但是和普通VB还是不完全相同，CommonDialog控件是否存在好像还有待考证（好像有的机器上有，有的机器上没有）

2、复制部分的代码不对，你这是打开文件不是复制。

3、学编程的时候一个基本问题就是设置变量，你不会调用CommonDialog1.ShowOpen方法发返回结果，实际是不会设置变量。

1.原来学过vb，图上的控件就是Excel2007做出来的。

2.复制代码我用...省略了，因为我会写，只是我是通过打开文件来复制的，打开文件我不会写。

3.我原来在？？？用TextBox1.Text 和CommonDialog1.Filename结果不行，
难道是要用：
dim   filename   as   string   
  CommonDialog1.ShowOpen   
  filename=CommonDialog1.FileName
？？？用 filename代替

田纳西

Workbooks.Open Filename:="？？？"

问题应该还在这一句，当使用变量打开文件的时候，应使用函数的形式调用，而不使用方法的形式调用：试验下这句呢：

Dim cbook As string

CommonDialog1.ShowOpen   
Set cbook=CommonDialog1.FileName

Dim wkbk As Workbook
Set wkbk = Workbooks.open(cbook)

还是不行

田纳西

昏迷，你把完整的代码拿出来我看，最好有程序的运行结果截图。