Изучаю VBA по Уокенбаху Эксель 2010 профессиональное программирование на ВБА по рекомендации преподавателя с Курсов Специлаист из Бауманки... К сожалению, в этой книжке большинство примеров даны просто как данность без подробного объяснения как и для чего работает каждая строка кода...
Сейчас ломаю голову над примером Пакетная обработка файлов:
Option Explicit
Sub BatchProcess() Dim FileSpec AsString Dim i AsInteger Dim FileName AsString Dim FileList() AsString Dim FoundFiles AsInteger
' Указание пути и файла 10 FileSpec = ThisWorkbook.Path & "\" & "text??.txt" 20 FileName = Dir(FileSpec)
' Был ли найден файл? 30If FileName <> ""Then 40 FoundFiles = 1 50ReDim Preserve FileList(1To FoundFiles) 60 FileList(FoundFiles) = FileName 70Else 80 MsgBox "Не найдены файлы, которые соответствуют " & FileSpec 90ExitSub 100EndIf
Помогите пожалуйста разобраться. 1.При выполнении код выдает ошибку , что не найден файл Text01.txt хотя он (и другие два файла Text02 и Text03)лежит в том же каталоге, что и рабочая книга... 2.Почему, когда в строке 40 написано
40 FoundFiles = 1
в строке 50 переменная FoundFiles при пошаговом Дебаге показывает значение =3
50 ReDim Preserve FileList(1To FoundFiles)
Архив в файлом с макросом и текстовыми файлами во вложении.
Изучаю VBA по Уокенбаху Эксель 2010 профессиональное программирование на ВБА по рекомендации преподавателя с Курсов Специлаист из Бауманки... К сожалению, в этой книжке большинство примеров даны просто как данность без подробного объяснения как и для чего работает каждая строка кода...
Сейчас ломаю голову над примером Пакетная обработка файлов:
Option Explicit
Sub BatchProcess() Dim FileSpec AsString Dim i AsInteger Dim FileName AsString Dim FileList() AsString Dim FoundFiles AsInteger
' Указание пути и файла 10 FileSpec = ThisWorkbook.Path & "\" & "text??.txt" 20 FileName = Dir(FileSpec)
' Был ли найден файл? 30If FileName <> ""Then 40 FoundFiles = 1 50ReDim Preserve FileList(1To FoundFiles) 60 FileList(FoundFiles) = FileName 70Else 80 MsgBox "Не найдены файлы, которые соответствуют " & FileSpec 90ExitSub 100EndIf
Помогите пожалуйста разобраться. 1.При выполнении код выдает ошибку , что не найден файл Text01.txt хотя он (и другие два файла Text02 и Text03)лежит в том же каталоге, что и рабочая книга... 2.Почему, когда в строке 40 написано
40 FoundFiles = 1
в строке 50 переменная FoundFiles при пошаговом Дебаге показывает значение =3
50 ReDim Preserve FileList(1To FoundFiles)
Архив в файлом с макросом и текстовыми файлами во вложении.t330
При выполнении код выдает ошибку , что не найден файл Text01.txt хотя он (и другие два файла Text02 и Text03)лежит в том же каталоге, что и рабочая книга...
но открыть вы пытаетесь его из текущей папки, а не из паки ThisWorkbook.Path или менять в коде
При выполнении код выдает ошибку , что не найден файл Text01.txt хотя он (и другие два файла Text02 и Text03)лежит в том же каталоге, что и рабочая книга...
но открыть вы пытаетесь его из текущей папки, а не из паки ThisWorkbook.Path или менять в коде
boa, не совсем так. Это папка по молчанию, но она может быть изменена во время работы при открытии файла например, но направление верное. t330, ? curdir - покажет текущую.
boa, не совсем так. Это папка по молчанию, но она может быть изменена во время работы при открытии файла например, но направление верное. t330, ? curdir - покажет текущую.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Вторник, 12.02.2019, 19:39