作者:乔山办公网日期:
返回目录:excel表格制作
我这里有一段是从知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)...
'1、定义Excel操作变量
Dim objExcelFile As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objImportSheet As Excel.Worksheet
'2、打开Excel进程,并打开目标Excel文件
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open(cFileName)
Set objImportSheet = objWorkBook.Sheets(1)
'3、获取Excel有效区域的行和列数e69da5e887aae799bee5baa6e79fa5e98193331
Dim intLastColNum As Integer
Dim intLastRowNum As Integer
intLastColNum = objImportSheet.UsedRange.Columns.Count
intLastRowNum = objImportSheet.UsedRange.Rows.Count
KHS = 0
'载入数据
With MSHFlexGrid
For i = ExcelFirstRow To intLastRowNum
' ProgressBar1.value = i
blnNullRow = True
For j = 1 To .Cols - 1 - GridCol
If Trim$(objImportSheet.Cells(i, j).Value) <> "" Then
blnNullRow = False
Exit For
End If
Next j
If blnNullRow = False Then
.AddItem .Rows - 1
.TextMatrix((i - ExcelFirstRow + GridFirstRow) - KHS, 0) = i - KHS - ExcelFirstRow + 1
.TextMatrix((i - ExcelFirstRow + GridFirstRow) - KHS, 1) = ""
For j = 1 To 5
.TextMatrix((i - ExcelFirstRow + GridFirstRow) - KHS, j + 2) = Trim$(objImportSheet.Cells(i,j).value)
Next j
Else
KHS = KHS + 1
End If
Next i
END WITH
百度一下大把copy例子百,非要来这里提问。度
VB 读取Excel表格数据问并在ListView控件中显答示
http:///Code/VB/WJCZ/Excel_616.html
rs.Open "select * from [Sheet1$]", conn, adOpenDynamic, adLockOptimistic
Set Grid1.DataSource = rs
这两来句不正源确。zhidao