Код Excel VBA для выполнения при загрузке рабочей таблицы

Question

Я не являюсь экспертом по этим вопросам, но у меня есть лист Excel, который я хочу автоматически генерировать и отправлять по электронной почте ежедневно. Теперь значения в Excel обновляются из БД, поэтому об этом заботятся. У меня есть рабочий лист на моем рабочем столе. Я думал о том, чтобы использовать планировщик заданий в Windows Vista, но не уверен, что если это будет правильно.

Мне нужен лист для открытия ... обновленный ... затем обновленная версия, отправленная по электронной почте xxxx @ xxx Любая идея или подсказки, как это сделать? код я отделался сеть и работает с отправкой электронной почты является:

Sub Mail_ActiveSheet() 
'Working in 97-2010 
Dim FileExtStr As String 
Dim FileFormatNum As Long 
Dim Sourcewb As Workbook 
Dim Destwb As Workbook 
Dim TempFilePath As String 
Dim TempFileName As String 
Dim I As Long 

With Application 
    .ScreenUpdating = False 
    .EnableEvents = False 
End With 

Set Sourcewb = ActiveWorkbook 

'Copy the sheet to a new workbook 
ActiveSheet.Copy 
Set Destwb = ActiveWorkbook 

'Determine the Excel version and file extension/format 
With Destwb 
    If Val(Application.Version) < 12 Then 
     'You use Excel 97-2003 
     FileExtStr = ".xls": FileFormatNum = -4143 
    Else 
     'You use Excel 2007-2010, we exit the sub when your answer is 
     'NO in the security dialog that you only see when you copy 
     'an sheet from a xlsm file with macro's disabled. 
     If Sourcewb.Name = .Name Then 
      With Application 
       .ScreenUpdating = True 
       .EnableEvents = True 
      End With 
      MsgBox "Your answer is NO in the security dialog" 
      Exit Sub 
     Else 
      Select Case Sourcewb.FileFormat 
      Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 
      Case 52: 
       If .HasVBProject Then 
        FileExtStr = ".xlsm": FileFormatNum = 52 
       Else 
        FileExtStr = ".xlsx": FileFormatNum = 51 
       End If 
      Case 56: FileExtStr = ".xls": FileFormatNum = 56 
      Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 
      End Select 
     End If 
    End If 
End With 

' 'Change all cells in the worksheet to values if you want 
' With Destwb.Sheets(1).UsedRange 
'  .Cells.Copy 
'  .Cells.PasteSpecial xlPasteValues 
'  .Cells(1).Select 
' End With 
' Application.CutCopyMode = False 

'Save the new workbook/Mail it/Delete it 
TempFilePath = Environ$("temp") & "\" 
TempFileName = "Part of " & Sourcewb.Name & " " _ 
      & Format(Now, "dd-mmm-yy h-mm-ss") 

With Destwb 
    .SaveAs TempFilePath & TempFileName & FileExtStr, _ 
      FileFormat:=FileFormatNum 
    On Error Resume Next 
    For I = 1 To 3 
     .SendMail "dsdsdsd@hotmail.com", _ 
        "dsds,dsd, dsdsdsds report" 
     If Err.Number = 0 Then Exit For 
    Next I 
    On Error GoTo 0 
    .Close SaveChanges:=False 
End With 

'Delete the file you have send 
Kill TempFilePath & TempFileName & FileExtStr 

With Application 
    .ScreenUpdating = True 
    .EnableEvents = True 
End With 
End Sub 

Answer 1

1. Сохранить следующий код с помощью текстового редактора, такого как NotePad как vbs, что-то вроде «myscript.vbs». Примечание это не VBA
2. Используйте инструкции из How to use the Windows Task Scheduler запланировать VBS
3. Если ваша электронная почта доставляется через Outlook использование clickyes обойти предупреждение Outlook. (Если вы подтвердить это, я хотел бы добавить дополнительную автоматизацию кода чтобы заставить отправить/Получать

Пожалуйста, измените путь на рабочий стол файл здесь
strWB = "C:\temp\test.xls"

Некоторые из кода стоять d избыточно, то есть сохранение и уничтожение файла не имеет значения, поскольку SendMail работает напрямую (тогда как для Outlook потребуется добавить сохраненное вложение). Версия файла не отображалось, чтобы добавить значение

Dim objExcel 
    Dim objOutlook 
    Dim objWB 
    Dim objws 
    Dim strWB 
    Dim strWB2 
    'Change file path to be emailed 
    strWB = "C:\temp\test.xls" 
    Set objExcel = CreateObject("Excel.Application") 
    objExcel.DisplayAlerts = False 
    Set objWB = objExcel.Workbooks.Open(strWB) 
    'Change sheet index as needed 
    Set objws = objWB.Sheets(1) 
    objws.Copy 
    With objExcel.ActiveWorkbook 
     .SendMail "brt@notmyemail.net.au", "test" 
     .Close False 
    End With 
    objWB.Close False 
    With objExcel 
     .DisplayAlerts = True 
     .Quit 
    End With