问题如标题,另还有疑惑“怎么将label中的字符同样输出到excel中啊?”感谢帮助,感激不尽!!!!
解决方案 »
- 怎样在使用代理的网络实现自动发送邮件?急!!!
- 在Spreadsheet中输入数据后再点击文本框就出问题!在线等……
- 感觉自己真的无知,竟然才知道GetPixel的返回值是与设备相关的
- 加急高分求助如何判断编号生成treeview分级节点问题?
- vb做DLL时要主意什么?
- 直接修改datagrid的内容,如何使它在按一个一个按钮后数据库自动更新?
- 求救!
- 推荐中国著名高中及详细资料给我吧!初中毕业,我将何去何从?
- 各位大哥门,,小弟有事相求,,最好是写作高手
- 我下载了spread 3.05,输入了注册码,为什么还要注册?
- 求助:vb程序打包,安装后出现exe文件的问题?
- VB 已知内存中图像区域的指针,怎么在picturebox控件里显示该图片
代码是不一样的
'在“工程”菜单-->"引用"选项内选中“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