Public Sub ImportPicturesBaseOnExcel() Dim shp As Object Dim xlApp As Object Dim Wb As Object Dim Rng As Object Dim FolderPath As String Dim ImgFolder As String Dim ExcelPath As String Dim FilePath As String Const ExcelFile As String = "身份证号.xls"…