目的实现指定单页表格另保存。问题是保存时会出现两次另保存的窗口(仅第2次保存时才有效),请问如何解决,附代码如下
Private Sub CommandButton4_Click()
Sheets("订单").Select
Sheets("订单").Copy
FileName = Application.GetSaveAsFilename _
(InitialFileName:="C:\Users\Administrator\Desktop\zuozuo27\00\04订单" & nm, _
fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")
If FileName <> "False" Then
End If
ActiveWindow.Close
End Sub
Private Sub CommandButton4_Click()
Sheets("订单").Select
Sheets("订单").Copy
FileName = Application.GetSaveAsFilename _
(InitialFileName:="C:\Users\Administrator\Desktop\zuozuo27\00\04订单" & nm, _
fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")
If FileName <> "False" Then
End If
ActiveWindow.Close
End Sub