返回列表 上一主題 發帖

[發問] 讀取表格

[發問] 讀取表格

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

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

我指的是程式執行時,
會自動讀取指定路徑的word檔案,
並把檔案寫回Excel上面,
但我希望他的格式不會變。

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

TOP

本帖最後由 kannas 於 2010-12-17 11:05 編輯

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

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

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

TOP

回復 6# Hsieh


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

TOP

回復 8# Hsieh


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

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

TOP

回復 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

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題