求助！！！vba读取excel表格数据问题。

懒羊羊 · 发表于 2011-11-22 08:52:00

Public Function guimianshejigaocheng()
Dim excelApp As Excel.Application
Dim excelSheet As Excel.Worksheet
Dim strFile As String
strFile = ThisDrawing.Application.VBE.ActiveVBProject.fileName
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = False
excelApp.Workbooks.Open Left$(strFile, Len(strFile) - Len("ex01.dvb")) & "\Excel\demo.xls"
Set excelSheet = excelApp.ActiveWorkbook.Sheets("Sheet1")
Dim text As AcadText

  Dim i As Integer, k As Integer
  For i = 2 To 111
Dim a As Variant, e As String
   a = Cells(i, 3).Value
e = a

k = 910 + 1.5 + (i - 1) * 10
Dim insert(0 To 2) As Double

insert(0) = k - 12
insert(1) = 245 - 4 + 35 - 2.5 + 10
insert(2) = 0
Dim textobj As AcadText
Set textobj = ThisDrawing.ModelSpace.AddText(e, insert, 2)
  textobj.Rotation = 3.14159 / 2
Next i

' 退出Excel应用程序
excelApp.Quit
End Function
我用这段代码标注里程，现在问题是每次我都需要给一个循环范围，有没有办法让vba读到最后一条记录自动停止？

VBALISPER · 发表于 2011-11-22 12:23:00

可以用do while语句嘛.也可以用无限循环的for语句,用if条件判断,满足条件跳出循环.

懒羊羊 · 发表于 2011-11-22 15:57:00

多谢回复，无限循环的怎么做？是不是把循环的上限改成一个很大的数？比如for i=2 to 1000000?

黄玉宏 · 发表于 2011-11-22 20:26:00

For i = 2 To 111
Dim a As Variant, e As String
a = Cells(i, 3).Value
改成如下：
Dim a As Variant, e As String
For i = 2 To excelSheet.[C65536].End(xlUp)
a = excelSheet.Cells(i, 3).Value

懒羊羊 · 发表于 2011-11-23 08:52:00

谢谢

懒羊羊 · 发表于 2011-11-23 08:59:00

C65536是什么意思？不管是a取哪列数据，i的循环上限都是这个语句吗？

黄玉宏 · 发表于 2011-11-23 20:31:00

这是Excel2003，它只有最多65536行。更加自动适应Excel版本的要复杂些，2007版的到网上搜索一下，反正数字大多了，应该是C1048576.做成自适应Excel版本的：Cells(excelApp.Rows.Count, 3),也就是从C列最后一行开始向上搜索第一个用数据的行数。你这纯粹是对Excel编程。我开发测绘软件时都这样。注意，数据不能超过起始行2，也就是要用数据才行，否则搜索到1。