请帮忙了!!

解决方案 »

  1.   

    微软的答案:
    http://support.microsoft.com/default.aspx?scid=kb;EN-US;278973
      

  2.   

    先引用microsoft excel 9.0 object library  
      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
        IdxCount = 1
        xlSheet.Cells(IdxCount, 1) = Caption
        xlSheet.Range("A1").Select
        xlSheet.Range("A1:C1").MergeCells = True
        xlSheet.Range("A1:C1").Font.Name = "楷体_GB2312"
        xlSheet.Range("A1:C1").Font.FontStyle = "加粗"
        xlSheet.Range("A1:C1").Font.Size = 16
        xlSheet.Range("A1:C1").HorizontalAlignment = xlCenter
        xlSheet.Range("A1:C1").VerticalAlignment = xlCenter