Cideason的专栏

Sub 循环改工作簿和工作表名()    Dim myPath$, myFile$, sht As Worksheet    Dim s As String, s1 As String    Dim a, b    myPath = ThisWorkbook.Path                   '给路径变量赋值    myFile = Dir(myPath & "\*

解决excel2010及之后版本Pictures.Insert链接问题方法有2