Question

打开excel根据条件决定是否自动执行宏 求vba宏代码

打开excel文件，自动检查A列是否有数据，如果没有数据则自动执行宏；如果有则不执行。
如果没有执行宏或宏执行完毕，且当前时间是1点~15点则保存并关闭此excel文件；如果当前时间不是则只保存不关闭。

Answer 1

Private Sub Workbook_Open()
With Sheets(1)
If WorksheetFunction.CountA(.Range("a:a")) = 0 Then Call macro
ThisWorkbook.Save
If Hour(Time) >= 1 And Hour(Time) <= 15 Then ThisWorkbook.Close
End With
End Sub

Answer 2

Private Sub Workbook_Open()
With Sheets(1)
If WorksheetFunction.CountA(.Range("a:a")) > 0 Then Call macro
ThisWorkbook.Save
If Hour(Time) >= 1 And Hour(Time) <= 15 Then ThisWorkbook.Close
End With
End Sub
统计单元格要大于0才对！

追问

虽然经过测试，您的答案是不正确的，但也非常感谢您的热心，祝您好运！

Answer 3

Private Sub Workbook_Open()
ano = Sheet1.[a65535].End(xlUp).Row
If (ano = 1 And Len(Trim(Sheet1.[a1])) > 0) Or ano > 1 Then
Call 宏
End If

If Time > "01:00:00" And Time <= "15:00:00" Then
ThisWorkbook.Close True
Else
ThisWorkbook.Save
End If
End Sub

追问

虽然经过测试，您的答案是不正确的，但也非常感谢您的热心，祝您好运！