Comments on: Opening the Newest File in a Folder with VBA http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/ Daily posts of Excel tips…and other stuff Thu, 09 Feb 2012 23:42:03 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Matt http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39226 Matt Tue, 05 May 2009 00:49:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39226 <p>A possible alternative approach provided "I almost never want the CSV to remain on the disk" and the exported data is reasonably similar in format:<br> Export to the same file name each time and set up a workbook with a query to the csv file as an external data source. Export the file, refresh the query and manipulate as required. If sets of similar data are being exported then pivot tables or other analysis tools can be left setup in the workbook and simply refreshed with the new data.</p> A possible alternative approach provided “I almost never want the CSV to remain on the disk” and the exported data is reasonably similar in format:
Export to the same file name each time and set up a workbook with a query to the csv file as an external data source. Export the file, refresh the query and manipulate as required. If sets of similar data are being exported then pivot tables or other analysis tools can be left setup in the workbook and simply refreshed with the new data.

]]> By: fzz http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39207 fzz Sun, 03 May 2009 18:14:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39207 <p>An easier way? How about running a console command?</p> <p>for /F %%a in ('dir /b/o-d "directorynamehere*.csv"') do (start %%a & exit)</p> <p>Use VBA's Shell function to run it.</p> <p>This is what command processors and shells were meant to do. Trying to do the same thing with any procedural language (no matter how much OO is piled onto it) requires lots more code.</p> <p>If all you have is a hammer, all problems look like nails.</p> An easier way? How about running a console command?

for /F %%a in (‘dir /b/o-d “directorynamehere*.csv”‘) do (start %%a & exit)

Use VBA’s Shell function to run it.

This is what command processors and shells were meant to do. Trying to do the same thing with any procedural language (no matter how much OO is piled onto it) requires lots more code.

If all you have is a hammer, all problems look like nails.

]]> By: Grigory http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39206 Grigory Sun, 03 May 2009 17:44:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39206 <p>Here are a couple of relevant code snippets:</p> <p><a href="http://www.j-walk.com/ss/excel/tips/tip97.htm" rel="nofollow">http://www.j-walk.com/ss/excel/tips/tip97.htm</a></p> Here are a couple of relevant code snippets:

http://www.j-walk.com/ss/excel/tips/tip97.htm

]]> By: Hans Schraven http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39205 Hans Schraven Sun, 03 May 2009 15:22:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39205 <p>Some improvement:</p> <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Sub</span> recentfile()<br>   c0 = Dir(<span class="st0">"E:OF*.csv"</span>)<br>   <span class="kw1">Do</span> <span class="kw1">Until</span> c0 = <span class="st0">""</span><br>     <span class="kw1">with</span> CreateObject(<span class="st0">"scripting.filesystemobject"</span>).Getfile(c0)<br>       <span class="kw1">If</span> .datecreated > c1 <span class="kw1">Then</span><br>         c1 = .datecreated<br>         c2 = c0<br>       <span class="kw1">End</span> <span class="kw1">If</span><br>     <span class="kw1">end</span> <span class="kw1">with</span><br>     c0 = Dir<br>   <span class="kw1">Loop</span><br>   Workbooks.Add c2<br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> Some improvement:

Sub recentfile()
  c0 = Dir(“E:OF*.csv”)
  Do Until c0 = “”
    with CreateObject(“scripting.filesystemobject”).Getfile(c0)
      If .datecreated &gt; c1 Then
        c1 = .datecreated
        c2 = c0
      End If
    end with
    c0 = Dir
  Loop
  Workbooks.Add c2
End Sub
]]> By: Hans Schraven http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39201 Hans Schraven Sat, 02 May 2009 15:46:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39201 <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Sub</span> recentfile()<br>   c0 = Dir(<span class="st0">"E:OF*.csv"</span>)<br>   <span class="kw1">Do</span> <span class="kw1">Until</span> c0 = <span class="st0">""</span><br>     <span class="kw1">If</span> CreateObject(<span class="st0">"scripting.filesystemobject"</span>).Getfile(c0).datecreated > c1 <span class="kw1">Then</span><br>       c1 = CreateObject(<span class="st0">"scripting.filesystemobject"</span>).Getfile(c0).datecreated<br>       c2 = c0<br>     <span class="kw1">End</span> <span class="kw1">If</span><br>     c0 = Dir<br>   <span class="kw1">Loop</span><br>   Workbooks.Add c2<br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div>
Sub recentfile()
  c0 = Dir(“E:OF*.csv”)
  Do Until c0 = “”
    If CreateObject(“scripting.filesystemobject”).Getfile(c0).datecreated &gt; c1 Then
      c1 = CreateObject(“scripting.filesystemobject”).Getfile(c0).datecreated
      c2 = c0
    End If
    c0 = Dir
  Loop
  Workbooks.Add c2
End Sub
]]> By: Why I’d like Python at work « Number Cruncher http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39200 Why I’d like Python at work « Number Cruncher Sat, 02 May 2009 15:33:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39200 <p>[...] Kusleika posted a VBA sub to open the newest file in a folder over at Daily Dose of Excel today, which made use of the Scripting library to iterate over .csv [...]</p> [...] Kusleika posted a VBA sub to open the newest file in a folder over at Daily Dose of Excel today, which made use of the Scripting library to iterate over .csv [...]

]]> By: geoff http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/#comment-39199 geoff Sat, 02 May 2009 10:52:00 +0000 http://www.dailydoseofexcel.com/?p=2407#comment-39199 <p>This is a very useful function. I think whatever you do to find the newest file you need to iterate over the .files collection to get the names and create dates, so you may not be able to avoid looping using vbscript.</p> This is a very useful function. I think whatever you do to find the newest file you need to iterate over the .files collection to get the names and create dates, so you may not be able to avoid looping using vbscript.

]]>