Всем привет,
есть у меня пару ворд файлов, длинных, с большой таблицей в примерно 3к строк (выгрузка). Эти таблицы нужно закинуть в эксель.
Написал код. Закидываю значения в массив, потом уже буду с этим массивом дальше работать. Однако обработка оставляет желать лучшего, около 5ти минут считывает данную таблицу. Код не большой, может быть кто то уже делал похожие вещи и знает хитрости, к примеру может быть скопировать таблицу как нибудь целиком, или что нибудь похожее.
Всем заранее спасибо!
есть у меня пару ворд файлов, длинных, с большой таблицей в примерно 3к строк (выгрузка). Эти таблицы нужно закинуть в эксель.
Написал код. Закидываю значения в массив, потом уже буду с этим массивом дальше работать. Однако обработка оставляет желать лучшего, около 5ти минут считывает данную таблицу. Код не большой, может быть кто то уже делал похожие вещи и знает хитрости, к примеру может быть скопировать таблицу как нибудь целиком, или что нибудь похожее.
Всем заранее спасибо!
Код |
---|
Sub SaveTableToArray() Dim tableArray() As Variant Dim wordApp As Word.Application Dim tbl As Word.Table Dim i As Long, j As Long Set wordApp = New Word.Application wordApp.Visible = False wordApp.Documents.Open "D:\Test\doks.doc" Set tbl = wordApp.ActiveDocument.Tables(2) ReDim tableArray(1 To tbl.Rows.Count, 1 To tbl.Columns.Count) For i = 1 To tbl.Rows.Count For j = 1 To tbl.Columns.Count tableArray(i, j) = tbl.Cell(i, j).Range.Text Next j Next i wordApp.Quit Set wordApp = Nothing End Sub |