標題: Excel 讀取 Word 表格問題 [打印本頁]

---

作者: warhead    時間: 2020-12-2 10:47     標題: Excel 讀取 Word 表格問題

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

以下為程式碼：

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    時間: 2020-12-3 00:54

回復 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    時間: 2020-12-3 10:07

回復 2# n7822123


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

---

作者: luhpro    時間: 2020-12-4 00:13

回復 3# warhead
Word的表格順序是像底下這樣的 :
[attach]32755[/attach]
從上到下,
從左到右,
以格子的左上角為基準點,
先到先編,
所以很難逐格取值到Excel.

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)