12
返回列表 上一主題 發帖

[發問] 讀取表格

kannas

帖子
6 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2010-11-28 
最後登錄
2011-1-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-28 16:27 | 只看該作者

[發問] 讀取表格

本帖最後由 kannas 於 2010-12-2 21:35 編輯

請問如何用Excel 的VB，寫成讀取word的表格，
並把它轉變在Excel上面，格式要跟word上的一樣。
收藏 分享

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
2#
發表於 2010-11-29 12:10 | 只看該作者
你可以参考下这里:
http://forum.twbts.com/viewthrea ... &page=1#pid9388

提问题最好有附件.

TOP

kannas

帖子
6 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2010-11-28 
最後登錄
2011-1-1 
3#
發表於 2010-12-1 01:05 | 只看該作者
我指的是程式執行時，
會自動讀取指定路徑的word檔案，
並把檔案寫回Excel上面，
但我希望他的格式不會變。

有點像是
http://tw.myblog.yahoo.com/jw!_DIL5waFHwVKfL8odMZ4urti/article?mid=1617&prev=1572&next=1615&l=f&fid=16
這個的程式
但是我用這個弄，格式會變，雖然位子一樣，但格式卻沒了。

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2010-12-2 22:06 | 只看該作者
我指的是程式執行時，
會自動讀取指定路徑的word檔案，
並把檔案寫回Excel上面，
但我希望他的格式不會變 ...
kannas 發表於 2010-12-1 01:05



   一個非常懶的方法
copy and paste....
  1. Sub dsa()
  2.        Dim Wd   'Word
  3.        Dim Dc   '文件
  4.        Dim Tb   '內表
  5.        Dim i, j    '定位
  6.    
  7.            Sheet1.UsedRange.EntireRow.Delete    'Excel Sheet1 清表
  8.            Set Wd = CreateObject("Word.Application")
  9.            Dim RgR As Range
  10.            Set Dc = Wd.Documents.Open("C:\temp\1.DOC ") '檔名
  11.            Wd.Visible = True
  12.            With Wd.Selection.Find
  13.                 .Text = "^l"
  14.                 .Replacement.Text = " "
  15.             End With
  16.             Wd.Selection.Find.Execute Replace:=2
  17.             With Wd.Selection.Find
  18.                 .Text = "^p"
  19.                 .Replacement.Text = " "
  20.             End With
  21.             Wd.Selection.Find.Execute Replace:=2
  22.            For Each Tb In Dc.tables
  23.                Set RgR = Sheet1.UsedRange.EntireRow.Offset(Sheet1.UsedRange.Rows.Count + 1, 0).Cells(1)
  24.                Tb.Range.Copy
  25.                RgR.Select
  26.                ActiveSheet.PasteSpecial Format:="HTML"
  27.            Next
  28.          
  29.            Wd.Quit
  30. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

kannas

帖子
6 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2010-11-28 
最後登錄
2011-1-1 
5#
發表於 2010-12-17 11:01 | 只看該作者
本帖最後由 kannas 於 2010-12-17 11:05 編輯

我的表格上有些格內有分行
我想讓他在Excel內只在一個格想用Chr來分行

上面那個程式他會更改到word的資料，變得每次都會問是否存word檔案

可以的話可以解釋每個程式的意思嗎?
因為我有些看不懂，我想了解每步驟的意思。
感謝。

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
41  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-2-16 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-12-17 15:52 | 只看該作者
本帖最後由 Hsieh 於 2010-12-17 15:54 編輯

回復 5# kannas
  1. Sub WriteWordTb()
  2. Dim Tb As Table, Ar()
  3. Set Wd = CreateObject("Word.Application") '創建WORD程式物件
  4. Cells.Clear '清空工作表內容
  5. With Wd '關於WORD程式物件
  6.   With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
  7.     For Each Tb In .tables 'doc文件中的每個Table
  8.     For i = 1 To Tb.Rows.Count
  9.         For j = 1 To Tb.Columns.Count
  10.            For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
  11.               ReDim Preserve Ar(s)
  12.               Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
  13.            Next
  14.          mystr = Join(Ar, Chr(10))
  15.         Cells(i, j) = mystr
  16.         Erase Ar
  17.         Next
  18.     Next
  19.     Next
  20.   End With
  21.   .Quit '關閉程式
  22. End With
  23. End Sub
複製代碼
學海無涯_不恥下問

TOP

kannas

帖子
6 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2010-11-28 
最後登錄
2011-1-1 
7#
發表於 2010-12-17 19:55 | 只看該作者
回復 6# Hsieh


    這個程式無法執行耶
   它顯示編譯錯誤:  使用者自訂型態尚未定義

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
41  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-2-16 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2010-12-17 20:04 | 只看該作者
本帖最後由 Hsieh 於 2010-12-23 14:19 編輯

]回復 7# kannas


    須引用項目
MicroSoft Word 12.0 Object Library

或取消Tb變數宣告
  1. Sub WriteWordTb()
  2. Dim Ar()
  3. Set Wd = CreateObject("Word.Application") '創建WORD程式物件
  4. Cells.Clear '清空工作表內容
  5. With Wd '關於WORD程式物件
  6.   With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
  7.     For Each Tb In .tables 'doc文件中的每個Table
  8.     For i = 1 To Tb.Rows.Count
  9.         For j = 1 To Tb.Columns.Count
  10.            For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
  11.               ReDim Preserve Ar(s)
  12.               Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
  13.            Next
  14.          mystr = Join(Ar, Chr(10))
  15.         Cells(i, j) = mystr
  16.         Erase Ar
  17.         Next
  18.     Next
  19.     Next
  20.   End With
  21.   .Quit '關閉程式
  22. End With
  23. End Sub
複製代碼
學海無涯_不恥下問

TOP

kannas

帖子
6 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2010-11-28 
最後登錄
2011-1-1 
9#
發表於 2010-12-20 22:39 | 只看該作者
回復 8# Hsieh


   請問我用上面那個程式後，因為有些表格內他的字數有點小多，
  用自動調整欄寬的話，整個表格就會破壞掉，變得很寬。
  像是有一串字，點下格子內他會顯示全部的字，如果沒點就只顯示表格大小所能顯示的字數，其他則不顯示，
  可以把它弄成像是自動換行嗎?
   讓表格看起來不會很奇怪?

   問了這麼多  真是麻煩各位了  謝謝!!!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
41  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-2-16 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
10#
發表於 2010-12-20 23:17 | 只看該作者
本帖最後由 Hsieh 於 2010-12-23 14:05 編輯

所以，妳並非要讓文字依據WORD表格內容換行
那就設定EXCEL自動換列
  1. Sub WriteWordTb()
  2. Dim Tb As Table, Ar()
  3. Set Wd = CreateObject("Word.Application") '創建WORD程式物件
  4. Cells.Clear '清空工作表內容
  5. With Wd '關於WORD程式物件
  6.   With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
  7.     For Each Tb In .tables 'doc文件中的每個Table
  8.     For i = 1 To Tb.Rows.Count
  9.         For j = 1 To Tb.Columns.Count
  10.            For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
  11.               ReDim Preserve Ar(s)
  12.               Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
  13.            Next
  14.          mystr = Join(Ar, Chr(10))
  15.         With Cells(i, j)
  16.         .Value = mystr
  17.         .WrapText = True
  18.         End With
  19.         Erase Ar
  20.         Next
  21.     Next
  22.     Next
  23.   End With
  24.   .Quit '關閉程式
  25. End With
  26. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
12
返回列表 上一主題