12
返回列表 上一主題 發帖

[發問] 讀取表格

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

老夏

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

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

TOP

Hsieh

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

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

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

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題