VB 如何生成EXCEL表格？谢谢了

Question

用VB编了计算的小程序，结果能计算出来。现在我想把计算的中途步骤导出成word或者把 中间步骤的计算结果自动生成excel中
我采用了 cnbubble方法怎么不行啊，出现“用户定义类型未定义”？怎么回事啊
高手帮忙解答下，谢谢啦:-)

Answer 1

材料/工具：电脑、VB 6.0软件

1、首先，我们需要点击文件菜单栏按钮。

2、然后，我们点击生成EXE按钮。

3、接下来，我们点击保存路径。

4、然后，我们输入我们想要保存的文件名。

5、最后，我们点击确定按钮。

6、然后，我们便可以看到，在桌面生成了Excel表格了。

Answer 2

材料/工具：电脑、VB 6.0软件

1、首先，我们需要点击文件菜单栏按钮。

2、然后，我们点击生成EXE按钮。

3、接下来，我们点击保存路径。

4、然后，我们输入我们想要保存的文件名。

5、最后，我们点击确定按钮。

6、然后，我们便可以看到，在桌面生成了Excel表格了。

本回答被网友采纳

Answer 3

Private Sub Command2_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格赋值
objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

补充： 在“工程”-引用 -中要选择 Microsoft Excel 11.0【或其他数值】 Object Library本回答被提问者采纳

Answer 4

我也做了这个，成功导出，你看看
dim
i,
j,
k
as
integer
dim
strcolname1
as
string
dim
strsql
as
string
dim
xlapp
as
variant
dim
xlbook
as
variant
dim
xlsheet
as
variant
'以上定义放在通用中
private
sub
label_click()
'导出execl
set
xlapp
=
createobject("excel.application")
set
xlbook
=
xlapp.workbooks.add
set
xlsheet
=
xlbook.worksheets(1)
on
error
resume
next
if
err.number
=
0
then
set
xlapp
=
createobject("excel.application")
set
xlbook
=
xlapp.workbooks.add
set
xlsheet
=
xlbook.activesheet
for
k
=
1
to
datagrid1.columns.count
xlsheet.cells(1,
k)
=
datagrid1.columns(k
-
1).caption
next
k
for
i
=
1
to
adodc1.recordset.recordcount
+
1
for
j
=
0
to
datagrid1.columns.count
xlsheet.cells(i
+
1,
j
+
1)
=
adodc1.recordset(j)
next
j
adodc1.recordset.movenext
next
i
end
if
xlapp.visible
=
true
end
sub
在窗体中放一个ado控件，并且在属性中设置与数据库的连接

Answer 5

别人问如何生成EXCEL表格，你回答生成EXE文件，牛头不对马嘴！