指导一下我的程序哪里出了问题？

microyip

1. Sub 工资条图片生成()
   
2.     Dim oPic As Object, oShape As Object
   
3.     Dim vData As Variant, nRow As Long, vFill As Variant
   
4.     Dim wActSH As Worksheet, wSH As Worksheet
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     With Sheet1
   
8.         On Error Resume Next
   
9.         Set wSH = Sheets("工资表模版")
   
10.         If Err.Number <> 0 Then
    
11.             Set wSH = Sheets.Add(after:=Sheets(Sheets.Count))
    
12.             wSH.Name = "工资表模版"
    
13.         End If
    
14.         On Error GoTo 0
    
15.         With wSH
    
16.             .Activate
    
17.             For Each oShape In .Shapes
    
18.                 oShape.Delete
    
19.             Next
    
20.             .Cells.Delete
    
21.         End With
    
22.         
    
23.         vData = .UsedRange.Resize(, 27).Value
    
24.         .[A1:AA3].Copy
    
25.         With wSH
    
26.             .[A1].PasteSpecial , Transpose:=True
    
27.             .[A1:B1].EntireColumn.AutoFit
    
28.             .[C1].EntireColumn.ColumnWidth = 9.25
    
29.             With .[A1:C27]
    
30.                 .VerticalAlignment = xlVAlignCenter
    
31.                 .HorizontalAlignment = xlHAlignCenter
    
32.                 .Copy
    
33.             End With
    
34.             .[E1].Activate
    
35.             Set oShape = .Pictures.Paste(Link:=True)
    
36.             .[J1].Activate
    
37.             For nRow = 2 To UBound(vData)
    
38.                 If vData(nRow, 1) <> "" Then
    
39.                     .[C1].Resize(UBound(vData, 2)) = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Index(vData, nRow))
    
40.                     oShape.Copy
    
41.                     .PasteSpecial Format:="图片(增强型图元文件)", Link:=False, DisplayAsIcon:=False
    
42.                     For Each oPic In .Shapes
    
43.                         If oPic.Name <> oShape.Name Then Exit For
    
44.                     Next
    
45.                     With .ChartObjects.Add(0, 0, oPic.Width, oPic.Height).Chart
    
46.                         .Paste
    
47.                         .Export ThisWorkbook.Path & "" & vData(nRow, 1) & "(" & vData(1, 2) & ").jpg"
    
48.                         .Parent.Delete
    
49.                     End With
    
50.                     oPic.Delete
    
51.                 End If
    
52.             Next
    
53.             oShape.Delete
    
54.         End With
    
55.         .Activate
    
56.     End With
    
57.     Application.ScreenUpdating = True
    
58. End Sub

复制代码

microyip

附上附件以供参考

lvanswer

microyip 发表于 2022-4-2 22:01
附上附件以供参考

谢谢老师，我学习下。

lvanswer

microyip 发表于 2022-4-2 22:01
附上附件以供参考

老师，您好，你这个程序，用office运行是没问题的，但是用WPS运行到这里的时候出现了运行错误，请问这个问题怎么解决？