下面的例子，供你参考：
’用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
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文本框获取表格多个活动单元格的内容?
创建一个表格对象。您可以使用 ADO 或者 Excel 对象来连接 Excel 表格，然后创建一个表格对象。选择多个单元格。使用表格对象的 Select 方法来选择需要读取的多个单元格。例如，使用以下代码选择 A1 到 A3 三个单元格：表格对象.Range("A1:A3").Select 将单元格内容复制到剪贴板。使用表格对象的 Copy ...
vb6.0如何读取excel指定某行单元格内容?
debug.print "b1=",bb(1,2)debug.print "c1=",bb(1,3)debug.print "d1=",bb(1,4)
问问各位大虾们?VB6.0怎么读取这里面的内容 急急、。。。
1.VB中引用excel，即菜单栏中工程->引用->misrosoft excel 11.0 object library .2.参加后要加入到快捷栏，即菜单栏中工程->部件->可插入对象->misrosoft excel 3.点击快捷栏中的EXCEL图标，在form中画制区域，用TEXT 控件给EXCEL 的每行写入你要写的这些东西！OK！！
VB6.0操作EXCEL中的数据?
'---写入EXCEL表结束--- ExlApp.Visible = True '显示Excel Set ExlSheet = Nothing Set ExlBook = Nothing Set ExlApp = Nothing 这点代码你参考下吧。只是写入excel。我没能理解你的意思。而且我也只是一个初学者 如果你把excel 当成数据库操作，就像读数据库中的数据值一样。当然可以赋值给数...
VB6.0怎么从excel中随机读取某一行某一列单元格的内容到text.text里...
先确定好行数和列数的范围，再用随机函数产生行数和列数，最后用赋值语句直接读取单元格的值就可以了。
vb6.0如何读取excel工作表的内容?
strSQl = "select * from [" & strSheetName & "]" 取掉“&”字符
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用编程编写如何获得数值在Excel单元格的哪行哪列_百 ...
如果完全不给限定范围，VB效率会非常非常慢，要搜索整个表格范围 建议用find函数，并给定范围，以提升效率。举例如下：With Sheets(1).[A:Z] ‘范围为Sheet1 A到Z列当然更小更好 Set c = .Find("F001", LookIn:=xlValues) ‘找到包含目标的单元格 myrow = c.Row ‘给出单元格行数 myco...
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 =...
