03 2021 档案
摘要：--申明一个游标DECLARE MyCursor CURSOR FOR SELECT TOP 5 FBookName,FBookCoding FROM TBookInfo --打开一个游标 OPEN MyCursor --循环一个游标DECLARE @BookName nvarchar(2000),
阅读全文
摘要：加减日期 dateadd(Month,+1,getdate()) 月份加1dateadd(day,+1,getdate()) 天数加1dateadd(year,+1,getdate()) 年份加1 两个时间点的日期数 DATEDIFF(day, T.Adddate,B.Adddate)DATEDIF
阅读全文
摘要：Sub sheet转独立文件()Dim sht As WorksheetApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path &"\"For Each sht In Sheetssht.CopyActiveWorkbook.SaveA
阅读全文
摘要：Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application.InputBox(pro
阅读全文
摘要：Sub PicturesInsert()Attribute PicturesInsert.VB_ProcData.VB_Invoke_Func = "f \n14" Dim i, arr, str, typ, shp On Error Resume Next '忽略运行中可能出现的错误 Applic
阅读全文
摘要：Private Sub 导出图片_Click() Application.ScreenUpdating = False On Error Resume Next MkDir ThisWorkbook.Path & "\图片" ActiveSheet.Shapes For Each PIC In Sh
阅读全文
