引用Microsoft Excel ## Object Library
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add

xlSheet.Name = "示例1"
xlSheet.Activate
xlSheet.Range("A1").Value = "测试写入"
xlSheet.SaveAs "e:\test.xls"

Set xlSheet = Nothing
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

学用Excel最简单的方法就是先在Excel里按你想要的操作步骤录制宏，然后看里面的代码。像合并单元格式，设置单元格背景等,一试就知道是用什么属性了。

谢谢！谢谢!我们专业学的就是VB,C语言我确实也不会。

“专业学的就是VB”？
哈哈哈

[quote]“专业学的就是VB”？
哈哈哈
[/quote]
老副有什么好笑的？

是好笑

有什么好笑的，我们学校很多专业都是学VB啊。很实用，也很容易上手，不是嘛。