解决方案 »
- VS2008里 想要把字体改为粗体 出现错误 请高手帮忙
- 如何让无窗口的vb应用程序(在vb中没有添加任何窗体,从main()启动的)之间相互通信,怎么发送,如何接收,就像用sendmessage一样(但这个需要窗口句柄)?
- 请教vb6.0对txt文件进行读写操作问题
- 可能这个问题很简单,但是需要有人指点阿
- comboBox
- 对我来说是高难问题:可执行的安装文件是如何把数据和可执行代码捆绑在一起的?
- 我想问一个有关vb日历的问题,请各位高手指教!!在线等待,快…快啊…
- dbGrid控件无法输入中文?
- 怎样才能直接读取winzip压缩文件里面的文件(不用解开来),就想winamp加载它的skin一 样
- 基于EXCEL+ACCESS+BI(数据挖掘与数据钻取、多维查询、全文检索)理念设计的个人工作管理簿
- 在VB中调用Fileopen()函数需要引用哪个类
- 好心人帮下很小的忙哦!不好意思,没分了。
Dim ExcelApp As Object ' As Excel.Application
Dim oBook As Object ' As Workbook
Dim xlsheet As Object ' As Worksheet
Dim a As String, c As String
Dim i As Long, v As LongSet ExcelApp = CreateObject("Excel.Application")
'Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True)
Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", False, True)
a = Text6 '表格名
Set xlsheet = oBook.Sheets(a)
v = xlsheet.Range("B:B").Rows.Count
For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row
If (xlsheet.Cells(i, 2).Text = "32KP") Then
Text1.Text = xlsheet.Cells(i, 5).Text
Exit For
End If
Next
提示实时错误“1004”应用程序定义或对象定义错误
那就换一种方法吧。
但这样有一个要求:有效数据区域内,被识别的列不能有空单元格(比如你这儿,就是B列)。
'Dim ExcelApp, oBook, a, c
Dim ExcelApp As Object ' As Excel.Application
Dim oBook As Object ' As Workbook
Dim xlsheet As Object ' As Worksheet
Dim a As String, c As String
'Dim i As Long, v As Long
Dim i As LongSet ExcelApp = CreateObject("Excel.Application")
'Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True)
Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", False, True)
a = Text6 '表格名
Set xlsheet = oBook.Sheets(a)
'v = xlsheet.Range("B:B").Rows.Count
'For i = 1 To xlsheet.Range("B:B").Rows(v).End(xlUp).Row
' If (xlsheet.Cells(i, 2).Text = "32KP") Then
' Text1.Text = xlsheet.Cells(i, 5).Text
' Exit For
' End If
'Next
i = 2 ' 数据从第2行开始
Do
c = xlsheet.Cells(i, 2).Text
If (Len(c) = 0) Then Exit Do
If (c = "32KP") Then
Text1.Text = xlsheet.Cells(i, 5).Text
Exit Do
End If
i = i + 1 ' 指向下一行
Loop