How to loop through files in a Folder
April 21st, 2007Here's a simple routine to loop through all the files in a particular folder. It places all file names in a collection object. You can then do whatever you want with the collection. This particular example lists the file names in column A of the active sheet.
Dim strFile As String
Dim strPath As String
Dim colFiles As New Collection
Dim i As Integer
strPath = "D:\TEMP\"
strFile = Dir(strPath)
While strFile <> ""
colFiles.Add strFile
strFile = Dir
Wend
'List filenames in Column A of the active sheet
If colFiles.Count> 0 Then
For i = 1 To colFiles.Count
ActiveSheet.Cells(i, 1).Value = colFiles(i)
Next i
End If
End Sub
How to Open Excel Files in a New Application Instance
April 12th, 2007UPDATE: The instructions below work if you are using Windows XP. If you are using Windows 7 or Vista, you can follow the instructions here.
By default, when you try to open an Excel file by double-clicking it in Windows Explorer, it will open in an already existing instance of Excel. But sometimes, you want it to open in a new instance and even make it the default behavior.
The following steps will allow you to do that.
Continue reading How to Open Excel Files in a New Application Instance...
Posted in Excel, How To | 41 CommentsHow to Autofit Column Widths with VBA
April 6th, 2007Somebody asked me for VBA code that will automatically adjust column widths to fit the cell contents. It's actually very simple and all you need is one function call. You simply need to call the AutoFit method.
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
If you wanted to autofit the row heights, you'll need something like this
ActiveSheet.UsedRange.Rows.AutoFit
End Sub
Just note that for autofit of rows to work, you'll need to have the "Wrap Text" setting turned on. To do that, you need to select the range you want to autofit and from the main menu, go to Format->Cells. Then in the Alignment tab, tick the checkbox for "Wrap Text".
Posted in Excel, How To, VBA | No Comments« Previous Page — Next Page »
(C) by Virgilio Adriano. All rights reserved. Powered by WordPress.
Entries and comments feeds.
It took 0.274 seconds to load this page.