用Drive、Dir、File三个控件找到一个excel文件
选中这个文件
点击按钮
能在form里显示出来
然后双击某行数据
提取本行全部数据怎么做啊?
谢谢!我以前没做过
向大家请教![email protected]我现在可以把excel文件里的数据读出来了
这样读的:
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Set VBExcel = CreateObject("excel.application")
VBExcel.Visible = False '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
Set xlbook = VBExcel.Workbooks.Open(xlsPath.Text) 'ExcelFile为事先设计好的Excel模板文件,包括路径
Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index,或者用表名称,如:Sheet1
xlsheet.Activate
' MsgBox CStr(xlsheet.Cells(1, 1).Value)我用了MSFlexGrid控件,我想把数据显示到这个控件里
就不知道怎么写了
^_^,呵呵,再帮帮我吧
如果想多要分,另外再加。
选中这个文件
点击按钮
能在form里显示出来
然后双击某行数据
提取本行全部数据怎么做啊?
谢谢!我以前没做过
向大家请教![email protected]我现在可以把excel文件里的数据读出来了
这样读的:
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Set VBExcel = CreateObject("excel.application")
VBExcel.Visible = False '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
Set xlbook = VBExcel.Workbooks.Open(xlsPath.Text) 'ExcelFile为事先设计好的Excel模板文件,包括路径
Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index,或者用表名称,如:Sheet1
xlsheet.Activate
' MsgBox CStr(xlsheet.Cells(1, 1).Value)我用了MSFlexGrid控件,我想把数据显示到这个控件里
就不知道怎么写了
^_^,呵呵,再帮帮我吧
如果想多要分,另外再加。
Dim rs As Recordset
Set db = OpenDatabase(xlsPath.Text, True, False, "Excel 8.0")
Set rs = db.OpenRecordset("Select * FROM [" & sSheetName & "$]")
Set Data1.Recordset = rs
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Set VBExcel = CreateObject("excel.application")
VBExcel.Visible = False '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
Set xlbook = VBExcel.Workbooks.Open(xlsPath.Text) 'ExcelFile为事先设计好的Excel模板文件,包括路径
Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index,或者用表名称,如:Sheet1
xlsheet.Activate我每次执行完成后,怎么把他的进程关闭啊?
运行几次以后,系统进程里有一大堆的excel.exe死在里面??
Dim iRows As Integer
Dim iCols As Integer
Dim jOut As Integer
Dim kOut As Integer
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim objRange As Excel.Range
On Error GoTo err
'将EXCEL表中的数据导入到网格控件中
Set objExcel = New Excel.Application
Set objWorkBook = objExcel.Workbooks.Open(txt_FileName.Text)
Set objSheet = objWorkBook.ActiveSheet
Set objRange = objSheet.UsedRange
iRows = objRange.Rows.Count
iCols = objRange.Columns.Count
For jOut = 1 To iRows - 1
For kOut = 1 To iCols
With MSHFlexGrid1
.TextMatrix(jOut - 1, kOut - 1) = objSheet.Cells(jOut + 1, kOut)
End With
Next
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
Next
objWorkBook.Close
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
'将网格控件中的内容存入数据库
sql = "select* from Y_YSDWBH "
Set rs = ExecuteSQL(sql)
If rs.EOF Then
For i = 0 To MSHFlexGrid1.Rows - 2
rs.AddNew
For j = 0 To 6
rs.Fields(j) = MSHFlexGrid1.TextMatrix(i, j)
Next j
rs.Update
Next i
MsgBox "报表数据已导入至数据库中! ", vbInformation + vbOKOnly, "提示"
txt_FileName.Text = ""
cmd_datain.Enabled = False
Else
MsgBox "导入过程中出现错误,请重新操作! ", vbCritical + vbOKOnly, "错误"
sql = "delete from Y_YSDWBH "
Set rs = ExecuteSQL(sql)
txt_FileName.Text = ""
cmd_datain.Enabled = False
End If
err:
txt_FileName.Text = ""
cmd_datain.Enabled = False
Exit Sub
我是这样做的,紧供参考