打印到打开的excel文件

我有一个excel文件存储在网络驱动器中，该文件将由单个用户保持打开状态。是否有一种方法可以在文件打开时将记录打印到此文件中？ 当我运行下面的代码时，它以只读方式打开文件。我只想写作

    Dim con as object
    Set con =CreateObject("ADODB. Connection")
    con.ConnectionString=constr
    On error resume next
    con.Open
    Dim cmd as object
    Set cmd =CresteObject("ADODB.Command")
    cmd.ActiveConnection =con
    cmd.CommandText =SQL 'INSERT'
    cmd.Execute
    con.Close

如果文件已打开（除非处于只读模式），则无法写入。然而，实际的用例是什么？有一种方法，但它非常牵强。如果您使所属进程侦听消息并对其执行操作，则您已经创建了一个数据库服务器。更好的方法是使用真正的数据库服务器。