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

帖子: 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 在去處理

Sub 巨集2()
Application.ActiveDocument.Range.Copy
Word_vba
End Sub
Sub Word_vba()
Dim xlWkApp As Object, xlWk As Object
Set xlWkApp = CreateObject("excel.application")
Application.DisplayAlerts = False '關閉系統的詢問視窗
With xlWkApp
.Visible = True
Set xlWk = .workbooks.Open(FileName:="d:\試算表\Book3.xls", Password:="1234", IgnoreReadOnlyRecommended:=False)
' xlWk.Sheets(1).Range("c3") = ActiveDocument.Tables(1).Cell(1, 1)
xlWk.Sheets(1).Paste
xlWk.Close False
End With
xlWkApp.Quit
Set xlWkApp = Nothing
End Sub

複製代碼

帖子: 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)

帖子: 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檔為何透過程式讀取時
其表格欄位會完全改變呢？

感恩大大！

帖子: 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
兩文件的格式不相同是很傷腦的我慢慢試試看是否有解,
且有還請高手看看

帖子: 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)

Private Sub UserForm_Initialize()
xPath = "D:\" ' 這裡請修改為指定的目錄
Set mSh = ThisWorkbook.Sheets("IV")
mSh.Cells.Clear
CommandButton2.Enabled = False
CommandButton3.Enabled = False
CommandButton4.Enabled = False
End Sub

複製代碼

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2012-6-25 20:15 | 只看該作者

回復 6# GBKEE

版主大大您好：

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

感恩大大！

帖子: 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)
多謝版主大大如此費心相助。
小弟真是受益良多。

就感恩！

帖子: 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
當我可以幫你解題時, 你感受那種喜悅的感覺,我也是感同身受的