vb6.0逐列读取excel的数据
发布网友
发布时间：2022-05-21 15:06
我来回答
共1个回答
热心网友
时间：2023-10-30 17:23
Sub xx()
Dim xlApp as object
set xlApp = createobject("Excel.Application") '引用Excel对象
Dim wb as object
set wb = xlapp.workbooks.open("D:\aa.xls") '打开要操作的工作簿
Dim arr
Dim i as integer,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中
Next
End Sub
追问请问arr是什么意义，怎么把它输出出来，还有，这段代码后是不是excel没有关闭啊？
追答arr就形成一个二维数组，比如A列有10行数据，那么arr(1,1),arr(2,1),arr(3,1)...arr(10,1)就分别表示这10行数据。
wb.close true '关闭工作簿
xlapp.Quit '退出EXCEL应用程序
vb6.0逐列读取excel的数据
i).end(3).row arr = wb.sheets(1).cells(1,i).resize(m).value '将每一列的数据读取到arr中 NextEnd 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编写程序读取excel文件(在电脑没有装excel软件的情况下)
cnXL.Open If cnXL.State = 0 Then Exit Function '打开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)用上述方式打开...
VB6.0怎么从excel中随机读取某一行某一列单元格的内容到text.text里...
先确定好行数和列数的范围，再用随机函数产生行数和列数，最后用赋值语句直接读取单元格的值就可以了。
VB6.0读取EXCEL工作表中区域内的数据
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.Close False '关闭工作簿 不...
VB6.0下拉框数值读取EXCEL问题,请高手赐教,代码如下
xlApp.Visible = True '设置EXCEL对象可见（False不可见）Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表 Me.Combo1.Clear '进入循环前清除ComBo List For i = 1 To 10 Me.Combo1.AddItem xlSheet.cells(i,1) '正确用法是使用AddItem添加List Next ...
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中的数据?
'---写入EXCEL表结束--- ExlApp.Visible = True '显示Excel Set ExlSheet = Nothing Set ExlBook = Nothing Set ExlApp = Nothing 这点代码你参考下吧。只是写入excel。我没能理解你的意思。而且我也只是一个初学者 如果你把excel 当成数据库操作，就像读数据库中的数据值一样。当然可以赋值给数...
vb6.0如何读取excel工作表的内容?
strSQl = "select * from [" & strSheetName & "]" 取掉“&”字符
vb6.0文本框获取表格多个活动单元格的内容?
创建一个表格对象。您可以使用 ADO 或者 Excel 对象来连接 Excel 表格，然后创建一个表格对象。选择多个单元格。使用表格对象的 Select 方法来选择需要读取的多个单元格。例如，使用以下代码选择 A1 到 A3 三个单元格：表格对象.Range("A1:A3").Select 将单元格内容复制到剪贴板。使用表格对象的 Copy ...
