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上的一樣。
收藏 分享

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
14#
發表於 2010-12-25 19:14 | 只看該作者

為什麼H大可以有這些指令,但我沒有?


Uploaded with ImageShack.us
80 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
13#
發表於 2010-12-23 14:29 | 只看該作者
回復 11# kannas
老夏前輩的物件包裝方法是妳該學習方向
http://forum.twbts.com/viewthread.php?tid=782&extra=&highlight=word&page=1
參考之前的討論，你對物件聯結的方法會有較多的認識

單就VBA語法討論，你所提到的join方法
這是字串的連結函數，你可參考VBA說明
就能知道此函數用法及用途
你要用&代替JOIN函數當然也行
那就是在取得表格內的每一句字串，
用mystr=mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1)
  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.                 If mystr="" Then
  12.                 mystr=Tb.Cell(i, j).Range.Sentences(s + 1)
  13.                 Else
  14.                mystr= mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1) '連接每句
  15.                End If
  16.            Next
  17.         With Cells(i, j)
  18.         .Value = mystr '儲存格的值
  19.          mystr=""   '把變數歸零
  20.         .WrapText = True  '儲存格設定成自動換行
  21.         End With
  22.         Next
  23.     Next
  24.     Next
  25.   End With
  26.   .Quit '關閉程式
  27. End With
  28. End Sub
複製代碼
學海無涯_不恥下問

TOP

老夏

帖子
109 
主題
22 
精華
0 
積分
134 
點名
0  
作業系統
Win7 
軟體版本
Office 2000 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-5-1 
最後登錄
2023-3-5 

論壇貢獻勳章
12#
發表於 2010-12-23 11:19 | 只看該作者
捨簡而就繁

TOP

kannas

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


請問Join的程式有辦法用And來寫嗎?
我聽人說這個比較簡單，Join是比較高階的用法
我不明白用And寫的話，是要哪些條件連結哪些條件??

               ＊ReDim Preserve Ar(s)
               ＊Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
               
            Next
            
         ＊mystr = Join(Ar, Chr(10))
         ＊.Value = mystr
         ＊.WrapText = True
         
         End With
         
         Erase Ar


還有可以解釋上面有＊的程式意思嗎?
我雖然大概知道意思，但有人問我時，我真的無法達出來。


麻煩您了  謝謝!

TOP

Hsieh

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

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

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 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

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 
7#
發表於 2010-12-17 19:55 | 只看該作者
回復 6# Hsieh


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

TOP

Hsieh

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

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

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題