用VB 将数据逐个写入EXCEL的单元格 并在窗体上显示出来

Question

如图向文本框里输入不同的项目 让它依次保存到excel表的第一行 A1 B1 C1等单元格中
第一行就可以了 要求例如输入一个值a 点击 保存 就保存在单元格A1中 再输入b 点击保存就保存在B1中 依次类推
然后在下面显示的控件里可以将excel表的内容显示出来

小弟第一次接触到和excel有关的编程 一点头绪都没有 网上找了几天也没办法 没有分 不过还是希望哪位大哥能帮个忙 或者提供点思路也好啊 先谢谢啦

Answer 1

我简单的写了一个能实现你上述功能的代码！
用Excel在C盘根目录下生成一个名为 Test.xls 的空文件,然后启动VB6

首先在工程中引用 Microsoft Excel 11.0 Object Library

力求简单，显示数据我仅仅用了3个Textbox控件来完成！

代码如下：
Dim objExcelFile As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objImportSheet As Excel.Worksheet
Dim inx As Integer

Private Sub Command1_Click()
objImportSheet.Cells(1, inx).Value = Text1.Text
inx = inx + 1
If inx > 3 Then inx = 1
End Sub

Private Sub Command2_Click()
objImportSheet.SaveAs "c:\test.xls"
Text2.Text = GetRowData(1, 1)
Text3.Text = GetRowData(1, 2)
Text4.Text = GetRowData(1, 3)
End Sub

Private Sub Form_Load()
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open("c:\test.xls")
Set objImportSheet = objWorkBook.Sheets(1)
inx = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
objImportSheet.SaveAs "c:\test.xls"
objExcelFile.Quit
Set objWorkBook = Nothing
Set objImportSheet = Nothing
Set objExcelFile = Nothing
End Sub

Function GetRowData(sRow As Integer, sCow As Integer) As String
GetRowData = Trim$(objImportSheet.Cells(sRow, sCow).Value)
End Function