Opening all CSVs in a folder, formatting and then printing.

We have program that exports a calculator into CSV format. Doing so makes all the columns the same size and data is cut off. I can't change how the program exports. All the files are exported into one folder each day and at the end of the day all of these are printed. I need a macro that can be run at the end of the day that will open each file in the folder and AutoFit and set it to 1 page height and width then print that file and then close. Saving doesn't do any good since the CSV just reverts back to the busted look. The file path will look something like this, **\\arr011\Image\Calc\Environment\2018\06\20** except the dates will obviously change. So opening a file window to the Environment level would be great. This way if they want to reprint any old folders they could.

I can record a macro for autofit and for 1 page, but it is extremely long for something so basic. I think just like this might work, but I don't know how to make that work with my other tasks. Also, there may be a lot of these in a folder. A manual process is extremely tedious.

I've attached a sample workbook. Not sure if you need it since the settings are applied to the entire workbook and content doesn't matter but if it helps great!

Please Login or Register  to view this content.

Summarized

1. Open file window,
2. Select folder
3. Open CSV file
4. Format
__4a. Autofit Columns
__4b. Width/Height 1 page
5. Print
6. Close
7. Repeat for all files in


Thanks!

Just activate the Macro Recorder and operate manually for at least the first text file then post here the generated code …

You mean like this?

Please Login or Register  to view this content.

So I can get it down to this

Please Login or Register  to view this content.

Then I need to print, close and repeat.

According to your material :

PHP Code: 

Sub Demo1()
         Dim P$, F$
             P = ThisWorkbook.Path
    With Application.FileDialog(msoFileDialogFolderPicker)
             .ButtonName = "Choose"
        .InitialFileName = Left(P, InStrRev(P, "\"))
            .InitialView = msoFileDialogViewList
                  .Title = Space$(20) & "Choose the CSV folder :"
         If .Show Then P = .SelectedItems(1) & "\" Else Exit Sub
    End With
             Application.ScreenUpdating = False
             F = Dir(P & "*.csv")
    Do Until F = ""
        With Workbooks.Open(P & F).Worksheets(1)
                 .UsedRange.Columns.AutoFit
            With .PageSetup
                 .Zoom = False
                 .FitToPagesTall = 1
                 .FitToPagesWide = 1
            End With
                 .PrintOut
                 .Parent.Close False
        End With
             F = Dir
    Loop
             Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Thanks. How do I make it open to the correct folder path already?

Use directly the path in Dir function instead of asking to choose one …