帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-11-12 13:54 | 只看該作者

[發問] 請問如何將指定的工作表!另存成一個新的活頁簿(.xls檔)!

本帖最後由棋語鳥鳴於 2011-11-12 14:06 編輯

請問如何利用vba新增一個.xls檔，並放入指定區域(B2)，讓新增的檔案名稱為B1的文字!最後將此sheet的內容與工作表名稱放入!(應該說將此SHEET的內容另存至新的活頁簿中)
例:於C:\下產生一個"測試A.xls"，並將此工作表與

測試.rar (12.81 KB) 內容放入!

樓主熱帖

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

14^#

發表於 2014-3-14 00:26 | 只看該作者

回復 10# GBKEE
請問大大如果要指定2張工作表要怎麼修改

你猜!!

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

13^#

發表於 2014-3-13 19:11 | 只看該作者

借用一下喔

你猜!!

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

12^#

發表於 2012-9-10 10:15 | 只看該作者

本帖最後由 av8d 於 2012-9-10 10:45 編輯

回復 10# GBKEE

大大~您好~檔案存檔位置是?

原檔執行後關閉(不存檔)
在桌面找不到另存的新檔

我下載了原作者測試檔~迎刃而解~檔案沒問題~感恩!

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

11^#

發表於 2011-11-13 11:07 | 只看該作者

回復 10# GBKEE

這次測試就ok了~感謝大大不辭辛勞的修改!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-11-13 09:53 | 只看該作者

回復 9# 棋語鳥鳴

Sub Ex()
Dim Bo As Workbook, Save_Name As String, E As Object
With ActiveWorkbook '*** 要複製的活頁簿 ***
'ActiveWorkbook '作用中的活頁簿
'ThisWorkbook '程式碼所在的活頁簿
'WorkbookS(1) '指定開啟活頁簿中的索引值
'WorkbookS("Test") '指明開啟活頁簿中的名稱'
Save_Name = .Sheets(1).[B2] & .Sheets(1).[B1] & ".xls"
.Sheets("工作表名稱").Copy '指定複製一張工作表到新的活頁簿
End With
With ActiveWorkbook '複製後的新活頁簿是 **作用中的活頁簿**
For Each E In .VBProject.VBComponents '活頁簿專案中元件的集合物件
E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines '刪除所有的程式碼
Next
.SaveCopyAs Save_Name
.Close False '關閉檔案 (不存檔)
End With
End Sub

複製代碼

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

9^#

發表於 2011-11-13 08:32 | 只看該作者

回復 8# GBKEE
板大:不好意思，又要麻煩您修改了!
1.現在可以轉出檔案了!不過~轉出來格檔案格式不對(檔案與一開始的格式一樣，且不能開啟，要自行改成.xls才能開啟)
2.請問如果我要轉出的sheet為sheet2要如何修改其巨集，檔名和路徑還是在sheet1!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-11-13 07:23 | 只看該作者

回復 7# 棋語鳥鳴

Sub Ex()
Dim Bo As Workbook, E As Object, S As String
Set Bo = ActiveWorkbook
Bo.Sheets(1).Copy '複製Sheets(1) 一張工作表到新的活頁簿
With ActiveWorkbook '複製後的新活頁簿是 **作用中的活頁簿**
For Each E In .VBProject.VBComponents '活頁簿專案中元件的集合物件
E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines '刪除所有的程式碼
Next
.SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & IIf(Bo.Path <> "", Split(Bo.Name, ".")(1), "xls")
.Close False '關閉檔案 (不存檔)
End With
End Sub

複製代碼

TOP

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

7^#

發表於 2011-11-13 06:42 | 只看該作者

現在變成這段==>.SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & Split(.Name, ".")(1)
陣列索引超出範圍!

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

6^#

發表於 2011-11-12 23:58 | 只看該作者

本帖最後由 luhpro 於 2011-11-13 00:11 編輯

回復 5# 棋語鳥鳴
因為我的是 Excel 2003 相關設定的畫面是底下這樣 :

信任存取 Visual Basic 專案

至於你的 Excel 2007 畫面與位置可能有所不同,
請參閱底下這一篇文章的內容:

請問如何關掉EXCEL 2007 "設計模式"?

找找看是否是你目前的設定阻擋了程式的執行.

請留意 :
不是要你照著他的方式設定,
而是希望你能找找看你的電腦上在那個視窗裡面, (都找找看, 尤其是 "信任中心" 那個頁面內)
是否有需要你做開放或調整的設定項目.

TOP