Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Макрос импорта из csv-файлов в Excel 2010 работает, а в Excel 20003-07 нет.

Автор alx83, 09.04.2012, 12:11

« назад - далее »

alx83

Пожалуйста, помогитк разобраться.
Макрос импорта из csv-файлов в Excel 2010 (win7) работает, а в Excel 20003-07 (winXP) не работает.

Сразу оговорюсь, что макрос изначально писан не мной, я его только под свои нужді редактировал, и изначально он только для импорта хлс файлов был. но номер с засменой расширения файла на csv на 2010 у меня проканал, а вот выяснилось, что на 2003-2007 работать не хочет. Путем тыка выяснилось, что проблема именно с чтением цсв формата.

За ранее спасибо.

Привожу код ниже

Private Sub Main()
    Dim path As String, file As String, arg As String, i As Long
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Óêàæèòå ðàáî÷óþ ïàïêó": .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else path = .SelectedItems(1) & "\"
    End With
    Range("A2:E8").ClearContents
    Range("A11:A20").Clear
Rows:      file = Dir(path & "*.csv"): i = 3
        Do While file <> ""
        Cells(i, 1) = path + file
        Cells(i, 2) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "Teil1_Pos.6'!" & Range("E16").Range("A1").Address(, , xlR1C1))
        i = i + 1: file = Dir
    Loop
    End Sub