XLAPP.CELLS(IO, 1).VALUE = 表字段1
XLAPP.CELLS(IO, 2).VALUE = 字段2
XLAPP.CELLS(IO, 3).VALUE = 字段3
XLAPP.CELLS(IO, 4).VALUE = 字段4
XLAPP.CELLS(IO, 5).VALUE = 字段5
XLAPP.CELLS(IO, 6).VALUE = 字段6
XLAPP.CELLS(IO, 7).VALUE = 字段7
XLAPP.CELLS(IO, 8).VALUE = 字段8
XLAPP.CELLS(IO, 9).VALUE = 字段9
XLAPP.CELLS(IO, 10).VALUE = 字段10
ENDS
XLAPP.SAVE(D_PATH2)
XLAPP.WORKBOOKS.CLOSE
MESSAGEBOX(’成功!’,48,’提示’)