Question

有关vb 如何读取excel表格A列数字最大值时A列出现文字，如何忽略文字只读取数字最大值

我想用vb来做一个软件来提取excel表格 A列里最大值的数字
代码一下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim IntT As Long, IntZj As Integer, IntH As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\2.xls")
xlApp.Visible = False

IntT = 0
For IntZj = 4 To 33
If xlApp.Worksheets("1-1-3").Range("A1").Cells(IntZj, 1) > IntT Then
IntT = xlApp.Worksheets("1-1-3").Range("A1").Cells(IntZj, 1)
End If
Next IntZj
Text1 = IntT
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

可惜excel 表格A列中出现文字，导致无法读取最大值！如何用VB忽略文字只读取数字。让VB读取到数字最大值

Answer 1

两种方法一、在EXCEL里把A列的文字去掉
二、用字符操作来筛选。比如你的A列格式为“AA123”那么可以用right("AA123",3)

Answer 2

你在读取之前先判断单元格类型，如果是数字继续程序，如果不是数字就跳下一个单元格啊。能写出这些代码，加个判断对你来说不难吧

Answer 3

VBA 中 的VAL 函数可以把有含有数值字符串转换为数值

Answer 4

学习了。