Экспорт данных из word в excel - VB
Формулировка задачи:
Необходимо скопировать таблицу из word в excel. Cделала макрос в excel
Sub m_1()
Dim myArray() As String
Dim vСчётчик As Long
Set oWord = CreateObject("Word.Application")
Set oWordDocument = GetObject("C:\Общий медио.doc")
myArray = Split(Left(oWordDocument.Range, Len(oWordDocument.Range) - 1), Chr(11))
For vСчётчик = LBound(myArray) To UBound(myArray)
Cells(1, vСчётчик + 1).Value = myArray(vСчётчик)
Next
oWord.Quit
Set oWord = Nothing
Set oWordDocument = Nothing
End Sub
Копирует все в одну ячейку. Подскажите как сделать, чтобы как в документе word было?
Sub m_1()
Dim myArray() As String
Dim vСчётчик As Long
Set oWord = CreateObject("Word.Application")
Set oWordDocument = GetObject("C:\Общий медио.doc")
myArray = Split(Left(oWordDocument.Range, Len(oWordDocument.Range) - 1), Chr(11))
For vСчётчик = LBound(myArray) To UBound(myArray)
Cells(1, vСчётчик + 1).Value = myArray(vСчётчик)
Next
oWord.Quit
Set oWord = Nothing
Set oWordDocument = Nothing
End Sub
Копирует все в одну ячейку. Подскажите как сделать, чтобы как в документе word было?
Решение задачи: «Экспорт данных из word в excel»
textual
Листинг программы
<font color="blue">type</font> cDBFRec f0 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>1</b></font> <font color="#00AA00">' пометка удаления</font> f1 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>10</b></font> <font color="#00AA00">' первое поле</font> f2 <font color="blue">As</font> <font color="blue">Integer</font> <font color="#00AA00">' второе поле</font> f3 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>50</b></font> <font color="#00AA00">' третье поле</font> <font color="#00AA00">' ... и т.д.</font> <font color="blue">end</font> <font color="blue">type</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д