实时数据存入了access中,界面上datagrid用来显示处理后的有用信息,
现在想添加一个“保存与打印”按钮,功能是将datagrid的数据存到excel中,从excel中打印。看了一些以前的相关帖子 都没太看懂 谁能给个例子参考一下
或者给个详细一点的适合新手看的链接谢谢!!

解决方案 »

  1.   

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.WorksheetPrivate Sub Command4_Click()
       Set xlApp = CreateObject("excel.application")
       Set xlBook = xlApp.Workbooks.Open(App.Path & "\hwcw.xls")
       xlApp.Visible = True '使对象可见
    End Sub现在只会做到这一步 打开excel,
    怎么把datagrid的数据写入excel啊???可能是贴子放错地方了 应该放到数据库区的 哎!!