vb6.0中调用excel表格模板的问题,在线等！

Question

在程序中可以选择所要填写的excel表，填写数据保存数据。分不够可以开帖在加 。在线等了。[email protected]

Answer 1

例如:
Dim str1 As String
Dim waijiaji As Excel.Application
Dim x1book As Excel.Workbook
Dim x1sheet As Excel.Worksheet
Dim iCount As Integer
Set waijiaji = CreateObject("Excel.Application")
Set x1book = waijiaji.Workbooks.Open(App.Path + "\excel\耗料汇总表.xls")
Set x1sheet = x1book.Worksheets(1)
'iCount = x1sheet.Rows.Count '得到表格的行数 
For i = 1 To MGrid1.Rows - 1   '将MsGrid控件的数据添加上去
  For j = 1 To MGrid1.Cols - 1
    MGrid1.Row = i
    MGrid1.Col = j
    x1sheet.Cells( i, j) = MGrid1.Text   '数据累加上去
  Next j
Next i
x1sheet.SaveAs "c\耗料汇总表.xls"
Set x1book = Nothing
waijiaji.Application.Quit

Answer 2

Set x1book = waijiaji.Workbooks.Open(App.Path + "\excel\耗料汇总表.xls")
这里填写的是excel的路径，你可以做一个路径对照表
然后，根据用户的选择来定义你的路径。
然后看上面的代码。是一个例子。

Answer 3

我用的电脑报 找不到可插入的 ISAM

Answer 4

先要引用你的EXCEL组件
叫 Microsoft Excel X.X Object Library
在工程上引用。

Answer 5

我使用的是MSN
这段代码肯定能用，现在正在客户那里使用98/2000/xp都没有问题。

Answer 6

我的msn 是[email protected]
有空加了，还的多多请教的你用的是不是可插入对象sheet啊还有你还需要多少分啊！

Answer 7

如何把excel表的内容 显示在form 上呢
你的代码是 把网格里 的数据添加到excel表中，如果直接把表的内容读到要提交的那张表里
是不是 能更好点呢？