多個excel sheet工作表如何快速轉成各個獨立的excel檔案
- 帖子
- 17
- 主題
- 5
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-5-19
- 最後登錄
- 2022-9-29
|
多個excel sheet工作表如何快速轉成各個獨立的excel檔案
|
各位大大!我有1個excel檔案裡面有約50個工作表,有無快速方法將這50個工作表轉成50個excel檔案. |
|
|
alexwin
|
|
|
|
|
- 帖子
- 41
- 主題
- 11
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- xp
- 閱讀權限
- 20
- 註冊時間
- 2012-12-20
- 最後登錄
- 2019-12-17
|
8#
發表於 2013-1-17 13:26
| 只看該作者
回復 7# HUNGCHILIN
謝謝HUNGCHILIN大，的確pidl&與pidl兩個變數都會被定義成Long，看來只是習慣問題。 |
|
|
|
|
|
|
|
暱稱: 阿吉 頭銜: 不恥下問,不斷學習,才會進步
版主  
- 帖子
- 647
- 主題
- 190
- 精華
- 24
- 積分
- 1037
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- Office 2010 ; OOO3.0 ; Google
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 竹南
- 註冊時間
- 2010-5-2
- 最後登錄
- 2022-6-24
  
|
7#
發表於 2013-1-16 22:15
| 只看該作者
|
在使用上我的感覺，應該是沒有差別，不過後續就像您所說的不要用才會簡捷。 |
|
|
|
|
|
|
|
- 帖子
- 41
- 主題
- 11
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- xp
- 閱讀權限
- 20
- 註冊時間
- 2012-12-20
- 最後登錄
- 2019-12-17
|
6#
發表於 2013-1-16 17:39
| 只看該作者
回復 4# HUNGCHILIN - Sub BrowDir()
- On Error GoTo error1
- Dim bi As BROWSEINFO
- Dim pidl&, rtn&, path$, pos%
- pidl& = SHBrowseForFolder(bi)
- path$ = Space$(512)
- rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
- ...
- error1: End Sub
請問各位前輩，Dim pidl&, rtn&, path$, pos%是在宣告變數型態，&=Long、$=String，
像Dim pidl&=Dim pidl as Long，變數是pidl，但為什麼下面程式在使用時，是用pidl& = SHBrowseForFolder(bi)而不是pidl = SHBrowseForFolder(bi)?
兩種寫法使用上會有差別嗎? 謝謝。 |
-
1
評分人數
-
|
|
|
|
|
|
|
- 帖子
- 17
- 主題
- 5
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-5-19
- 最後登錄
- 2022-9-29
|
5#
發表於 2010-7-5 17:30
| 只看該作者
回復 alexwin
你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複 ...
HUNGCHILIN 發表於 2010-6-27 01:16 
這個好用!謝謝!只要10秒就ok了! |
|
|
alexwin
|
|
|
|
|
暱稱: 阿吉 頭銜: 不恥下問,不斷學習,才會進步
版主
- 帖子
- 647
- 主題
- 190
- 精華
- 24
- 積分
- 1037
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- Office 2010 ; OOO3.0 ; Google
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 竹南
- 註冊時間
- 2010-5-2
- 最後登錄
- 2022-6-24
|
4#
發表於 2010-6-27 01:16
| 只看該作者
本帖最後由 HUNGCHILIN 於 2010-6-27 10:32 編輯
回復 1# alexwin
你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複選
這則是老問題了
很久以前OFFICEFANS有人回過
多年前研究了一陣子 這是以前練習時修改優化之後的成品檔
後來就收到檔案庫了
現在看了一下程式與表單 不是那麼完美因為還可以增加許多更佳的人性化界面與功能
可以解決問題就好
 自動安裝(&使用說明)導出工作表.rar (79.51 KB)
|
|
|
|
|
|
|
|
- 帖子
- 75
- 主題
- 19
- 精華
- 0
- 積分
- 135
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007 010
- 閱讀權限
- 20
- 註冊時間
- 2010-5-18
- 最後登錄
- 2013-10-26
|
3#
發表於 2010-6-26 15:57
| 只看該作者
Sub 批量拷贝工作表()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
Next
End Sub |
|
|
学习
|
|
|
|
|
發表於 2010-6-25 15:20
| 
