两个不同的文档，把其中一个文档的某个单元格发送到另外一个文档的指定单元格。

wangyi2004

【有趣】关于两个不同文件名称的文档，把其中一个文档的某个单元格 发送到 另外一个文档的指定单元格。

例如：
A.xls
B.xls

其中我要把A.xls中的A1单元格内容通过“CommandButton1_Click()”控件按钮发送B单元格的B2中，用什么方法可以实现？

wangyi2004

前提是两个文档都在同一目录下，且两个文档同时打开。

还有如果B.xls不打开可以生效吗？（即：点击发送后自动打开文档并写入数据。）

[ 本帖最后由 wangyi2004 于 2010-1-1 20:52 编辑 ]

cflood

Workbooks("b.xls").Worksheets("sheet1").Range("B2") = [a1]
如果B未打开需要先打开
Workbooks.Open ThisWorkbook.Path & "\B.xls"
Workbooks("b.xls").Worksheets("sheet1").Range("B2") = [a1]

[ 本帖最后由 cflood 于 2010-1-1 20:54 编辑 ]

wangyi2004

哈哈，对了，就是这样的，但是：如果B.xls不打开可以生效吗？（即：点击发送后自动打开文档并写入数据。）

wangyi2004

恩，对了，原来是这样啊。谢谢你指点。

zhaogang1960

请参考：
Private Sub CommandButton1_Click() '打开
    Application.ScreenUpdating = False
    With Workbooks.Open(ThisWorkbook.Path & "\B.xls")
        .Sheets(1).[b2] = [a1]
        .Close True
    End With
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click() '不打开
    Dim cnn As Object, rs As Object, strSql$
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\B.xls"
    strSql = "update [Sheet1$b2:b2] set f1='" & [a1] & "'"
    rs.Open strSql, cnn, 1, 3
    cnn.Close
    Set cnn = Nothing
End Sub

[ 本帖最后由 zhaogang1960 于 2010-1-1 21:58 编辑 ]

wangyi2004

不错，更全面了。

[ 本帖最后由 wangyi2004 于 2010-1-2 02:22 编辑 ]

zhaogang1960

原帖由 wangyi2004 于 2010-1-1 22:38 发表
不错，你的代码分别让系统自动识别了当前状态是打开还是未打开的，并且执行相应的动作。高。

我没有设定让系统判断B工作簿是否打开，两个代码是两种更新数据方式，都是在不打开状态下执行，如果B工作簿是打开状态，第一个代码可能会出错