Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
modification of auto-multiple workbook macro, Ron DeBruin (Copy4)
Hi Ron,
After I made the modifications to your copy4 macro, I've found the following-- code first, then issue. ---------------------------------------------------- Dim myPath As String, FilesInPath As String Dim MyFiles() As String, Fnum As Long Dim myBook As Workbook myPath = "S:\Assignments - Final\Truckee River Claims\" FilesInPath = Dir(myPath & "DTR*.xl*") If FilesInPath = "" Then MsgBox "No Files Found" Exit Sub End If Fnum = 0 Do While FilesInPath < "" Fnum = Fnum + 1 ReDim Preserve MyFiles(1 To Fnum) MyFiles(Fnum) = FilesInPath FilesInPath = Dir() Loop If Fnum 0 Then For Fnum = LBound(MyFiles) To UBound(MyFiles) Set myBook = Nothing On Error Resume Next Set myBook = Workbooks.Open(myPath & MyFiles(Fnum)) On Error GoTo 0 Call ASaveNewFormat Next Fnum End If End Sub --------------------------------------------------- I have two primary issues. 1- This requires me to process all of the files in my directory, and I do not want to re-process them, once I've done so if I get caught up in an error. As such, I tried changing the starting number of Fnum. I think that this is where my error is stemming from, because it worked fine before I changed the start # for Fnum. 2- How can I keep it from starting out at 0, and actually start at the file number of my choosing, in the event I find that there is a file that the routine will not process? Thank you. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Ron DeBruin Macro - Moving Sheet Name from Last Column to Column A | Excel Worksheet Functions | |||
auto safe macro for workbook | Excel Programming | |||
auto run macro on workbook open | Excel Programming | |||
auto run macro at workbook open | Excel Programming | |||
VBA Excel 2000 - one shot multiple cells modification | Excel Programming |