　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

資料匯出另存新檔

本帖最後由 hugh0620 於 2011-5-5 11:15 編輯

Dear 大大們~
         小弟來請益~~~~
         現在的問題在於要將資料匯出後,該Sheet 在新檔後其sheet保留在sheet1的位置
      如下圖與附檔

資料匯出另存新檔.rar (36.75 KB)

樓主熱帖

學習才能提升自己

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兔年全勤獎章

2^#

發表於 2011-5-5 11:52 | 只看該作者

回復 1# hugh0620

Private Sub CommandButton1_Click()
Sheets("Test").Copy
ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"
End Su

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

發表於 2011-5-9 11:50 | 只看該作者

本帖最後由 hugh0620 於 2011-5-9 11:52 編輯

回復 2# GBKEE

GBKEE 大大~ 有利用您寫的程式碼~ 進行測試~ 但是結果不行耶~
執行的結果應用程式或物件定義上的錯誤

學習才能提升自己

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2011-5-9 12:03 | 只看該作者

本帖最後由 mark15jill 於 2011-5-10 16:03 編輯

回復 3# hugh0620

樓主在下之前有回復其他大大的帖子(相關的)
下列為相關程式碼

Sub 按鈕1_Click()

Sheets("sheet2").Copy
Application.DisplayAlerts = False
ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"

ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\輸出測試.xls", _
      FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
      ReadOnlyRecommended:=False, CreateBackup:=False
      Sheets(""Sheet2").Select
      Sheets("Sheet2").Name = "sheet1"
      ThisWorkbook.Close savechanges:=True
End Sub

另外附上該檔案

自動輸出和改名稱.rar (17.86 KB)

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-5-9 12:30 | 只看該作者

本帖最後由 hugh0620 於 2011-5-9 12:33 編輯

回復 4# mark15jill

   Dear mark15jill

   ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"
   在執行到這一行就會產生錯誤
有下載您提供之檔案~ 執行後如下圖產生錯誤

學習才能提升自己

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2011-5-9 12:40 | 只看該作者

本帖最後由 mark15jill 於 2011-5-9 12:47 編輯

回復 5# hugh0620

如果有那個問題的話(我上傳前測試沒問題...)
將下列程式刪除即可

ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"

另外新增後的檔案預設儲存路徑為 win 7的桌面路徑...
因怕 XP 和 WIN7 的桌面路徑不同建議自行修改...(程式碼相關在 ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\輸出測試.xls", _ 這行...)

TOP

GBKEE