из Ворд в Ексель

[abracadabra]

Уважаемые Вба-знатоки,
Задача такая: В Вордовском документе есть данные в несколько строк -
от 3 до 10. Нужно скопировать их и поместить на лист в Ексель по порядку в разные ячейки. Скопировать нужно одноразово. А не по одной строчке. Помогите это сделать, буду очень признателен

[Tatyanka]

Простейший вариант:
в Ворде

Sub ...
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Copy
Shell "C:\Microsoft Office\Office11\Excel.exe"
End Sub

А вот с Экселем сложнее. Если есть возможность запихнуть Workbook_Open, то просто

ActiveSheet.Paste

Попробуй.
Это на случай, если в вордовском документе нет ничего, кроме нужных строк.

[abracadabra]

немножко не то. Ворд я написал для примера, а вообще мне нужно в одной программе перебрать данные - за 3 или больше дат и вставить в ексель. в ворд вставляется нормально, а в ексель всатвляется только одно значение.
Вот код
Sub TypeLaborwert(Laborwert As Laborwert)
With Application.Selection
.TypeText (Laborwert.Datum)
.TypeText (Chr(9) + Laborwert.Param + Chr(9))
If Laborwert.Wert <> undefLong Then
.TypeText (Format(Laborwert.Messwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
If Laborwert.Minwert <> undefLong Then
.TypeText (Format(Laborwert.Minwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
If Laborwert.Maxwert <> undefLong Then
.TypeText (Format(Laborwert.Maxwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
.TypeText (Laborwert.Gw)
.TypeParagraph
End With
End Sub

Здесь вставляются все данные, которые есть

А вот екселевский вариант - только одно:

Sub TypeLaborwert(Laborwert As Laborwert)

Worksheets(1).Range("E9").Value = Laborwert.Datum
Worksheets(1).Range("F9").Value = Laborwert.Param
If Laborwert.Wert <> undefLong Then
Worksheets(1).Range("G9").Value = (Format(Laborwert.Messwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Minwert <> undefLong Then
Worksheets(1).Range("H9").Value = (Format(Laborwert.Minwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Maxwert <> undefLong Then
Worksheets(1).Range("I9").Value = (Format(Laborwert.Maxwert) + " " + Laborwert.Einheit)
End If

Worksheets(1).Range("J9").Value = (Laborwert.Gw)


End Sub

И не знаю чё делать

[Igor_123]

Laborwert As Laborwert

Что за зверь такой???
Дай полный код(Телепат в отпуске, а я только на машинке вышивать умею )

[Ramzes]

Я говорил, говорю, и буду говорить о средствах записи макросов!!!

[Igor_123]

Я говорил, говорю, и буду говорить о средствах записи макросов!!!

Большая часть вопросов снимается после правильного использования рекодера.

Одно НО! Надо уметь им пользоватся и понимать полученный код

[abracadabra]

2 Igor_123
Laborwert As Laborwert это не самое важное. Это тип данных из другой большой программы. Суть не в том. Производится импорт данных из одной программы в ексель. Суть в том, что в ворд выполняется импорт всех данных, а в ексель - токо один (по заданным координатам ячеек). И я не знаю шо нужно написать в ексель шоб импортировать все данные. Вордовский код я привёл. И екселевский тоже.

[Ramzes]

Я говорил, говорю, и буду говорить о средствах записи макросов!!!

Большая часть вопросов снимается после правильного использования рекодера.

Одно НО! Надо уметь им пользоватся и понимать полученный код

А вот для этого "НО" и создали хорошие дядки этот форум

[Igor_123]

а в ексель - токо один (по заданным координатам ячеек). И я не знаю шо нужно написать в ексель шоб импортировать все данные. Вордовский код я привёл. И екселевский тоже.

Судя по коду, в зависимости от значений, должны заполнится ячейки:
E9, F9, G9, H9, I9, J9

и СКОЛЬКО-БЫ НЕ ВЫЗЫВАТЬ будут перезаписыватся только эти ячейки

Поэтому я не понял в чем тебя не устраивает работа программы?

[Igor_123]

2 abracadabra я бы давно подъехал к уважаемому Ramzes
с парой бутылок пива и порешал все проблемы

Ramzes с тебя пиво за клиента

[Ramzes]

Пиво так пиво, а передавать как ???

[Ramzes]

немножко не то. Ворд я написал для примера, а вообще мне нужно в одной программе перебрать данные - за 3 или больше дат и вставить в ексель. в ворд вставляется нормально, а в ексель всатвляется только одно значение.
Вот код
Sub TypeLaborwert(Laborwert As Laborwert)
With Application.Selection
.TypeText (Laborwert.Datum)
.TypeText (Chr(9) + Laborwert.Param + Chr(9))
If Laborwert.Wert <> undefLong Then
.TypeText (Format(Laborwert.Messwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
If Laborwert.Minwert <> undefLong Then
.TypeText (Format(Laborwert.Minwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
If Laborwert.Maxwert <> undefLong Then
.TypeText (Format(Laborwert.Maxwert) + " " + Laborwert.Einheit)
End If
.TypeText (Chr(9))
.TypeText (Laborwert.Gw)
.TypeParagraph
End With
End Sub

Здесь вставляются все данные, которые есть

А вот екселевский вариант - только одно:

Sub TypeLaborwert(Laborwert As Laborwert)

Worksheets(1).Range("E9").Value = Laborwert.Datum
Worksheets(1).Range("F9").Value = Laborwert.Param
If Laborwert.Wert <> undefLong Then
Worksheets(1).Range("G9").Value = (Format(Laborwert.Messwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Minwert <> undefLong Then
Worksheets(1).Range("H9").Value = (Format(Laborwert.Minwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Maxwert <> undefLong Then
Worksheets(1).Range("I9").Value = (Format(Laborwert.Maxwert) + " " + Laborwert.Einheit)
End If

Worksheets(1).Range("J9").Value = (Laborwert.Gw)


End Sub

И не знаю чё делать

Скинь документ из которого данніе должни копироваться в лист и лист скинь и я тебе стряпаю прогу, бедшь доволен, а так как ты со Львова, еще и пиво по возможности поставишь

а то я маленько не понял что именно требуеться

[abracadabra]

2 igor_123
В том то и дело, что записываются только определённые ячейки, а мне надо, шоб остальные под ними тоже каким-то образом заполнялись. Как в ворде, в ворде все подряд данные выводятся - один под одним.
2 Ramzes. Это не лист с данными, а данные из одной большой программы, из её базы данных. Нуно просто перебрать все даннst в программе, что я и делаю, но потом одним махом их вставить в ексель. А у меня вставляется только одно - последнее значение. В определённые ячейки. А в ворде всё нармально.
А насчёт пива - это запросто.

[Ramzes]

Написал лс для абракадабры

[Igor_123]

2 Ramzes пересечёмся в августе-сентябре на ЮБК вместе и попьём

2 abracadabra правильно в ворде ты дописываеш строки
.TypeParagraph - вставляеш новый абзац(строку)

а в екселе задано жестко в 9-ю строку писать
замени на

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


'Worksheets(1).Range("E9").Value вместо "E9"
Worksheets(1).Range(Cells(RowPos, 5),Cells(RowPos, 5)).Value
'Где 5 номер столбца
...
RowPos = RowPos + 1


RowPos объяви на уровне модуля и инициализируй
RowPos = 9 перед первым вызовом TypeLaborwert

[Ramzes]

Что такое ЮБК

[Igor_123]

Южный
Берег
Крыма

[Ramzes]

С чего ты взял что я там буду

[Igor_123]

Там постараюсь быть я.
А ты, тоже отдыхаешь, поэтому я сделал предположение, что возможно бываешь и на юбк.

[Ramzes]

Может и буду, а может и нет, а пива вместе попить можно не только на ЮБК

[Igor_123]

Согласен!
Будеш в наших краях заходи!
Прежде чем ехать напиши вышлю адрес!

[abracadabra]

2 igor_123
Спасибо. Но у меня шото ничё не получилось.
А как оно в коде:
Типа того?
Sub TypeLaborwert(Laborwert As Laborwert)
Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = Laborwert.Datum
Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = Laborwert.Param
If Laborwert.Wert <> undefLong Then
Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = (Format(Laborwert.Messwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Minwert <> undefLong Then
Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = (Format(Laborwert.Minwert) + " " + Laborwert.Einheit)
End If

If Laborwert.Maxwert <> undefLong Then
Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = (Format(Laborwert.Maxwert) + " " + Laborwert.Einheit)
End If

Worksheets(1).Range(Cells(RowPos, 5), Cells(RowPos, 5)).Value = (Laborwert.Gw)


End Sub

И перед вызовом я поставил ровпоз=9 и вабще ничё не вставило

[Igor_123]

Столбец Е это 5, F - 6 и т.д.
а перед End Sub вставить
RowPos = RowPos + 1

[abracadabra]

2 igor_123
Ты гений. Палучилось. С меня пиво...
Спасибо!

[Igor_123]

Ramzes'у поставишь!
А то я у него зароботок отбил

[Ramzes]

Пиво все таки тебе, я так и немогу понять что надобыло сделать

[abracadabra]

НЕ ну рамзесу по-любому!
И ты во львов заежжай

[Ramzes]

НЕ ну рамзесу по-любому!
И ты во львов заежжай

куда ?

[abracadabra]

это я имел в виду igorя_123 из Днепропетровска, а ты вроде и так во Львове.

[Igor_123]

2 abracadabra был когда-то( в ~1987 г ), красивый город!

2 Ramzes вывод в ворд похож на вывод в файл, дописываешь новые данные в конец, а бейсик сам следит за указателем куда писать.
В екселе нужно самому устанавливать куда писать.
У abracadabra не было перехода по строкам и все писалось в одне и те же ячейки