学习专栏

在excel中批量插入分页符Sub VBA_AD()Dim Rng As RangeFor Each Rng In Range("A2:A4445")       If Rng.Value = "标记" Then                ActiveSheet.HPageBreaks.Add Rng        End IfNextEnd Sub

<br />数据库备份<br /> <br />declare @filename nvarchar(100) <br />set @filename='E://DBBACKUP/YYGameUserDB_'+replace(replace(replace(replace(CONVERT(char(16), getdate(), 120 ),'-',''),'<br />',''),':',''),' ','') +'.bak'<br />-- print @filename <br />BACKUP DA

VBSCall x1=InputBox("新系统成绩的列数")Plugin lj=File.SelectFile()VBSBegin     Set xlApp = CreateObject("Excel.Application")    xlApp.visible = false    Set xlBook = xlApp.Workbooks.open(lj)    Set xlSheet =