Quantcast
Viewing all articles
Browse latest Browse all 27072

Can someone please help me!

Hello everyone,

I hope someone can help me, so i want to open in excel a CSV (comma-delimited) file automatically convert text to columns now i have found VBA code that can do that you can see the code below"

Code:

Sub OpenCSV()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = True
    fd.Show
    For Each fileItem In fd.SelectedItems
        Workbooks.OpenText Filename:= _
            fileItem _
            , Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, TrailingMinusNumbers:=True
    Next
End Sub

But i also want to be able to choose the folder so for instance "C:\Users\name\Desktop\test map 1" and to be able to save it in a new excel file.
I hope someone can help me out with this :rolleyes:

Thanks! :)

Viewing all articles
Browse latest Browse all 27072

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>