標題:
多個excel sheet工作表如何快速轉成各個獨立的excel檔案
[打印本頁]
作者:
alexwin
時間:
2010-6-25 13:42
標題:
多個excel sheet工作表如何快速轉成各個獨立的excel檔案
各位大大!我有1個excel檔案裡面有約50個工作表,有無快速方法將這50個工作表轉成50個excel檔案.
作者:
Hsieh
時間:
2010-6-25 15:20
回復
1#
alexwin
基本操作
工作表頁籤按右鍵
選移動或複製
如圖移動到新的活頁簿
[attach]1449[/attach]
至於快速就寫個vba作這些重覆動作
作者:
wqfzqgk
時間:
2010-6-26 15:57
Sub 批量拷贝工作表()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
Next
End Sub
作者:
HUNGCHILIN
時間:
2010-6-27 01:16
本帖最後由 HUNGCHILIN 於 2010-6-27 10:32 編輯
回復
1#
alexwin
你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複選
這則是老問題了
很久以前OFFICEFANS有人回過
多年前研究了一陣子 這是以前練習時修改優化之後的成品檔
後來就收到檔案庫了
現在看了一下程式與表單 不是那麼完美因為還可以增加許多更佳的人性化界面與功能
可以解決問題就好
[attach]1469[/attach]
作者:
alexwin
時間:
2010-7-5 17:30
回復 alexwin
你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複 ...
HUNGCHILIN 發表於 2010-6-27 01:16
這個好用!謝謝!只要10秒就ok了!
作者:
chiata
時間:
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
複製代碼
以上程式截至HUNGCHILIN大的附檔，
請問各位前輩，Dim pidl&, rtn&, path$, pos%是在宣告變數型態，&=Long、$=String，
像Dim pidl&=Dim pidl as Long，變數是pidl，但為什麼下面程式在使用時，是用pidl
&
= SHBrowseForFolder(bi)而不是pidl = SHBrowseForFolder(bi)?
兩種寫法使用上會有差別嗎? 謝謝。
作者:
HUNGCHILIN
時間:
2013-1-16 22:15
在使用上我的感覺，應該是沒有差別，不過後續就像您所說的不要用才會簡捷。
作者:
chiata
時間:
2013-1-17 13:26
回復
7#
HUNGCHILIN
謝謝HUNGCHILIN大，的確pidl&與pidl兩個變數都會被定義成Long，看來只是習慣問題。
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
