Dim i, k As Integer
Dim KH(100) As String
Dim DS(100) As Double
Dim WD(100) As Double
i = 1
k = 1
wjm = "d:\上传\" & CStr("SW-" & Month(Date) & "-" & Day(Date) & "-" & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time)) & ".txt"
Do While Application.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value <> ""
   KH(i) = ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value
   DS(i) = ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 6).Value
   WD(i) = ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 8).Value
   i = i + 1
Loop
Open wjm For Output As #1
   Print #1, ActiveWorkbook.sheets("4-水位").cells(33, 6).Value
      For k = 1 To i - 1
        Print #1, "NO="; CStr(KH(k)); Spc(1); "0"; CStr(VBA.Format(DS(k), "0.0") * 10); Spc(1); "0"; CStr(VBA.Format(WD(k), "0.0") * 10)
     Next k
Close

显示  实时错误“424”：要求对象
Do While Application.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value <> ""
此行错误，请高手指点

非常感谢，但还是不太明白，能否再说详细些，不胜感谢

“w360989426”,你好，非常感谢
Dim excel1 As Excel.Application
显示 编译错误：用户定义类型未定义
是不是由于我安装的是vb精简版的原因呢

引用后，显示  实时错误‘91’：对象变量或With块变量未设置
Do While  excel1.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value <> ""
此行错误，请指点

不明白，请版主详解，不胜感谢

问题已经解决，非常感谢！