返回列表下一主題上一主題發帖

Excel 讀取 Word 表格問題

warhead

中學生 Rank: 2

帖子: 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裡面，
表格如下：

以下為程式碼：

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

複製代碼

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

樓主熱帖

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

warhead