Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reformat & Combine Word Tables, Then Import Into Excel
I've got about 350 tables in Word. Each has 2 columns and 22 rows. I need
to import them into excel with 22 columns and 350 rows. The left column in each Word table contains what will become the column title in excel. The right column in each Word table contains what will become the data for each record. Any help would be appreciated. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reformat & Combine Word Tables, Then Import Into Excel
Sub GetTables() FName = Application _ .GetOpenFilename("Word Files (*.doc), *.doc") Set WordObject = GetObject(FName) First = True RowCount = 2 For Each Tble In WordObject.tables For i = 1 To 22 If First = True Then Data = Tble.Rows(i).Cells(1).Range 'Remove cell markers Cells(1, i) = Left(Data, Len(Data) - 2) End If Data = Tble.Rows(i).Cells(2).Range.Text 'Remove cell markers Cells(RowCount, i) = Left(Data, Len(Data) - 2) Next i RowCount = RowCount + 1 First = False Next Tble WordObject.Close savechanges = False End Sub "Beirdo" wrote: I've got about 350 tables in Word. Each has 2 columns and 22 rows. I need to import them into excel with 22 columns and 350 rows. The left column in each Word table contains what will become the column title in excel. The right column in each Word table contains what will become the data for each record. Any help would be appreciated. Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reformat & Combine Word Tables, Then Import Into Excel
Works like a charm. I thank you. My wife thanks you. Where can I learn
this stuff? Any recommendations for "Subject Matter Idiots"? "Beirdo" wrote: I've got about 350 tables in Word. Each has 2 columns and 22 rows. I need to import them into excel with 22 columns and 350 rows. The left column in each Word table contains what will become the column title in excel. The right column in each Word table contains what will become the data for each record. Any help would be appreciated. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reformat Excel for Access import | Excel Discussion (Misc queries) | |||
How to combine or import multiple Excel workbooks? | Excel Worksheet Functions | |||
Import cells from excel into word and create multiple word docs | Excel Programming | |||
Automating import of Word tables into Excel | Excel Discussion (Misc queries) | |||
Can you reformat order of items in Pivot Tables after refresh? | Excel Discussion (Misc queries) |