kannas

小學生 Rank: 1

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

尊貴會員 Rank: 5 Rank: 5

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

小學生 Rank: 1

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

版主 Rank: 7 Rank: 7 Rank: 7

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

Sub dsa()
Dim Wd 'Word
Dim Dc '文件
Dim Tb '內表
Dim i, j '定位
Sheet1.UsedRange.EntireRow.Delete 'Excel Sheet1 清表
Set Wd = CreateObject("Word.Application")
Dim RgR As Range
Set Dc = Wd.Documents.Open("C:\temp\1.DOC ") '檔名
Wd.Visible = True
With Wd.Selection.Find
.Text = "^l"
.Replacement.Text = " "
End With
Wd.Selection.Find.Execute Replace:=2
With Wd.Selection.Find
.Text = "^p"
.Replacement.Text = " "
End With
Wd.Selection.Find.Execute Replace:=2
For Each Tb In Dc.tables
Set RgR = Sheet1.UsedRange.EntireRow.Offset(Sheet1.UsedRange.Rows.Count + 1, 0).Cells(1)
Tb.Range.Copy
RgR.Select
ActiveSheet.PasteSpecial Format:="HTML"
Next
Wd.Quit
End Sub

複製代碼

懂得發問,答案就會在其中

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

TOP

kannas

小學生 Rank: 1

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

超級版主 Rank: 8 Rank: 8

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

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

Sub WriteWordTb()
Dim Tb As Table, Ar()
Set Wd = CreateObject("Word.Application") '創建WORD程式物件
Cells.Clear '清空工作表內容
With Wd '關於WORD程式物件
With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
For Each Tb In .tables 'doc文件中的每個Table
For i = 1 To Tb.Rows.Count
For j = 1 To Tb.Columns.Count
For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
ReDim Preserve Ar(s)
Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
Next
mystr = Join(Ar, Chr(10))
Cells(i, j) = mystr
Erase Ar
Next
Next
Next
End With
.Quit '關閉程式
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

kannas

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-11-28
最後登錄: 2011-1-1

7^#

發表於 2010-12-17 19:55 | 只看該作者

回復 6# Hsieh

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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變數宣告

Sub WriteWordTb()
Dim Ar()
Set Wd = CreateObject("Word.Application") '創建WORD程式物件
Cells.Clear '清空工作表內容
With Wd '關於WORD程式物件
With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
For Each Tb In .tables 'doc文件中的每個Table
For i = 1 To Tb.Rows.Count
For j = 1 To Tb.Columns.Count
For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
ReDim Preserve Ar(s)
Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
Next
mystr = Join(Ar, Chr(10))
Cells(i, j) = mystr
Erase Ar
Next
Next
Next
End With
.Quit '關閉程式
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

kannas

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-11-28
最後登錄: 2011-1-1

9^#

發表於 2010-12-20 22:39 | 只看該作者

回復 8# Hsieh

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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自動換列

Sub WriteWordTb()
Dim Tb As Table, Ar()
Set Wd = CreateObject("Word.Application") '創建WORD程式物件
Cells.Clear '清空工作表內容
With Wd '關於WORD程式物件
With .Documents.Open(ThisWorkbook.Path & "\1.doc") '開啟指定的檔案
For Each Tb In .tables 'doc文件中的每個Table
For i = 1 To Tb.Rows.Count
For j = 1 To Tb.Columns.Count
For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
ReDim Preserve Ar(s)
Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
Next
mystr = Join(Ar, Chr(10))
With Cells(i, j)
.Value = mystr
.WrapText = True
End With
Erase Ar
Next
Next
Next
End With
.Quit '關閉程式
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

[發問] 讀取表格

[發問] 讀取表格

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]