使用VBA脚本/计划任务制作每周文件夹

Question

I'm trying to make an automatic folder generation process per week. We have timesheets coming in and we have to put them into an organised folder structure (it's on a shared drive, so for example: Y:\\Timesheets\\2013-09-22" (for timesheets for the week ending the 22nd of September)). That folder will then have folders relating to the employee names.

We use an excel tick sheet which is up to date all of the time with the latest information to make sure that we have received the timesheets. I was thinking that I could make an automatic folder generation process per week, rather than copying and pasting every empty folder from next week to the week after (as it transfers a lot of old folders which are simply not used).

So far I can create folders with this:

Sub CreateDirs()

    createDirsFromRange "Z:\Timesheets", "2013-10-13", Range("B2:B182")

End Sub

My only questions are:

1. Can I make the date part of that code get the date from the PC (and therefore run it every Sunday) to make sure we have the correct title for each folder?

2. Could I run a batch file to open the Excel spreadsheet, run the VBA code and then close it again? If so, what would the coding for that be?

Answer 1

1. Use the Date() function (see this link for more options)

2. A solution could be :

In your batch, just run excel giving it your workbook filename as parameter :

"C:\Program Files\...\excel.exe" "C:\...\myworkbook.xls"

Then, you can use the Workbook.Open event and the Workbook.Close function so that your macro runs everytime the workbook is opened (so you just have to open it with your batch file).

Private Sub Workbook_Open() 
    ' Call your macro here
    ThisWorkbook.Close()
End Sub

But this means the macro will run everytime so you won't be able to open the workbook without having the macro run and the workbook automaticaly closed...

So you may consider using a specific command line argument to trigger the macro execution (see this link )

Answer 2

As far as 1) is concerned, change the date string to Date$ , which will give you the current date in an acceptable format (mm-dd-yyyy).

As far as 2) is concerned, instead of trying to automate that part of it, why not just run the code on Friday at the end of business or sometime on Friday while the file is open? You could use this code for your date (to show the date for Sunday instead of Friday): mid(date$,1,3) & mid(date$,4,2)+2 & mid(date$,6,5) .

Answer 3

I'm assuming you're in a Windows environment. If so, why not just use Windows Task Scheduler? It's built in, and you can tell it to kick off your Excel sheet (or a BAT file) every Sunday or whatever day of the week you want it to.

Here's a link to the Windows 7 version. And another for the Windows XP version.

Here's a link to a really good page on how to extract the current date using a BAT file . You can probably figure out how to edit it to suit your needs.