<em>VB</em> 操作ole excel 控件 输入数据后如何保存

Dim Maxrow, Maxcol As Integer

Dim Cell(10, 10) As Integer

Dim j As Integer

Dim x As Excel.Application

Dim xbook As Excel.Workbook

Dim xsheet As Excel.Worksheet

    Set x = CreateObject("excel.application")

    s_path = App.Path & "\Book1.xls"

    Set xbook = x.Workbooks.Open(s_path)

    Set xsheet = x.Worksheets("sheet1")

    j = 1

    Maxrow = xsheet.usedrange.rows.Count          '获取度知excel中行道数专属

    Maxcol = xsheet.usedrange.Columns.Count       '获取excel中列数

    Cell(j, 1) = xsheet.Cells(j, 1).Value

vb及excel问题解决
打开zhidaoVB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项
先声明三个变量：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
在Form_Load()中添加代码回：
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open("d:\xjid.xls") '要打开Excel文件及路径
Set xlSheet = xlBook.Worksheets("Sheet1")'要打开的工作表
在要增加数据的地答方加入代码：
iEnd = xlSheet.Range("A65535").End(xlUp).Row+1 '找到最后一行
xlSheet.Range("A" & iEnd)="你好" '如在A列最后一个单元格增加“你好”

希望能帮到你

Dim xlApp As Object ' Excel.Application
Dim xlBook As Object ' Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "/test.xls") '打开e799bee5baa6e79fa5e98193e59b9ee7ad94330已经存在的test.xls工件簿文件
Set xlSheet = xlBook.Worksheets(1) '设置活动表

.......
.......

xlSheet.SaveAs App.Path & "/test.xls" '保存文件
xlBook.Close
xlApp.Quit
Set xlApp = Nothing