主题：[求助]如何把表格中的色条带到Excel文件中？

此主题相关图片如下：求助.jpg

如图中在表格中设定了色带，但是在转换成Excel文件时，这个色带没有带出来。怎么能带出来呢？谢谢

设置了呀！

Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = True

但是不好用！条形没有带出来！

‘保存订单表，包括行号列和单元格样式：

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

这个测试没问题

我那是画上去的颜色，宽比单元格窄，也没有单元格高。我用的就是4楼的方法。不行的！

这样画出来的。

   
    If   e.Row(e.Col.Name)= e.Row(xb) Then
        e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
    Else
        e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width-5, e.Height - 10)
       
    End If
好象Excel不支持。谢谢

 没办法的，只能用vba单独处理

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For i As Integer = 1 To ws.UsedRange.Rows.Count
    Dim cs = ws.Cells(i, 3)
    ws.Shapes.AddShape(Type:=1, Left:=cs.Left, Top:=cs.Top, Width:=cs.Width, Height:=cs.Height).Select
    With app.Selection.ShapeRange.Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
Next
app.visible = True
'app.quit

http://www.foxtable.com/help/topics/2121.htm