标题:如何把textbox中输入的数据保存到外部的excel中?
只看楼主
jualian
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2013-1-24
结帖率:100%
已结贴  问题点数:20 回复次数:6 
如何把textbox中输入的数据保存到外部的excel中?
如何把textbox中输入的数据保存到外部的excel中?vb6.0的引用中没有Microsoft Excel 12.0 Object Library
搜索更多相关主题的帖子: Microsoft Object Excel 
2013-01-25 09:34
wangyuzg
Rank: 1
等 级:新手上路
帖 子:15
专家分:7
注 册:2011-2-23
得分:7 
vb6.0的引用中有Microsoft Excel 11.0 Object Library ,未必你必须要12.0的吗?
2013-01-25 11:10
wangyuzg
Rank: 1
等 级:新手上路
帖 子:15
专家分:7
注 册:2011-2-23
得分:0 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i, j As Integer

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls")
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Activate
    xlSheet.Cells(i , j) = text1.text
    Set xlApp = Nothing
2013-01-25 11:13
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:473
专家分:915
注 册:2012-10-26
得分:7 
http://bbs.

不要投我
2013-01-25 12:27
jualian
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2013-1-24
得分:0 
回复 2楼 wangyuzg
11.0的也没有。。。
2013-01-25 12:31
wangyuzg
Rank: 1
等 级:新手上路
帖 子:15
专家分:7
注 册:2011-2-23
得分:0 
那你安装的VB版本不对吧。
2013-01-25 13:40
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:473
专家分:915
注 册:2012-10-26
得分:0 
要不你没装Office
要不你的VB6有问题
要不你找错地方

不要投我
2013-01-25 13:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-397570-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.559355 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved