问题如标题,另还有疑惑“怎么将label中的字符同样输出到excel中啊?”感谢帮助,感激不尽!!!!

解决方案 »

  1.   

    excel是以前就有还是以前没有,你没说清楚
    代码是不一样的
      

  2.   

    http://download.csdn.net/source/2341786
      

  3.   

    excel以前是没有的!但是请泰山兄能否告知有excel是怎么搞?没有又是怎么搞啊?谢谢啦!
      

  4.   


     '在“工程”菜单-->"引用"选项内选中“Micosoft   Word   X.0(版本号)   Object   Library”根据你机器上的word版本的不同来定    Dim xlApp As Excel.Application  '定义Excel对象
        Dim xlBook As Excel.Workbook '定义工作表对象
        Dim xlSheet As Excel.Worksheet
        Set xlApp = CreateObject("Excel.Application") '-------------创建excell对象!!!
        xlApp.Visible = True
        Set xlBook = xlApp.Workbooks.Add
        Set xlSheet = xlBook.Worksheets(1) '指定工作表1
        '-------------------------------------
        
        '--------赋值语句---------------------
        xlSheet.Cells(1, 1) = label.Caption