导出到excel的问题，急！

[zrgt2001]

1.想实现的效果是在excel文件的sheet1中显示时间信息，在sheet2中显示名称信息，我的代码如下，现在“时间”一项可以显示，而“名称”一项在sheet2中未显示，求高手赐教！！！
Dim xlApp As Variant
Dim excelWorkbook As Variant
Dim xlSheet As Variant
Dim xlSheet2 As Variant

Set xlApp = CreateObject("Excel.application")
Set excelWorkbook = xlApp.Workbooks.Add

Set xlSheet = excelWorkbook.Worksheets("sheet1")
Set xlSheet2 = excelWorkbook.Worksheets("sheet2")

xlSheet.Cells(1, 1).Value = "时间"
xlSheet2.Cells(1, 1).Value = "名称"
2 另一个问题，我如何在代码中修改sheet1和sheet2的名称？例如在excel中分别显示为“时间”和“名称”？

[grassky]

Set xlApp = CreateObject("Excel.application")
Set excelWorkbook = xlApp.Workbooks.Add
Set xlSheet = excelWorkbook.Worksheets("sheet1")
Set xlSheet2 = excelWorkbook.Worksheets("sheet2")
xlSheet.Activate
xlSheet.Cells(1, 1).Value = "时间"
xlSheet2.Activate
xlSheet2.Cells(1, 1).Value = "名称"
这样改试试。


2、修改SHEET表名：
xlSheet.Name = "时间"
xlSheet2.Name = "名称"


xlSheet2.Cells(1, 1).Value = "名称"

[grassky]

呵呵，上面最后一句弄错了，不好意思

[ibm123]

1、你的代码运行应该是正常的，sheet2表中应该有名称！

2、修改SHEET表名：
xlSheet.Name = "时间"
xlSheet2.Name = "名称"

[zrgt2001]

：）多谢二位