vb6.0怎么读取excel表中内容
发布网友
发布时间:2022-05-06 03:47
我来回答
共2个回答
热心网友
时间:2022-06-28 15:28
下面的例子,供你参考:
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下
'添加command控件一个 CommonDialog,MSFlexGrid控件一个
Private Sub Command1_Click()
On Error Resume Next
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件
fileadd = CommonDialog1.FileName
MSHFlexGrid1.Redraw = False '关闭表格重画,加快运行速度
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表
For R = 0 To MSHFlexGrid1.Rows - 1 '行循环
For C = 0 To MSHFlexGrid1.Cols - 1 '列循环
MSHFlexGrid1.Row = R
MSHFlexGrid1.Col = C
‘这里写你 SQL语句
Next C
Next R
MSHFlexGrid1.Redraw = True
xlApp.DisplayAlerts = False
'Set xlsheet = Nothing
'Set xlBook = Nothing
'xlApp.Quit
'Set xlApp = Nothing
End Sub
热心网友
时间:2022-06-28 15:29
用VSTO吧,不要再用VB6.0了,或者直接用Excel里面自带的VBA来操作,写入到SQL.
vb6.0怎么读取excel表中内容
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog,MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...
VB6.0读取EXCEL工作表中区域内的数据
Dim Xlsheet As Worksheet Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿 Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表 Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。Xlbook.Cl...
VB6.0操作EXCEL中的数据?
Dim ExlBook As Object Dim ExlSheet As Object Set ExlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例 Set ExlBook = ExlApp.Workbooks.Add '创建Excel的工作簿 Set ExlSheet = ExlBook.Worksheets(1) '创建Excel的一张表 ExlSheet.Range("A:G").Font.Size = 9 '设置...
vb6.0文本框获取表格多个活动单元格的内容?
创建一个表格对象。您可以使用 ADO 或者 Excel 对象来连接 Excel 表格,然后创建一个表格对象。选择多个单元格。使用表格对象的 Select 方法来选择需要读取的多个单元格。例如,使用以下代码选择 A1 到 A3 三个单元格:表格对象.Range("A1:A3").Select 将单元格内容复制到剪贴板。使用表格对象的 Copy ...
vb6.0如何读取excel工作表的内容?
strSQl = "select * from [" & strSheetName & "]" 取掉“&”字符
VB6.0怎么从excel中随机读取某一行某一列单元格的内容到text.text里...
先确定好行数和列数的范围,再用随机函数产生行数和列数,最后用赋值语句直接读取单元格的值就可以了。
vb6.0逐列读取excel的数据
m as long for i = 1 to 2 '用m存储每一列最后一个单元格的Row值 m = wb.sheets(1).cells(wb.sheets(1).rows.count,i).end(3).row arr = wb.sheets(1).cells(1,i).resize(m).value '将每一列的数据读取到arr中 NextEnd Sub ...
vb6.0编写程序读取excel文件(在电脑没有装excel软件的情况下)_百度知 ...
'打开Excel 的一个sheet rsXL.Open "[报表数据导入$]", cnXL, adOpenStatic, adLockOptimistic, adCmdTable If rsXL.EOF Then Exit Function '读取单元格C1 a=rsXL(2)'读取单元格D3 rsXL.MoveNext rsXL.MoveNext a=rsXL(3)用上述方式打开Excel对表的数据有一定要求。第一行将作为字段名称而被...
vb6.0里面如何对excel的行就行读取,不能用.cells(1,1)这样的格式,该用...
读取行是.Row 。下面是编程的例子 001 Sub LastRow()002 Dim rng As Range 003 Set rng = Sheet1.Range("A65536").End(xlUp)004 MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _005 & ",行号" & rng.Row & ",数值" & rng.Value 006 Set rng =...
VB6.0下拉框数值读取EXCEL问题,请高手赐教,代码如下
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见(False不可见)Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表 Me.Combo1.Clear '进入循环前清除ComBo List For i = 1 To 10 Me.Combo1...