[Jeneva]

Добрый день.
Есть код VBA (вставка динамического блока), работает на трёх компах, а на четвертом он же выдаёт ошибку "run-time error '53': file not found". Ниже приведён отрывок кода с выделенной красным цветом строкой, которую vba подчёркивает как ошибку. Может кто знает, в чём причина не работы кода на одной из машин? (Я в VBA не силён).

Sub Bon()
Dim returnObj As AcadObject
Dim InPoint As Variant
Dim varAttributes As Variant
Dim blockObj As AcadBlockReference
Dim strAttributes As String
Dim Len1S As String
Dim Len2S As String

'On Error Resume Next
FullPathZ
Open PathZ + "Nadpisi.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
If inputdata <> "" Then
UserForm12.ComboBox1.AddItem inputdata
UserForm12.ComboBox2.AddItem inputdata
UserForm12.ComboBox3.AddItem inputdata
End If
Loop
Close #1
.....................

[maratovich]

Дык пишет же
file not found
файл не найден.
что такое PathZ ? И с какого перепуга там "+" ? вы текстовую строку суммировать собрались ? используйте "&"

[Кулик Алексей aka kpblc]

maratovich, насколько я помню, в VBA для строк вполне корректно срабатывает и +, и &.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc в VBA для строк вполне корректно срабатывает и +, и &.

да, без разницы.

Сообщение от Jeneva Open PathZ + "Nadpisi.txt" For Input As #1

Делаете еще одну переменную строковую, там собираете имя файла и либо просматриваете в отладчике пошагово, либо просто временно вставьте MsgBox. И смотрите результирующее имя файла. И есть ли он на компе вообще. И есть ли права на чтение хотя бы на эту папку.

p.s. Лучше не полагаться, что файл №1 свободный, а использовать:

Код:

[Выделить все]

Dim lNumFile As Integer
lNumFile = FreeFile()

и далее вместо #1 использовать #lNumFile

[baksconstructor]

Сообщение от Кулик Алексей aka kpblc насколько я помню, в VBA для строк вполне корректно срабатывает и +, и &.

Сообщение от Сергей812 да, без разницы.

Как в том анекдоте.... "Ну да конечно" !
А теперь смотрим и видим что первая часть объявлена как String, а вторая как Long, а между ними стоит"+". И чё мы получим ?

[Кулик Алексей aka kpblc]

Сообщение от baksconstructor А теперь смотрим и видим что первая часть объявлена как String, а вторая как Long

Наверное, с утра пораньше я слепой, но я этого не вижу.

[baksconstructor]

Сообщение от Кулик Алексей aka kpblc Наверное, с утра пораньше я слепой, но я этого не вижу.

Не конкретно в этом примере, а вообще, это должно быть правилом т.к. неизвестно в каком месте это будет применяться.

[Сергей812]

Сообщение от baksconstructor Не конкретно в этом примере, а вообще, это должно быть правилом т.к. неизвестно в каком месте это будет применяться.

Прежде чем "удивлять" окружающих своими знаниями - попробовали бы на практике) При попытке осуществления сложения строки и числа при первом же прогоне вылетит ошибка: несоответствие типов.

[baksconstructor]

Сообщение от Сергей812 При попытке осуществления сложения строки и числа при первом же прогоне вылетит ошибка: несоответствие типов.

Посмотрите первый пост автора, он не знает что такое "file not found", а несоответствие типов приведёт его в полный ступор.

[Сергей812]

Сообщение от baksconstructor Посмотрите первый пост автора, он не знает что такое "file not found", а несоответствие типов приведёт его в полный ступор.

Во первых, отучайтесь думать и решать за других людей) Во вторых, вы придумали какое свое понятие-правило, что пользоваться исключительно амперсандом для объединения строк, а это является лишь рекомендацией. И выдуманная ситуация про сложение строки и числа отловится при первом же запуске приложения. Т.е. даже новичку-программисту не дадут сделать такую ошибку.

[Jeneva]

Всем спасибо за советы!
Действительно был не правильно указан путь к PathZ, перепрописал верный путь и заработало.
Про несоответствие типов в ступор не привело, мат часть я читал) общие понятия есть, теперь практикой креплю, с этим возникают проблемы, особенно когда код написан человеком, который уже уволился)

[Сергей812]

Лучше такие вещи типа путей хранить во внешнем текстовом файле (для VBA) - переписывать код под конкретные машины - не самая хорошая идея, имхо)

[Boxa]

Конкатенация строк... меня больше оператор Open покорежил (пережиток ДОСовских времен), неужели нельзя нормально сделать?
С проверками и прочими плюшками.

Код:

[Выделить все]

Sub fileRead(ByVal FilePathAndName As String)
    Const OpenFileForReading = 1
    Const OpenFileForWriting = 2
    Const OpenFileForAppending = 8
    Const vbSplitAll = -1
     

    Dim FSO As FileSystemObject
    Dim TextStream As TextStream
    Dim S As String
    Dim FileLines() As String
    Dim FSOFile As File
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(FilePathAndName) Then
        Set FSOFile = FSO.GetFile(FilePathAndName)
        Set TextStream = FSOFile.OpenAsTextStream(OpenFileForReading)
        Do While Not TextStream.AtEndOfStream
            S = S & TextStream.ReadLine & vbNewLine
        Loop
        TextStream.Close
        FileLines = Split(S, vbNewLine, vbSplitAll, vbTextCompare)
    Else
        MsgBox ("Ошибка. Файл " & FilePathAndNam & "недоступен.")
    End If
End Sub

[Сергей812]

Ну Open - стандартная конструкция языка VBA) Больше тогда уж UserForm12 вызывает дисгармонию - т.е., если человек не удалял пользовательские формы из проекта VBA Акада, то как минимум - еще одиннадцать пользовательских форм с названиями по умолчанию и на каждой из них энное количество контролов с названиями по умолчанию может быть. Тут уже не до Windows Script Host... Но работает же)

[Jeneva]

Сообщение от Сергей812 Ну Open - стандартная конструкция языка VBA) Больше тогда уж UserForm12 вызывает дисгармонию - т.е., если человек не удалял пользовательские формы из проекта VBA Акада, то как минимум - еще одиннадцать пользовательских форм с названиями по умолчанию и на каждой из них энное количество контролов с названиями по умолчанию может быть. Тут уже не до Windows Script Host... Но работает же)

Там всего 16 форм и километровый код, под который создано 16 кнопок в AutoCad с вставкой динам блоков, изменение, копированием, сохранением, редактированием и тэ дэ.
Я вырвал кусок, в котором выдавало ошибку....

[Сергей812]

Сообщение от Jeneva Там всего 16 форм и километровый код, под который создано 16 кнопок в AutoCad с вставкой динам блоков, изменение, копированием, сохранением, редактированием и тэ дэ.

такие вещи проще переписать заново порою, чем поддерживать)

[Александр Ривилис]

Сообщение от Boxa меня больше оператор Open покорежил (пережиток ДОСовских времен), неужели нельзя нормально сделать?

Сообщение от Boxa Set FSO = CreateObject("Scripting.FileSystemObject")

Это для домашнего компьютера допустимо. А вот офисе сисадмин запросто может (и должен) запретить Scripting. Так что ...

[CalcProg]

http://www.firststeps.ru/vba/excel/r.php?16
- уроки для начинающих.

анализ ошибки: 1)удостоверится, что такой файл в указанном месте существует, 2) что файл не косячный, 3)правильность задания местоположения файла FullPathZ.