摘要：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 阅读全文