Печать в открытый файл Excel

Question

У меня есть файл 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