任务场景:学生报名信息采集表中含有学生身份证号,照片文件夹中是以学生身份证号命名的照片,需要检测那些学生照片没有!vba代码如下:错误提示:-2147467259(80004005)自动化错误
Sub test2()
Dim i As Long, pah$, exl As Workbook, pak As String, myfilename As String
Dim f As Workbook
Cells(1, 1) = “序号”
Cells(1, 2) = “身份证号”
Cells(1, 3) = “姓名”
Cells(1, 4) = “学校”
Cells(1, 5) = “班级”
Cells(1, 6) = “检测结果”
Cells(1, 7) = “考点”
Application.FileDialog(msoFileDialogOpen).Show
pak = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
Application.FileDialog(msoFileDialogFolderPicker).Show
pah = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & “”
Set f = GetObject(pak)
For i = 2 To f.Sheets(“sheet1”).Range(“c65536”).End(xlUp).Row
Sheet1.Range(“A” & i).Value = i - 1
Sheet1.Range(“B” & i).Value = f.Sheets(“sheet1”).Range(“C” & i)
Sheet1.Range(“C” & i).Value = f.Sheets(“sheet1”).Range(“D” & i)
Sheet1.Range(“D” & i).Value = f.Sheets(“sheet1”).Range(“L” & i)
Sheet1.Range(“E” & i).Value = f.Sheets(“sheet1”).Range(“M” & i)
If Dir(pah & f.Sheets(“sheet1”).Range(“C” & i) & “.jpg”) = “” Then
Sheet1.Range(“F” & i).Value = “没有”
Else
Sheet1.Range(“F” & i).Value = “有”
End If
Cells(2, 7) = f.Sheets(“sheet1”).Cells(2, 1)
Next
End Sub
救助
最新推荐文章于 2024-08-21 19:54:00 发布