返回列表 上一主題 發帖

[發問] WORD檔資料位移無法分開讀取

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-6-22 22:39 | 只看該作者

[發問] WORD檔資料位移無法分開讀取

各位大大好：

   小弟想利用下列語法取出指定WORD檔
其檔案格式為RTF。但發現該檔案資料取
出之後其位置已位移，因此無法像TXT檔
可計算第幾位元數。
   小弟開啟WORD也發現它有使用到定位點
，從其標題有五個部分也分別使用定位點。
但只要讀取該資料時，又會出現整列資料
併在一起。無法像它使用的定位點可分開讀取。
請問如何可算出位元數並取出該檔案
資料轉入至EXCEL表內呢？

語法如下：
Sub test()
   
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim tString As String, tRange As Word.Range
    Dim p As Long
    Dim mFile$
   
    Application.ScreenUpdating = False
   
    mFile = "D:\temp\r75test.rtf"
   
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open(mFile, ReadOnly:=True)
  
    With wrdDoc
        For p = 1 To .Paragraphs.Count
            Set tRange = .Range(Start:=.Paragraphs(p).Range.Start, _
                End:=.Paragraphs(p).Range.End)
            tString = tRange.Text
            Debug.Print tString    '讀取之後其定位點的位置己不存在了
           
        Next p
        .Close ' close the document
    End With
    wrdApp.Quit ' close the Word application
    Set wrdDoc = Nothing
    Set wrdApp = Nothing     
   
End Sub
謝謝各位大大
R75TEST.rar (3.69 KB)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2012-6-26 07:56 | 只看該作者
回復 8# dechiuan999
當我可以幫你解題時, 你感受那種喜悅的感覺,我也是感同身受的

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
8#
發表於 2012-6-26 07:01 | 只看該作者
本帖最後由 dechiuan999 於 2012-6-26 07:05 編輯

回復 6# GBKEE


版主大大您好：

  小弟已理解版主提供
的語法了。當我理解語法的
時候，感受那種喜悅真是
另人難以形容 。
TheSplit = Split(Str, vbTab)
多謝版主大大如此費心相助。
小弟真是受益良多。

就感恩！

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
7#
發表於 2012-6-25 20:15 | 只看該作者
回復 6# GBKEE


    版主大大您好：

小弟引用版主大大提供之
語法測試很成功。
小弟會再詳加研究版主大大
的語法。
目前仍處在霚裡看花
的階段。

感恩大大！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-6-25 14:46 | 只看該作者
回復 4# dechiuan999
WORD檔，小弟會先將其轉成,TXT檔再利用WORKBOOKS.OPENTEXT FILENAME,利用資料剖析方式取出資料。
改用 OpenTextFile  開啟 TXT檔 試試看

WORD檔資料位移.rar (22.19 KB)
  1. Private Sub UserForm_Initialize()
  2.     xPath = "D:\"          '  這裡請修改為指定的目錄
  3.     Set mSh = ThisWorkbook.Sheets("IV")
  4.     mSh.Cells.Clear
  5.     CommandButton2.Enabled = False
  6.     CommandButton3.Enabled = False
  7.     CommandButton4.Enabled = False
  8. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-6-24 13:18 | 只看該作者
回復 4# dechiuan999
兩文件的格式不相同是很傷腦的 我慢慢試試看是否有解,
且有還請高手看看

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
4#
發表於 2012-6-24 06:58 | 只看該作者
回復 2# GBKEE


版主大大早安：
小弟今早有測試一原始方法，
先開啟Excel→再開啟該
Word檔之後，將欲複製
之Word資料選取→選複製
→再回到Excel選貼上。其
表格仍保留與word相同。
因此，小弟可先使用半手工
方式來達了。
只是小弟仍想知道如何突破此
word檔為何透過程式讀取時
其表格欄位會完全改變呢？

感恩大大！

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2012-6-23 20:32 | 只看該作者
回復 2# GBKEE
版主大大您好：

   謝謝版主大大的指敎。
不過，小弟還是無法理解
語法的內含。不知如何啟用
該語法。
   另之前客戶端提供的
WORD檔，小弟會先將其轉成
TXT檔再利用WORKBOOKS.OPENTEXT FILENAME
利用資料剖析方式取出資料。
後來改用HSIEH版主大大提供直接引用
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
也都很順利。最主要的是該資料的
排列位置可以很清楚的分辨是屬於
那一欄位的資料。
但近日客戶端不知為何其WORD版本看
似相同，但轉成TXT檔時整個欄位
會併在一起，也就無法分辨是那一欄
位的資料了。因其表頭可分成四個欄位
一、Marks & Nos  
二、Description of Goods
三、Quantity
四、Unit Price

因此，小弟只好改用人工鍵盤
來輸入資料，再存入自己的
資料庫。不但浪費時間，又
會担憂資料出錯。

小弟想再提供之前客戶端提供
的另一WORD檔案，使用小弟
的表單來取出資料也都可以
逹成。不知此二個檔案為何
會有如此大的差異呢？

謝謝版主大大。
AA.rar (35.23 KB)

Testword.rar (30.28 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-6-23 09:58 | 只看該作者
回復 1# dechiuan999
我 WORD 的VBA 不太熟, 試試看複製到Excel 在去處理
  1. Sub 巨集2()
  2.      Application.ActiveDocument.Range.Copy
  3.      Word_vba
  4. End Sub
  5. Sub Word_vba()
  6.     Dim xlWkApp As Object, xlWk As Object
  7.     Set xlWkApp = CreateObject("excel.application")
  8.     Application.DisplayAlerts = False                 '關閉系統的詢問視窗
  9.     With xlWkApp
  10.         .Visible = True
  11.         Set xlWk = .workbooks.Open(FileName:="d:\試算表\Book3.xls", Password:="1234", IgnoreReadOnlyRecommended:=False)
  12.        ' xlWk.Sheets(1).Range("c3") = ActiveDocument.Tables(1).Cell(1, 1)
  13.         xlWk.Sheets(1).Paste
  14.         xlWk.Close False
  15.     End With
  16.     xlWkApp.Quit
  17.     Set xlWkApp = Nothing
  18. End Sub
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題