如何新建一个EXCEL和WORD文档

rocket204

我现在用ACCESS做一个小系统,用vba语句,不知道如何实现这个功能。

一点通

<>使用按钮向导,很方便实现你要的功能</P>
<>rivate Sub Command6_Click()<BR>On Error GoTo Err_Command6_Click</P>
<P>    Dim oApp As Object</P>
<P>    Set oApp = CreateObject("Excel.Application")<BR>    oApp.Visible = True<BR>    On Error Resume Next<BR>    oApp.UserControl = True</P>
<P>Exit_Command6_Click:<BR>    Exit Sub</P>
<P>Err_Command6_Click:<BR>    MsgBox Err.Description<BR>    Resume Exit_Command6_Click<BR>    <BR>End Sub<BR></P>