我把我数据库里的数据输出到EXCEL
我想设置格式,在EXCEL里录制了宏,但不能用,请怎么样使用宏啊?
需要定义什么常、变量吧?
请高手指教!!!

解决方案 »

  1.   

    1、在工程中引用Microsoft Excel类型库:
        从“工程”菜单中选择“引用”栏;选择Microsoft Excel 9.0 Object Library (Excel2000),然后选择“确定”。表示在工程中要引用Excel类型库。
        2、在通用对象的声明过程中定义Excel对象:
        Dim xlApp As Excel.Application
        Dim XlBook As Excel.WorkBook
        Dim xlSheet As Excel.Worksheet
      3、操作方法:Set xlApp = CreateObject (“Excel.Application”)’创建Excel对象
        Set XlBook = xlApp.Workbooks.Open(“文件名”) ’打开已经存在的Excel工作薄文件运行宏xlBook.RunAutoMacros xlAutoOpen ’运行Excel启动宏
        xlBook.RunAutoMacros xlAutoClose ’运行Excel关闭宏
      

  2.   

    谢谢你的帮助,
    但这两段是红色,我也不会改啊,哪里错了啊???
    Set xlApp = CreateObject (“Excel.Application”)’创建Excel对象
    Set XlBook = xlApp.Workbooks.Open(“文件名”) ’打开已经存在的Excel工作薄文件
    还有用你的这种代码怎么绑定到我窗体中的TEXTBOX啊?
    感谢感谢
      

  3.   

    (“Excel.Application”)
    区分大小写
      

  4.   

    谢谢你的帮助,
    但这两段是红色,我也不会改啊,哪里错了啊???
    Set xlApp = CreateObject (“Excel.Application”)’创建Excel对象
    Set XlBook = xlApp.Workbooks.Open(“文件名”) ’打开已经存在的Excel工作薄文件
    还有用你的这种代码怎么绑定到我窗体中的TEXTBOX啊?
    感谢感谢你不要直接从这里复制过去,自己写(因为我也是在这里直接写的,不是从代码窗口中复制来的"")’打开已经存在的Excel工作薄文件  下面继续写 Set Xlsheet = xlbook.Worksheets(“表名”) text1.text=xlsheet.cell(row,col)   ,如:A1单元格  就写text1.text=xlsheet.cell(1,1)