VBS——EXCEL.docVIP

VBS——EXCEL Dim n,m ,x,y Dim sCon, sSql,cstr1,cstr2 Dim conn, oRs, oCom Dim oItem Dim objExcel,newBook ScreenItems(MZ_Table).Filter=P_Pattch=Trim(ScreenItems(PattchList).text) sCon = Server= HMIRuntime.Tags(@ServerName).Read \WINCC;Provider=SQLOLEDB;DataBase= sCon =sCon HMIRuntime.Tags(@DatasourceNameRT).Read ;Integrated Security=SSPI Set conn = CreateObject(ADODB.Connection) conn.ConnectionString = sCon conn.Open Set oRs = CreateObject(ADODB.Recordset) Set oCom = CreateObject(ADODB.Command) Set oCom.ActiveConnection = conn Set objExcel = CreateObject(Excel.Application) objExcel.Visible =True Set newBook = objExcel.Workbooks.Add With newBook.Worksheets(1) .Activate .PageSetup.LeftHeaderPicture.Filename=HMIRuntime.ActiveProject.Path + \GraCS\1.jpg .PageSetup.LeftHeader=Space(5)G .PageSetup.LeftHeader=.PageSetup.LeftHeaderChr(13)Space(4)9成都硅宝科技股份有限公司 .PageSetup.LeftHeader=.PageSetup.LeftHeaderChr(13)Space(5)Chengdu Guibao Science And Technology Co., Ltd .PageSetup.LeftHeader=.PageSetup.LeftHeaderChr(13)Space(5)Tel: 028 Fax: 028 .PageSetup.LeftHeadEr=.PageSetup.LeftHeadErChr(13)Space(5)地址:中国四川成都高新区新园大道 16号 .PageSetup.LeftHeader=.PageSetup.LeftHeaderChr(13)Space(5)Add: No.16, Xinyuan Avenue, Hi-tech Zone, Chengdu, 610041, China .PageSetup.TopMargin = 5/0.035 .PageSetup.CenterFooterPicture.Filename=HMIRuntime.ActiveProject.Path + \GraCS\2.jpg .PageSetup.CenterFooter=第p页Chr(13)G .Columns(A:M).columnwidth=5 .Columns(A:M).WrapText = True .Rows(B5:J10).RowHeight = 30 .Range(A3:J100).NumberFormat = 0 .Range(B1:M1).merge() .Range(B1:M1).value= 文件等级：保密！ .Range(A5:M10).merge() .Range(A5:M10).value= 批次报表 .Range(A3:J7).HorizontalAlignment=3 .Range(A5:A10).Font.Bold = True .Range(A3:J7).Font.ColorIndex = 3 .Range(A5:A10).Font.Size=30 .Range(A5:A11).HorizontalAlignment = 3 .Range(A7:J7 ).Borders(4).Weight = 2 .Ra