I have a whole lot (hundreds) of .txt files that contain fixed width data that I need to convert to Excel format. I can open each file and step through the Text Import Wizard, then save it as an .xls file, but I'm wondering if there's a way to convert all the files in a given folder from .txt to .xls without having to open each one while (here's the kicker) still placing the data between the spaces on the .txt file into individual cells and columns like the wizard does. Any ideas?
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
importing .txt files
- Thread starter dpmicka
- Start date
ktab
Well-known Member
- Joined
- Apr 21, 2005
- Messages
- 1,297
You will not be able to view the files. You just select the drive\path, with this function.
As Richard suggested, try to give the path manually in the code and skip folder pick.
delete:
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = 0 Then Exit Sub
myDir = .SelectedItems(1)
End With
make:
'myDir = GetFolder() 'here you set the directory that text files are placed
like: myDir="c:\folder\" or what ever path you use
Test it and post back
As Richard suggested, try to give the path manually in the code and skip folder pick.
delete:
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = 0 Then Exit Sub
myDir = .SelectedItems(1)
End With
make:
'myDir = GetFolder() 'here you set the directory that text files are placed
like: myDir="c:\folder\" or what ever path you use
Test it and post back
Upvote
0
Excel Facts
Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
Similar threads
- Question
