Question

vb如何在excel 读取8位数以上的最大数值 ，如果在读取列当中出现文字如何跳过不读取

以下代码在读取过程中只能读取五位数的值，超过了会溢出，读取列中如果出现文字也会溢出
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim IntT As Integer, IntZj As Integer, IntH As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\1.xls")
xlApp.Visible = False
'Set xlSheet = xlBook.Worksheets("Sheet1")
IntT = 0
For IntZj = 4 To 33
If xlApp.Worksheets("Sheet1").Range("A1").Cells(IntZj, 1) > IntT Then
IntT = xlApp.Worksheets("Sheet1").Range("A1").Cells(IntZj, 1)
IntH = IntZj
End If
Next IntZj
Text1 = "第" & IntH & "行中数据最大，为：" & IntT
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

Answer 1

Dim IntT As Integer, IntZj As Integer, IntH As Integer

看清楚intt的有效范围 准备来说是超过65535就会溢出,可以换成long型

读取列当中出现文字如何跳过不读取
在读取前先判断单元格裏是不是数字即可
if IsNumeric(cells(a,b)) then intt=cells(a,b)

Answer 2

忽略错误，检查错误代码，出现相应错误代码就跳下一个循环。

Answer 3

integer是16位，long是32位，换成long型应该能行

Answer 4

4