opening csv files in separate worksheets

[algae]

hello experts,

i have this macro to open a number of csv files. Problem is that it opens all the files in one worksheet. Could you add a few lines to the macro to open them in separate worksheets of the excel file. i would be grateful for the help.
Thanks

Sub BulkImport()'' BulkImport Macro
         Dim nxt_row As Long          'Change Path    Const strPath As String = "C:\My Documents\IEOD\"  '"ENTER FILE PATH HERE WITH A TRAILING \ e.g: C:\Test\"    Dim strExtension As String          'Stop Screen Flickering    Application.ScreenUpdating = False         ChDir strPath          'Change extension    strExtension = Dir(strPath & "*.txt")         Do While strExtension <> ""                  'Adds File Name as title on next row        Range("A65536").End(xlUp).Offset(1, 0).Value = strExtension                  'Sets Row Number for Data to Begin        nxt_row = Range("A65536").End(xlUp).Offset(1, 0).Row                  'Below is from a recorded macro importing a text file        With ActiveSheet.QueryTables.Add(Connection:= _            "TEXT;" & strPath & strExtension, Destination:=Range("$A$" & nxt_row))            .Name = strExtension            .FieldNames = True            .RowNumbers = False            .FillAdjacentFormulas = False            .PreserveFormatting = True            .RefreshOnFileOpen = False            .RefreshStyle = xlInsertDeleteCells            .SavePassword = False            .SaveData = True            .AdjustColumnWidth = True            .RefreshPeriod = 0            .TextFilePromptOnRefresh = False            .TextFilePlatform = 850            .TextFileStartRow = 1            .TextFileParseType = xlDelimited            .TextFileTextQualifier = xlTextQualifierDoubleQuote             'Delimiter Settings:            .TextFileConsecutiveDelimiter = True            .TextFileTabDelimiter = True            .TextFileSemicolonDelimiter = True            .TextFileCommaDelimiter = True            .TextFileSpaceDelimiter = True            .TextFileOtherDelimiter = "="                         .TextFileTrailingMinusNumbers = True            .Refresh BackgroundQuery:=False        End With                 strExtension = Dir    Loop         Application.ScreenUpdating = True     'End Sub

 

[Joe4]

Your code is pretty much unreadable. Can you try posting it again, this time just using the CODE tags (and not HTML CODE tags)?

 

[algae]

rightho Joe,
i'll try again

 

[algae]

hello,

i am trying to delete the first two rows (1 and 2) from all worksheets except from ws names "master".
the macro has a few bugs, request if you could de-lice it.

thanks

Sub DeleteRow()
'
' DeleteRow Macro
'
'
For Each ws In Worksheets

If ws <> "Master"


Then

.Range(Rows(1), Rows(2)).EntireRow.Delete



End If
Next ws


Application.DisplayAlerts = False


'
End Sub

 

[Joe4]

Try this:

Sub DeleteRow()
' DeleteRow Macro

For Each ws In Worksheets
    If ws.Name <> "Master" Then
        ws.Rows("1:2").Delete
    End If
Next ws

End Sub

 

[algae]

thank you Joe.
very helpful

regards