[分享] 依資料分存

　暱稱: VBA向前衝

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-3-12 11:44 | 只看該作者

Dear All

      依以前大大教的~ 加上自己學的~
      拼湊出來一個東西~ 分享給有需要的人~

      有時我們會有需要資料~ 依需求將資料拆成檔案分存
      提供給在這方面需求的人~ 參考參考~
      寫得不是很好~ 但可以用~

拆檔分存.rar (11.84 KB)

學習才能提升自己

　暱稱: VBA向前衝

3^#

發表於 2012-3-12 18:02 | 只看該作者

回復 2# mark15jill

會產生這個問題是~ 因為沒有選擇路徑的原因
將 .Show => if .show=0 then exit sub
就可以排除那個錯誤的問題~

學習才能提升自己

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

2^#

發表於 2012-3-12 14:32 | 只看該作者

本帖最後由 mark15jill 於 2012-3-12 14:33 編輯

patch = .SelectedItems(1)

此行程式錯誤..

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。