alexwin

帖子: 17
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-5-19
最後登錄: 2022-9-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-25 13:42 | 只看該作者

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

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

樓主熱帖

alexwin

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-6-25 15:20 | 只看該作者

回復 1# alexwin

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

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

學海無涯_不恥下問

TOP

wqfzqgk

中學生 Rank: 2

帖子: 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

学习

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

alexwin

小學生 Rank: 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

TOP

chiata

中學生 Rank: 2

帖子: 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

複製代碼

以上程式截至HUNGCHILIN大的附檔，
請問各位前輩，Dim pidl&, rtn&, path$, pos%是在宣告變數型態，&=Long、$=String，
像Dim pidl&=Dim pidl as Long，變數是pidl，但為什麼下面程式在使用時，是用pidl& = SHBrowseForFolder(bi)而不是pidl = SHBrowseForFolder(bi)?
兩種寫法使用上會有差別嗎? 謝謝。

1 評分人數