用VB 将数据逐个写入EXCEL的单元格 并在窗体上显示出来
第一行就可以了 要求例如输入一个值a 点击 保存 就保存在单元格A1中 再输入b 点击保存就保存在B1中 依次类推
然后在下面显示的控件里可以将excel表的内容显示出来
小弟第一次接触到和excel有关的编程 一点头绪都没有 网上找了几天也没办法 没有分 不过还是希望哪位大哥能帮个忙 或者提供点思路也好啊 先谢谢啦
最新回答
最纯洁De天使つ
2025-06-27 06:21:12
用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
热门标签
