找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
{{itemCategory}}
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
Dim UA,col,row,rows
Dim xlapp,objsheet
Dim i,j,k,m,n,filename
Set UA=ScreenItems("UA")
Set rows=UA.GetRowCollection
m=rows.Count
n=UA.ColumnCount
If m>1 Then ''如果用户归档控件有记录
Set xlapp=CreateObject("Excel.Application")
xlapp.visible=False
xlapp.workbooks.add
Set objsheet=xlapp.worksheets(1)
For k=1 To n
ua.ColumnIndex=k-1
objsheet.cells(3,k)=ua.ColumnCaption ''字段名称
Next
objsheet.cells(1,1)="生产报表"
For i=1 To m
For j= 1 To n
objsheet.cells(i+3,j)=ua.GetRow(i).celltext(j)
Next
Next
''以下代码处理日期时间数据格式以及表格边框线、标题合并单元格等排版
objsheet.range("a1:p1").mergecells=True
objsheet.range("b2:p2").mergecells=True
objsheet.range("a1").ColumnWidth =11 ''列宽
objsheet.range("b1").ColumnWidth =8
objsheet.range("c1").ColumnWidth =8
objsheet.range("d1").ColumnWidth =8
objsheet.range("e1").ColumnWidth =8
objsheet.range("f1").ColumnWidth =11
objsheet.range("g1").ColumnWidth =8
objsheet.range("h1").ColumnWidth =8
objsheet.range("i1").ColumnWidth =11
objsheet.range("j1").ColumnWidth =8
objsheet.range("k1").ColumnWidth =8
objsheet.range("l1").ColumnWidth =8
objsheet.range("m1").ColumnWidth =11
objsheet.range("n1").ColumnWidth =11
objsheet.range("o1").ColumnWidth =11
objsheet.range("p1").ColumnWidth =11
Dim myDy
Dim Seldate
Seldate=HMIRuntime.Tags("myDate").Read
myDy=CStr(Year(Seldate)) +"-" +CStr(Month(Seldate))+"-"+CStr(Day(Seldate))
objsheet.cells(2,1)="报表日期:"
''objsheet.cells(2,2)=Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
objsheet.cells(2,2)=myDy
objsheet.cells(1,1).HorizontalAlignment = 3''居中
objsheet.cells(2,2).HorizontalAlignment = 2
objsheet.range("a1:p" & CStr(3+m)).borders(1).linestyle=9
objsheet.range("a1:p" & CStr(3+m)).borders(1).weight=2
objsheet.range("a1:p" & CStr(3+m)).borders(2).linestyle=9
objsheet.range("a1:p" & CStr(3+m)).borders(2).weight=2
objsheet.range("a1:p" & CStr(3+m)).borders(3).linestyle=9
objsheet.range("a1:p" & CStr(3+m)).borders(3).weight=2
objsheet.range("a1:p" & CStr(3+m)).borders(4).linestyle=9
objsheet.range("a1:p" & CStr(3+m)).borders(4).weight=2
''保存文件
filename= "c:\" & mydy & " 报表 " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " 生成.xlsx"
xlapp.Activeworkbook.saveas (filename)
xlapp.workbooks.close
xlapp.quit
Msgbox "成功导出到C:\"
Else
Msgbox "用户归档没有记录"
End If
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!