VBA 中,excel把一个工作簿的值发送到另一个工作簿

Question

我说的是工作簿不是sheet!,请问用什么函数和代码,怎么写,谢谢!

Answer 1

这个应该不叫“发送”，而是写入到或记录到其它工作薄
　　首先，要写入到其它的工作薄，就必须用代码打开那个工作薄，要打开那个工作薄，就必须知道那个工作薄的完事的路径和名称。如：
　　workbooks("这里是完事的路径和名称").open
　　或者，调用windows的文件打开窗口来指定文件，如：
dim Filename
　　Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
　　workbooks(Filename).open
　　接下来才是，数据的写入过程。如，将当前工作薄的sheet1的A1单元格写入到刚刚打开的文件的sheet1的A1单元格：
　　workbooks(Filename).sheets"sheet1").range("A1")=thisworkbook.sheets(sheet1).range("A1")
　　追问

原来非要打开才行啊.我以为可以通过代码直接在后台给另外一个工作薄赋值，如果是这样的话那还不如直接在另外的一个工作薄用公式对等!