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 <> ""
此行错误，请高手指点

Application
这个对象，是在 EXECL VBA 中，是指 EXCEL 本身。
在VB中的话，那么需要生成这么一个对象，然后操作它，打开所需的EXCEL 文件。

 ActiveWorkbook
指 活动工作簿，在 VB里，不能省前面的对象名。

具体如何操作，你百度一下 VB 操作 EXCEL 方面 的内容就行了。

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

Dim excel1 As Excel.Application
    Set excel1 = New Excel.Application
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  excel1.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value <> ""
   KH(i) =  excel1.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 5).Value
   DS(i) =  excel1.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 6).Value
   WD(i) =  excel1.ActiveWorkbook.sheets("4-水位").cells(35 + i - 1, 8).Value
   i = i + 1
Loop
Open wjm For Output As #1
   Print #1,  excel1.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
代码已做修改，请测试，测试之前，先在vb引用excel和office

给你一段列子你自己看吧
 Dim excel1 As Excel.Application
    Set excel1 = New Excel.Application
    excel1.Visible = True
    excel1.Workbooks.Open (App.Path & "\程序模版.xls")
    excel1.Workbooks("程序模版.xls").Sheets("对账结果").Select
    If excel1.Workbooks("程序模版.xls").ReadOnly = True Then
        excel1.DisplayAlerts = False
        excel1.Application.Quit
        excel1.DisplayAlerts = True
        MsgBox "你已经打开“程序模版.xls”" & Chr(13) & "请关闭原有的“程序模版.xls”，在运行导出到excel。", vbOKOnly, "错误提示"
        Exit Sub
    Else
        excel1.Workbooks("程序模版.xls").Sheets("对账结果").Cells.Clear
        excel1.Workbooks("程序模版.xls").Sheets("对账结果").Range("A2").CopyFromRecordset Adodc1.Recordset
    End If
    If 单号金额对账 = 1 Then
        With excel1.Workbooks("程序模版.xls").Sheets("对账结果")
            .Cells(1, 1) = "日期"
            .Cells(1, 2) = "订单编号"
            .Cells(1, 3) = "酒店名称"
            .Cells(1, 4) = "厨房"
            .Cells(1, 5) = "单号总额"
            .Cells(1, 6) = "入账月份"
            .Cells.Font.Size = 9
            .Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
                           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            .Columns.AutoFit
            .Rows.AutoFit
            .Columns("e:e").NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
            .Columns("d:d").NumberFormatLocal = "yyyy-mm""月"""
        End With
end if

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

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

Set excel1 = New Excel.Application
引用加复制。重点 New

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