Question

vb导出VSFlexGrid表中数据到excel和txt中

另存为数据到excel

Answer 1

我这里有一段是从dataset写到excel的，你只要把ds里的字段改成vsflexgrid的单元格就可以了，你先研究一下，有问题可以再找我.
Dim excel As Excel.Application = New Excel.Application
excel.DisplayAlerts = True
excel.Workbooks.Add(True)
'excel.Visible = True
Dim i As Integer
excel.Cells(8, 1) = "brand_key"
excel.Cells(8, 2) = "Season_Key"
excel.Cells(8, 3) = "article_key"
excel.Cells(8, 4) = "color_key"
excel.Cells(8, 5) = "inseam_key"
For i = 0 To ds.Tables(0).Rows.Count - 1
excel.Cells(i + 9, 1) = ds.Tables(0).Rows(i)("brand_key").ToString().Trim()
excel.Cells(i + 9, 2) = ds.Tables(0).Rows(i)("Season_Key").ToString().Trim()
excel.Cells(i + 9, 3) = ds.Tables(0).Rows(i)("article_key").ToString().Trim()
excel.Cells(i + 9, 4) = ds.Tables(0).Rows(i)("color_key").ToString().Trim()
excel.Cells(i + 9, 5) = ds.Tables(0).Rows(i)("inseam_key").ToString().Trim()
excel.Cells(i + 9, 6) = ds.Tables(0).Rows(i)("size_Key").ToString().Trim()

Next

Answer 2

用 VSFlexGrid1.SaveGrid 导出到excel