返回列表 上一主題 發帖

Excel 讀取 Word 表格問題

warhead

帖子
33 
主題
10 
精華
0 
積分
74 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2011-6-9 
最後登錄
2024-7-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-12-2 10:47 | 只看該作者

Excel 讀取 Word 表格問題

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


以下為程式碼：
  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 以後就會出問題，請問合併儲存格的問題要如何處理?
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2020-12-4 00:13 | 只看該作者
回復 3# warhead
Word的表格順序是像底下這樣的 :

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

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

TOP

warhead

帖子
33 
主題
10 
精華
0 
積分
74 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2011-6-9 
最後登錄
2024-7-8 
3#
發表於 2020-12-3 10:07 | 只看該作者
回復 2# n7822123


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

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 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  
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題