[已解决]求hwc2ycy老師指點

yl.fu

保存老師跳是否兼容對話框


Private Sub CommandButton2_Click()
Dim i As Integer
    Dim j As Integer
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    With Me.ListBox1

    For i = (.ListCount - 1) To 5 Step -1
                If .Selected(i) Then
                    Worksheets(.List(i)).Copy
      
        ActiveWorkbook.SaveAs Filename:=Replace(Range("i5").Value, ".prt", ".xls"), FileFormat:=xlExcel8
        ActiveWorkbook.Close True
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
ErrorHandler:
    Debug.Print Err.Number & Err.Description
    Resume Next
End If
Next
End With
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
    Dim sht
    For Each sht In ActiveWorkbook.Sheets
        Me.ListBox1.AddItem sht.Name
    Next
End Sub


這個就不會跳
Sub hwc2ycy( )
    Dim i As Byte
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 6 To Worksheets.Count
        Worksheets(i).Copy
      
        ActiveWorkbook.SaveAs Filename:=Replace(Range("i5").Value, ".prt", ".xls"), FileFormat:=xlExcel8
        ActiveWorkbook.Close True
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "OK"
ErrorHandler:
    Debug.Print Err.Number & Err.Description
    Resume Next
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-1 15:48

1. Private Sub CommandButton2_Click()
   
2.     Dim i As Integer
   
3.     Dim j As Integer
   
4.     On Error GoTo ErrorHandler
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7. 
   
8.     With Me.ListBox1
   
9.         For i = (.ListCount - 1) To 0 Step -1
   
10.             If .Selected(i) Then
    
11.                 Worksheets(.List(i)).Copy
    
12.                 ActiveWorkbook.SaveAs Filename:=Replace(Range("i5").Value, ".prt", ".xls"), FileFormat:=xlExcel8
    
13.                 ActiveWorkbook.Close True
    
14.             End If
    
15.         Next
    
16.     End With
    
17.     Application.ScreenUpdating = True
    
18.     Application.DisplayAlerts = True
    
19. 
    
20.     Exit Sub
    
21. ErrorHandler:
    
22.     Debug.Print Err.Number & Err.Description
    
23.     Err.Clear
    
24.     Resume Next
    
25. 
    
26. End Sub

复制代码

这两句放错位置了。
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

跳转到最佳答案楼层

hwc2ycy

什么问题

hwc2ycy

Application.DisplayAlerts = False
这个属性值为FALSE后，可以在宏运行时禁止显示提示和警告消息；
当出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。

hwc2ycy

另外Range("i5").Value跳的时候你要观察下，对应的工作表的I5单元格内的内容，万一没有.prt可替换，文佚名 估计又要出差子了。

hwc2ycy

你按F8单步调试看看

1. Private Sub CommandButton2_Click()
   
2.     Dim i As Integer
   
3.     Dim j As Integer
   
4.     Dim strTemp As String
   
5.     On Error GoTo ErrorHandler
   
6.     Application.ScreenUpdating = False
   
7.     Application.DisplayAlerts = False
   
8. 
   
9.     With Me.ListBox1
   
10. 
    
11.         For i = (.ListCount - 1) To 5 Step -1
    
12.             If .Selected(i) Then
    
13.                 Worksheets(.List(i)).Copy
    
14.                 strTemp = Replace(Range("i5").Value, ".prt", ".xls")
    
15.                 Debug.Print strTemp
    
16.                 ActiveWorkbook.SaveAs Filename:=strTemp, FileFormat:=xlExcel8
    
17.                 ActiveWorkbook.Close True
    
18.                 Application.ScreenUpdating = True
    
19.                 Application.DisplayAlerts = True
    
20.             End If
    
21.         Next
    
22.     End With
    
23.     Exit Sub
    
24. 
    
25. ErrorHandler:
    
26.     Debug.Print Err.Number & Err.Description
    
27. End Sub
    
28. 
    
29. Private Sub UserForm_Initialize()
    
30.     Dim sht
    
31.     For Each sht In ActiveWorkbook.Sheets
    
32.         Me.ListBox1.AddItem sht.Name
    
33.     Next
    
34. End Sub

复制代码

hwc2ycy

既然是针对工作表操作，下面的属性可以直接用WORKSHEETS。
另外，变量J是做什么用的，也没有看到使用了。

1. Private Sub CommandButton2_Click()
   
2.     Dim i As Integer
   
3.     Dim strTemp As String
   
4.     On Error GoTo ErrorHandler
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7. 
   
8.     With Me.ListBox1
   
9. 
   
10.         For i = (.ListCount - 1) To 5 Step -1
    
11.             If .Selected(i) Then
    
12.                 Worksheets(.List(i)).Copy
    
13.                 strTemp = Replace(Range("i5").Value, ".prt", ".xls")
    
14.                 Debug.Print strTemp
    
15.                 ActiveWorkbook.SaveAs Filename:=strTemp, FileFormat:=xlExcel8
    
16.                 ActiveWorkbook.Close True
    
17.                 Application.ScreenUpdating = True
    
18.                 Application.DisplayAlerts = True
    
19.             End If
    
20.         Next
    
21.     End With
    
22.     Exit Sub
    
23. 
    
24. ErrorHandler:
    
25.     Debug.Print Err.Number & Err.Description
    
26. End Sub
    
27. 
    
28. Private Sub UserForm_Initialize()
    
29.     Dim sht As Worksheet
    
30.     For Each sht In ActiveWorkbook.Worksheets
    
31.         Me.ListBox1.AddItem sht.Name
    
32.     Next
    
33. End Sub
    

复制代码

yl.fu

hwc2ycy 发表于 2013-6-1 12:27
既然是针对工作表操作，下面的属性可以直接用WORKSHEETS。
另外，变量J是做什么用的，也没有看到使用了。

工作表有宏就會，沒宏就不會跳，不知和這有沒關係
wrewer.zip (19.47 KB, 下载次数: 3)

2013-6-1 13:32 上传

点击文件名下载附件

yl.fu

這裡好像沒用啊

hwc2ycy

有宏的话，07开始，最后存成XLSM格式。
但是保存为XLS应该不会提示的吧。
我呆会试试。

yl.fu

hwc2ycy 发表于 2013-6-1 14:29
有宏的话，07开始，最后存成XLSM格式。
但是保存为XLS应该不会提示的吧。
我呆会试试。

會提示的，但您上次寫的那個保存全部就不會，有時增加的我想這樣單獨選取另存就會跳，還會打開每個工作表.