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 = N...

建议用find函数，并给定范围，以提升效率。举例如下：With Sheets(1).[A:Z] ‘范围为Sheet1 A到Z列当然更小更好 Set c = .Find("F001", LookIn:=xlValues) ‘找到包含目标的单元格 myrow = c.Row ‘给出单元格行数 mycol = c.Column ‘给出单元格列数 End With ...

’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog，MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...

xlsheet.cells(1, 1) = "123" 'cells(1,1)表示A1,第一行第一列,B1表示为cells(1,2)xlBook.saved = True '不提示是否保存，直接保存文件 objexcel.ActiveWorkbook.Save On Error GoTo lap1 'objExcel.ActiveWindow.SelectedSheets.PrintOut , , , False '直接通过默认打印机打印这个表 objex...

1. 工程 引入 Microsoft Excel 12.0 Object Library ，这里的12.0 可能会因为office版本不同而不同。2. 代码程序通用部分定义 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet 3.打开EXCEL文件 CommonDialog1.ShowOpen '选择文件路径 Text1.Text ...

先确定好行数和列数的范围，再用随机函数产生行数和列数，最后用赋值语句直接读取单元格的值就可以了。

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 ...

strSQl = "select * from [" & strSheetName & "]" 取掉“&”字符

4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或ExcelID.WorkSheets['Sheet2'].Activate;6)给单元格赋值：ExcelID.Cells[1,4].Value:='第一行第四列';7)设置指定列的宽度（单位：字符个数），以第一...

一、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：1、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xl...