VPF::[Перенесено из VB6/MS Access]Run-time error 1004

xartx

Дата 16.4.2007, 06:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 24.1.2007

Репутация: нет
Всего: нет

Здравствуйте Уважаемые!! Пожалуста подскажите что не так!

Код


Sub prog()
    Application.WindowState = xlMaximized
    ChDir "c:\Prog\проект"
    Workbooks.OpenText Filename:="заявка.txt", Origin:=1251, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, TrailingMinusNumbers:=True
    Rows("1:1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
    Columns("A:A").EntireColumn.AutoFit

................
.......................
.......................

Говорит что не может найти "заявка.txt" , макросы безопасность низкая стоит!!!

Это сообщение отредактировал(а) Akina - 16.4.2007, 07:55

Akina

Дата 16.4.2007, 07:57 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

M
Akina

1) Размещайте темы в соответствующих разделах.
2) Используйте тег [ code ].

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

~FoX~

Дата 16.4.2007, 08:24 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

Ну может действительно не может найти?
Папробуй так....

Код


    Workbooks.OpenText Filename:="c:\Prog\проект\заявка.txt", Origin:=1251, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, TrailingMinusNumbers:=True

--------------------

…множественность никогда не следует полагать без необходимости…

xartx

Дата 16.4.2007, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 24.1.2007

Репутация: нет
Всего: нет

дело в том что когда в ручную так прописываеш работает! просто это программа скомпилирована на Дельфи исходника канечноже нету! ошибка появилась когда прогу перенесли на новый комп на старом усё работало! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »