'DocFileName WORD文件的名称(无路径，路径见实例变量sPath)
'OutMessage 操作的的返回信息
'
'返回： 1成功 -1失败
'
'*************************************************************************
'初始化Word应用
err.Clear
On Error GoTo Err_All
Dim WdApp As Word.Application
Set WdApp = CreateObject("Word.Application")
'插入数据
Dim colloop As Integer '列号
Dim rowloop As Integer '行号
Dim colMax As Integer '列数
Dim rowMax As Integer '行数
Dim wdcell As Integer '宽
Dim UnitEnd As Integer '截取结束点
Dim UnitName As String '单位名称
Dim BbDate As String '报表期别
wdcell = 12
colMax = MyRecord.Fields.count
rowMax = MyRecord.RecordCount
WdApp.Documents.Add
'获取报表单位
UnitEnd = InStr(sBBDetail, "期别")
UnitName = Mid(sBBDetail, 1, UnitEnd - 2)
BbDate = Mid(sBBDetail, UnitEnd, Len(sBBDetail))
上一页 [1] [2] [3] [4] [5] [6] 下一页 |
