Question

如何将VB中sheet1里面的内容导出到一个新生成的excel？求代码！

很简单的一个小软件，没有数据库的。所以不用data控件之类的。
我现在把一些简单的数据放在了sheet1里面，用cmd双击事件打开一个新的excel文件并显示内容。
本人小白，求代码！能够运行就再送分了...感谢！！！

Answer 1

你想干啥，没明白你的意思

追问

我可能描述的废话有点多。
简单的说就是怎么吧sheet里面的内容“搬”到excel里面去。如图，我点击生成表格按钮，就打开一个excle文件。

简单的说，就是sheet控件有些什么属性啊？这个我手上查不到//

追答

你是想读取单元格的内容吗，如果是的话有一个cells(row,col)可以实现
row行号，col列号
比如：i=cells(5,5)就能读取E5单元的内容
你的sheet不就是表格吗，
在excel中有表(worksheet)，工作簿（workbook)，单元格范围（Range）还有他们相应的集合（后面加s），

追问

For i = 1 To 11
For j = 1 To 8
If i = 1 Then
exl1.Cells(i, j) = Sheet1.????? 'cells( )怎么和sheet对应呢？
Else
exl1.Cells(i, j) = 0
End If
Next
Next

或者有其他的方法？

追答

对于sheet，可以用引用对象，也可以直接引用：
引用对象：
dim sh as new sheet
set sh=sheet1
exl1.cells(i,j)=sh.cells(p,q)
对于直接引用的话, a、如果sheet1是当前激活的表：
exl1.cells(i,j)=cells(p.q)
b、如果sheet1是当人们激活的工作簿的话
exl1.cells(i,j)=thisworkbook.sheet1.cells(p,q)
c、可以指定位置：
exl1.cells(i,j)=Application.Workbooks(文件名).Sheets("sheet1").Cells(p, q)

追问

还是不行.sheetID.cells() 中sheet没有"cells()"我是想把excel文件用sheet控件装在exe文件里，就不建数据库了。