VBA每天运行一次宏一次

Question

我需要一些代码来每天运行一次宏，无论打开文件的次数是多少次都无关紧要。

如果文件有一天没有打开，它不必运行宏，只需在打开时执行。

它必须有一个内部的”变量或类似的东西，我想，是保持信息的宏是否alredy运行不了这一天。

此外，使其更困难，我想，宏提前打开不同的工作簿中的每一天

任何想法

我是新手，所以请原谅我，如果是这样的话清晰感谢

编辑：。。我发现了一些代码here：

似乎这样做，但你必须创建一个额外的表，我想不这样做。

下面是代码：

Private Sub Workbook_Open() 
Dim rngFindTodaysDate As Range 
    With ThisWorkbook.Worksheets("Status") 

     On Error GoTo X 
     Set rngFindTodaysDate = .Range("A1").End(xlDown).Find(Date) 
     If rngFindTodaysDate Is Nothing Then 
      .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1) = Date 

      ''''' your Code Here 

     End If 
    End With 
    X: 
End Sub 

Answer 1

在您的单元格中使用（命名）范围在宏运行最后时间&日期是由宏本身保存工作簿：

Sheetx.Range("rLastRun").Value2 = Now() 

它添加到您的宏或至少后以下检查，结束您的宏检查，如果最后时间运行单元值是在今天之前。那么总的看起来像：

If Sheetx.Range("rLastRun").Value2 < Date Then 

    <your macro> 

    Sheetx.Range("rLastRun").Value2 = Now() 

End If 

---

对于打开不同的文件，你必须更加具体与设置到目前为止，我们不禁有信息，每次。询问以下事项：

1. 在文件属性中是否有任何逻辑？
2. 它是否每次都有相同的名称，除了时间戳（例如，Input20121128.xls和Input20121127。xls？
3. 文档名称是否在可能名称的有限池中？
4. 它总是在同一个文件夹中吗？
5. 它有特定的创作者，日期，时间，...？

随着信息提供文件的查找是：

Dim strInputfile As String 

<other code> 

strInputfile = "<standardfolderstring>" & Format(Date, "dd/mm/yyyy") & " Test.xlsx" 

Answer 2

您可以使用Windows任务计划程序来自动打开文件每日一次。有一个非常好的step-by-step tutorial here包含所需的VB脚本代码。

如果用户也可能手动打开文件，则需要一个状态变量来记录宏是否已经在当天运行。最好的办法可能是制作一张专用于录制这张专辑的专辑。也许叫它RunTimes。然后，你可以将下面的行添加到您的Workbook_Open事件：

If Date > Application.Max(Sheets("RunRecords").Range("A:A")) Then 
    Call YourMacroName 
    Sheets("RunRecords").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Date 
End If 

Answer 3

这里是逻辑，请调查一下。

存储值：例如0在工作表目标中的单元格中运行宏。然后，当触发宏时，将该值更改为：例如1.然后，无论工作表打开多少次并调用宏，单元格值为1，宏将退出并且不会完成整个过程。

Answer 4

个人而言，我更喜欢别人建议来解决这个想法......可能使用一个单细胞，充满了当前的日期和颜色日白来隐藏它...如果没有试试这个：

如果你不希望有一个工作表，您可以使用一个外部文本文件中，例如在同一目录。当XLS打开时，它将读取文本文件以查看当前日期，如果它与今天不匹配，则运行一次一天的代码并将文本文件更新为今天的日期，否则什么都不做。

Public txt_file_location As String 
Public txt_file_name As String 
Private Sub Workbook_Open() 

    txt_file_location = "C:\Documents and Settings\Chris\Desktop" 
    txt_file_name = "test.txt" 
    Dim dateToday As Date 
    Dim dateInFile As Date 
    dateToday = Date ' will be used for both comparison and for writing to txt file if need be 
    dateInFile = txtfile_read(txt_file_location, txt_file_name) ' On open - read the text file to check what the current date is. 

    If (dateToday <> dateInFile) Then 

     ' ok the date in the text file is different to today's date, so your script needs to be called here 

     Call do_some_work ' a function that runs once a day... 

     ' Now we need to update the textfile to todays date to prevent rerunning 
     Call save_to_text_file(txt_file_location, txt_file_name, dateToday) 
    Else 
     MsgBox ("The script has already ran today") 
    End If 

End Sub 
Sub do_some_work() 

    ' here could be one of the functions that needs to run once a day 
    MsgBox ("Some work was done!") 

End Sub 
Function txtfile_read(txt_file_dir, file_name) 
    Dim iFileNumber As Long 
    Dim strFilename As String 
    strFilename = txt_file_dir & "\" + file_name 
    iFileNumber = FreeFile() 
    Open strFilename For Input As #iFileNumber 
    Dim txt As Variant 
    Do While Not EOF(iFileNumber) 
     Line Input #iFileNumber, myLine 
     txtfile_read = myLine 
    Loop 
    Close #iFileNumber 
End Function 
Function save_to_text_file(txt_file_dir, file_name, content_to_be_written) 
    Dim iFileNumber As Long 
    Dim strData As String 
    Dim strFilename As String 
    strFilename = txt_file_dir & "\" + file_name 
    iFileNumber = FreeFile() 
    Open strFilename For Output As #iFileNumber 
    Print #iFileNumber, content_to_be_written 
    Close #iFileNumber 
End Function