помогите с ошибкой / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с ошибкой

8 сообщений из 33, страница 2 из 2

все

помогите с ошибкой

#37319334

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотища,

Код: plaintext

Set wb = Workbooks(Workbooks.Count)

ну что за извращение?

Код: plaintext

Set wb = Workbooks.OpenText(....

...

Рейтинг:

0 / 0

22.06.2011, 09:37

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320347

скукотища

Гость

Shocker.Pro,
меня с конструкцией

Код: plaintext

Set wb = Workbooks.OpenText(....

Excel 2k3 посылает в пеший эротический тур. Может слов волшебных не знаю...
Потому и извращаюсь.

...

Рейтинг:

0 / 0

22.06.2011, 16:16

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320517

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотища,

ну ты прям как студент...
что за ошибка-то?
у меня тоже 2к - все работало

...

Рейтинг:

0 / 0

22.06.2011, 17:23

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320542

скукотища

Гость

Shocker.Pro,
даже не рантайм :(

...

Рейтинг:

0 / 0

22.06.2011, 17:39

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320557

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: скукотища
> даже не рантайм :(

Афигеть! 8-)
Мой Excel 2k3 говорит:
Object BrowserSub OpenText(Filename As String, [Origin], [StartRow], [DataType], [TextQualifier As
XlTextQualifier = xlTextQualifierDoubleQuote], [ConsecutiveDelimiter], [Tab], [Semicolon], [Comma], [Space], [Other],
[OtherChar], [FieldInfo], [TextVisualLayout], [DecimalSeparator], [ThousandsSeparator], [TrailingMinusNumbers], [Local])
Member of Excel.Workbooks

Может у тебя Workbooks где-то перекрывается или птичка слетела с Microsoft Excel 11.0 Object Library в референсах?
Попробуй

Код: plaintext

Set wb = Application.Workbooks.OpenText(....

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

22.06.2011, 17:46

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320561

скукотища

Гость

Shocker.Pro,

из браузера объектофф:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Sub OpenText( 
    Filename As String, 
    [Origin], 
    [StartRow], 
    [DataType], 
    [TextQualifier As XlTextQualifier = xlTextQualifierDoubleQuote], 
    [ConsecutiveDelimiter], 
    [Tab], 
    [Semicolon], 
    [Comma], 
    [Space], 
    [Other], 
    [OtherChar], 
    [FieldInfo], 
    [TextVisualLayout], 
    [DecimalSeparator], 
    [ThousandsSeparator], 
    [TrailingMinusNumbers], 
    [Local])

    Member of Excel.Workbooks

И никаких половых контактов намёков на ссылку на добавленную книгу. Вот такие пироги.
Так что

Код: plaintext

Set wb = Workbooks(Workbooks.Count)

не такое уж извращение.

...

Рейтинг:

0 / 0

22.06.2011, 17:50

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320569

скукотища

Гость

Игорь Горбонос,
Ссылки на VBA for App, Excel 11 obj lab живые и здоровые.

Игорь Горбонос...
Попробуй

Set wb = Application.Workbooks.OpenText(....попробовал. Ошибка та же.
ЗЫ: пробовал на двух разных машинах.

ЗЗЫ: данную ситуацию абшыбочной не считаю. Это Шокер дразнится.

...

Рейтинг:

0 / 0

22.06.2011, 17:55

| Ответить | Цитировать | Написать

помогите с ошибкой

#37320628

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

скукотищаЗЗЫ: данную ситуацию абшыбочной не считаю. Это Шокер дразнится.хихи, вот я лоханулся.... насоветовал в предыдущем топике черти что

...

Рейтинг:

0 / 0

22.06.2011, 18:37

| Ответить | Цитировать | Написать

8 сообщений из 33, страница 2 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с ошибкой

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&startmsg=37319334&tid=2158602]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	116ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	398ms

total:	601ms