第2个回答 2012-07-31
Private Sub CommandButton1_Click()
Select Case Range("J4")
Case "国家机关"
If Dir(ThisWorkbook.Path & "\..\tzbg\国家机关\" & Range("C4").Value & ".xlsm") = "" Then
ActiveWorkbook.SaveCopyAs (ThisWorkbook.Path & "\..\tzbg\国家机关\" & Range("C4").Value & ".xlsm")
Else
ActiveWorkbook.Save
End If
End Select
End Sub
(ThisWorkbook.Path & "\..\tzbg\国家机关\" & Range("C4").Value & ".xlsm") 文件已存在,以上代码怎么不执行if 条件语句?烦请各位前辈修改!谢谢!!!