返回列表 上一主題 發帖

資料匯出另存新檔

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
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)
            
收藏 分享
學習才能提升自己

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-5-9 11:50 | 顯示全部帖子
本帖最後由 hugh0620 於 2011-5-9 11:52 編輯

回復 2# GBKEE


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

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
3#
發表於 2011-5-9 12:30 | 顯示全部帖子
本帖最後由 hugh0620 於 2011-5-9 12:33 編輯

回復 4# mark15jill

     Dear mark15jill

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

   
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
4#
發表於 2011-5-10 09:19 | 顯示全部帖子
回復 7# GBKEE


    感謝大大~ 可以了~ 感恩唷~
學習才能提升自己

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題