проблема с обращением к таблице word

[Invader]

заранее прошу прощения, за то что обратился на эту ветку форума,
прочитал статьи, но столкнулся с проблемой (связаной с открытием документа как мне кажется)
нужно получить в переменую значения ячеек столбца

так код работает

Option Explicit
Dim WordApp As Word.Application ' экземпляр приложения
Dim DocWord As Word.Document ' экземпляр документа
Dim station As String
Dim i As Long
Dim TableWord As Word.Table

Private Sub Form_Load()
Set WordApp = New Word.Application
'определяем видимость Word-a по True - видимый,
'по False - не видимый (работает только ядро)
WordApp.Visible = True
'// если нужно открыть имеющийся документ, то пишем такой код
Set DocWord = WordApp.Documents.Open("C:\1.doc")
'активируем его
DocWord.Activate
station = DocWord.Tables(1).Cell(1, 3).Range.Text
End Sub


For i = 2 To 10
station(i) = DocWord.Tables(1).Cell(i, 3).Range.Text
Next i а вот такой кусок не как не пашет что не так
пишет "запрашиваемый номер семейства не найден"

[alibek]

Invader, ты неправильно выбрал раздел.
Переношу.

tag_warning (1)

[RayShade]

А мне так кажется что он не пашет потому, что station(i) это обращение к массиву, а station у нас - просто string.

[Invader]

А мне так кажется что он не пашет потому, что station(i) это обращение к массиву, а station у нас - просто string.

да пробовал
и просто station
я заметил что код
DocWord.Tables(1).Cell(1, 3).Range.Text работает
а DocWord.Tables(1).Cell((переменная), 3).Range.Text не хочет
в цикле обязательно происходит ошибка уже когда i=2

[RayShade]

Первый параметр в cell(r,c) это строка, второй - колонка. Если в таблице меньше 2 строк, то при попытке вызвать cell(2,3) ничего хорошего не получится.

[Invader]

Первый параметр в cell(r,c) это строка, второй - колонка. Если в таблице меньше 2 строк, то при попытке вызвать cell(2,3) ничего хорошего не получится.

колонок у меня 8 и 58 строк, и нужны даные 3 колонки, 56 строк перенести в комбо

[RayShade]

Ну разбей выражение DocWord.Tables(1).Cell(1, 3).Range.Text на части и посмотри, в какой части вылетит ошибка:

Код: Выделить всё

dim doc as object
set doc = docword
dim table as object
set table=doc.tables(1)
dim cell as object
set cell=table.cell(i,3)
dim range as object
set range = cell.range
dim text as string
text = range.text


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

[Invader]

при подставке doc
doc = DocWord начинает ругаться, обжект вариабл нот сэт

Set DocWord = WordApp.Documents.Open("C:\1.doc") -может здесь нужно что то поправить

[RayShade]

Не, это я малость подзабыл синтаксис VBА - я поправил код малость Там set не хватало

[Invader]

спасибо уточнил
запрашиваемый номер семейства не существует, ошибка на строке Set cell = table.cell(i, 3)

[Invader]

только что делать

[alibek]

Сделай Tables(1).Select.
Может быть ты не из той таблицы данные выбираешь.

[RayShade]

Ну, раскинуть мозгом, почему так может быть. Скорее всего - нет такой строчки. Но на кофейной гуще не погадаешь. Выложил бы сюда doc файл чтоли.

[Invader]

Всё заработало само сабой

For i = 5 To 42
station = DocWord.Tables(1).cell(i, 3).range.text
Combo1.AddItem station
Next i

поменял только интервал для(i)
у меня таблица переходит на 43 на новый лист
и там выподает код

ВСЕМ СПАСИБО, ТЕМА ИСЧЕРПАНА