エクセルVBAについて質問です。

以下のコードを利用してみてください。

'Option Explicit '変数宣言強制をしない

Sub readCsv()
    Const MODE_READ = 1

    Set ShellApp = CreateObject("Shell.Application")
    Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1)
    targetFolder = oFolder.Items.Item.Path

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileList = fso.GetFolder(targetFolder).Files

    For Each file In fileList
        Worksheets.Add Worksheets(3 + fileCounter)
        ActiveSheet.Name = file.Name
        
        Set ts = file.OpenAsTextStream(MODE_READ)
        Set pasteCell = Range("a1")
        While Not ts.AtEndOfStream
            pasteCell.Value = ts.ReadLine
            Set pasteCell = pasteCell.Offset(1, 0)
        Wend
        ts.Close
        
        fileCounter = fileCounter + 1
    Next
End Sub

http://example.com/dummy

ようは、フォルダ内のCSVを３枚目以降に挿入するということだと思うので（違ったらすいません）

Sub Macro()
    Dim FoldPath As String
    Dim f
    Dim ch1 As Long
    Dim r As Long
    Dim textLine As String
    Dim csvLine() As String
    Dim i As Long
    Dim FSO
    
    'フォルダのパスを指定
    FoldPath = "C:\Documents and Settings\hogehoge\デスクトップ\test"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    i = 2
    For Each f In FSO.GetFolder(FoldPath).Files
        If StrConv(Right(f.Path, 4), vbLowerCase) = ".csv" Then
            ch1 = FreeFile
            Open f.Path For Input As #ch1
            r = 1
            
            Worksheets.Add after:=Worksheets(i)
            With ActiveSheet
                .Name = Left(f.Name, Len(f.Name) - 4)
                Do While Not EOF(ch1)
                    Line Input #ch1, textLine
                    csvLine() = Split(textLine, ",")
                    .Range(Cells(r, 1), Cells(r, UBound(csvLine()) + 1)) = csvLine()
                    r = r + 1
                Loop
            End With
            i = i + 1
    
            Close #ch1
        End If
    Next
End Sub

CSVを参照渡しで表示してるので、数字が文字列として扱われますが一度保存して開けば問題ないです。

http://q.hatena.ne.jp/