返回列表 上一主題 發帖

(已解決)多各工作表處理

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-10-12 14:49 | 只看該作者

(已解決)多各工作表處理

本帖最後由 freeffly 於 2012-2-22 16:57 編輯

Sheets(Array("A", "B", "C", "D", "E", "F", "G")).Select
我是想要處理某幾各數量工作表移出成為另一個檔案

想知道array裡面有沒有什麼方式簡略
可能是固定數量的工作表(譬如第5各到最後依各工作表)
可是工作表名稱不固定(不同檔案裡面工作表不依樣)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2011-10-12 16:36 | 只看該作者
回復 2# Hsieh


    謝謝版主
      這個方法可以
       ReDim Preserve sht(i)
   第一次看到這種用法
     看字面大概了解意思
      不懂得還真多
字典兩各字 還真難理解

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-10-12 15:25 | 只看該作者
回復 1# freeffly

Dim sht()
k = Sheets.Count
Do Until i = 5
ReDim Preserve sht(i)
sht(i) = Sheets(k).Name
k = k - 1
i = i + 1
Loop
Sheets(sht).Select
學海無涯_不恥下問

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題