求助:如何把MSHFLEXGRID里的数据导入到EXCEL中?

Question

如果还想在EXCEL顶部或其他地方
再加一行说明,例如"*****报表统计数据"
应如何写程序?

Answer 1

和网格控件没有关系.有专门生成EXCEL的命令,只要从数据库中循环读出制定字段放到制定位置就行. 以下是生成EXCEL表格的命令. 
   Screen.MousePointer = vbHourglass
   Set MyExcel = CreateObject("Excel.Application")
   Set NewSheet = Nothing
   MyExcel.Workbooks.Add
   With MyExcel.Worksheets("Sheet1")
       .Activate
       .Columns.Font.Name = "宋体": .cells.WrapText = True
       .Columns.Font.Size = 12: .Columns.ColumnWidth = 18: .Columns.Borders.Color = RGB(0, 0, 0): .Rows.RowHeight = 14
       .Rows.HorizontalAlignment = 2 'align left
        .cells(i, j) = x'这是让第i行第j列的数据为x,如果你要将数据输入EXCEL,其实就是从数据库里读出数据填入cell里面.明白?
       MyExcel.Visible = True

Answer 2

晕,哪里不明白啊?我做的程序里面都有这个功能,论打印,EXCEL比水晶报表好多了.

Answer 3

1.如果格式不严格的话可以考虑把数据写逗号分隔的数据就可以了。
并以.xls为扩展名。excel可以认出来。
2.如果非常严格的格式，请用excel对象模型来做。