如何将VB界面输入的信息保存到EXCEL中，请帮忙！！谢谢！！！
2个回答
展开全部
以下程序运行时点击command1将text1内容保存到桌面1.xls中sheet1的A1中，其它的你自己加
Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub command1_click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\dezhao\Desktop\1.xls") '打开已经存在的EXCEL工件簿文件
xlBook.Worksheets("sheet1").cells(1, 1)=Text1.Text
xlBook.Close '关闭excel工作簿
Set xlApp = Nothing '释放excel程序
End Sub
Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub command1_click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\dezhao\Desktop\1.xls") '打开已经存在的EXCEL工件簿文件
xlBook.Worksheets("sheet1").cells(1, 1)=Text1.Text
xlBook.Close '关闭excel工作簿
Set xlApp = Nothing '释放excel程序
End Sub
追问
谢谢您！！在6.0中实现了，请问这段代码如果不执行“工程”，“引用”...能运行吗？？
在2008中能实现吗？？
追答
不能，要把excel引用进VB的，2008我没试过，应该可以的，高版本应该是向下兼容的，所有应该可以运行低版本的东西。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
