多個excel sheet工作表如何快速轉成各個獨立的excel檔案

alexwin

各位大大!我有1個excel檔案裡面有約50個工作表,有無快速方法將這50個工作表轉成50個excel檔案.

Hsieh

回復 1# alexwin

基本操作
工作表頁籤按右鍵
選移動或複製
如圖移動到新的活頁簿
   

下載 (10.07 KB)

2010-6-25 15:16

至於快速就寫個vba作這些重覆動作

wqfzqgk

Sub 批量拷贝工作表()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
Next
End Sub

HUNGCHILIN

回復 1# alexwin

你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複選

這則是老問題了
很久以前OFFICEFANS有人回過
多年前研究了一陣子 這是以前練習時修改優化之後的成品檔
後來就收到檔案庫了
現在看了一下程式與表單 不是那麼完美因為還可以增加許多更佳的人性化界面與功能
可以解決問題就好

自動安裝(&使用說明)導出工作表.rar (79.51 KB)

下載次數: 63

2010-6-27 01:15

alexwin

回復  alexwin

你先用這個檔吧
可以解決你的問題
開檔 按新工具列按紐後
有一個表單工作表清單可以複 ...
HUNGCHILIN 發表於 2010-6-27 01:16

    這個好用!謝謝!只要10秒就ok了!

chiata

回復 4# HUNGCHILIN

1. Sub BrowDir()
   
2. On Error GoTo error1
   
3.     Dim bi As BROWSEINFO
   
4.     Dim pidl&, rtn&, path$, pos%
   
5.     pidl& = SHBrowseForFolder(bi)
   
6.     path$ = Space$(512)
   
7.     rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
   
8.    ...
   
9. 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

在使用上我的感覺，應該是沒有差別，不過後續就像您所說的不要用才會簡捷。

chiata

回復 7# HUNGCHILIN


    謝謝HUNGCHILIN大，的確pidl&與pidl兩個變數都會被定義成Long，看來只是習慣問題。