VB操控excel格式的问题？

Question

请问在Vb6.0中要怎样才能实现下面的两个问题，谢谢
1.将vb程序中的数据导出到excel表格
2.如何在Vb程序中设置Excel表格的格式（如字体，单元格全拼等）

Answer 1

1.将vb程序中的数据导出到excel表格
-----------------------------------
1、可以把Excel当作数据库来操作，连接后，用insert into语句插入数据
2、用Excel对象来操作（在vb里引用Exel，创建Excel对象)
2.如何在Vb程序中设置Excel表格的格式（如字体，单元格全拼等）
-------------------------------------------------------------
用Excel对象来操作（在vb里引用Exel，创建Excel对象)

Answer 2

'用 Excel.Application 对象来操作Excel的例子：
'("工程"/"引用"/引用Microsoft Excel X.0 Object Library)
Private Sub Command7_Click()
    Dim xlApp As New Excel.Application '定义并创建EXCEL对象
    Dim xlBook As Excel.Workbook '创建工作簿
    Dim xlSheet As Excel.Worksheet
    xlApp.Visible = True '让Excel可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\Test.xls") '打开Excel文件
    Set xlSheet = xlBook(1)
    
    With xlSheet
        .Cells(1, 1) = 1231 '设置第一行第一列的值
        .Range("e5").Font.Name = "楷体_GB2312"   '设置字体类型
        .Range("e5").Font.Size = 16   '设置字体大小
        '......
    End With'    xlBook.Close  True '保存
'    xlApp.Quit  '关闭Exel
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

Answer 3

faysky2() 
如何在程序里先创建一个Test.xls文件？

Answer 4

怎样让excel得列自动根据内容变化宽度？