如何把textbox中输入的数据保存到外部的excel中？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何把textbox中输入的数据保存到外部的excel中？

标题：如何把textbox中输入的数据保存到外部的excel中？

只看楼主

jualian

等　级：新手上路
帖　子：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

等　级：新手上路
帖　子：15
专家分：7
注　册：2011-2-23

第 2 楼

得分:7

vb6.0的引用中有Microsoft Excel 11.0 Object Library ,未必你必须要12.0的吗？

2013-01-25 11:10

wangyuzg

等　级：新手上路
帖　子：15
专家分：7
注　册：2011-2-23

第 3 楼

得分: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