Excel 讀取 Word 表格問題

warhead

請問我有一個word表格需讀取到excel裡面，
表格如下：

下載 (13.55 KB)

2020-12-2 10:43

以下為程式碼：

1. With WDapp.Documents(file1).Tables(1)
   
2.     For r = 2 To .Rows.Count
   
3.         For c = 1 To .Columns.Count
   
4.             Cells(r, c) = .Cell(r, c)
   
5.         Next c
   
6.     Next r
   
7. End With

複製代碼

抓到標題 111 222 333 以後就會出問題，請問合併儲存格的問題要如何處理?

n7822123

回復 1# warhead


如果只要表格內的值，可以這樣寫

基本上資料都讀得出來，但是位置就.........

對於Word，我只能幫到這了

With WDapp.Documents(file1).Tables(1)
    xText = .Range.Text
    xText = Replace(xText, Chr(13) & Chr(7), ",")
    RowArr = Split(xText, ",,")
    For R = 0 To UBound(RowArr)
        ColArr = Split(RowArr(R), ",")
        For C = 0 To UBound(ColArr)
            Cells(R + 1, C + 1) = ColArr(C)
        Next C
    Next R
End With  

warhead

回復 2# n7822123


    感謝，程式可用，格子部分我在想辦法..

luhpro

回復 3# warhead
Word的表格順序是像底下這樣的 :

下載 (19.22 KB)

2020-12-4 00:08

從上到下,
從左到右,
以格子的左上角為基準點,
先到先編,
所以很難逐格取值到Excel.

另一個可能可行的方法就是直接 Copy 整個表格貼到Excel裡,
接著要怎麼調整就單純是Excel的事了.