Board logo

標題: 資料匯出另存新檔 [打印本頁]
作者: hugh0620    時間: 2011-5-5 11:11     標題: 資料匯出另存新檔

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

Dear 大大們~
            小弟來請益~~~~  
            現在的問題在於要將資料匯出後,該Sheet 在新檔後其sheet保留在sheet1的位置
        如下圖與附檔
        [attach]5981[/attach]
            [attach]5980[/attach]
作者: GBKEE    時間: 2011-5-5 11:52

回復 1# hugh0620
  1. Private Sub CommandButton1_Click()
  2.     Sheets("Test").Copy
  3.     ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"
  4. End Su
複製代碼
作者: hugh0620    時間: 2011-5-9 11:50

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

回復 2# GBKEE


    GBKEE 大大~  有利用您寫的程式碼~ 進行測試~ 但是結果不行耶~
    執行的結果 應用程式或物件定義上的錯誤
作者: mark15jill    時間: 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
                                       
另外附上該檔案
[attach]6078[/attach]
作者: hugh0620    時間: 2011-5-9 12:30

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

回復 4# mark15jill

     Dear mark15jill

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

   [attach]6080[/attach]
作者: mark15jill    時間: 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", _       這行...)
作者: GBKEE    時間: 2011-5-9 14:00

回復 5# hugh0620

http://forum.twbts.com/thread-3448-1-2.html
作者: hugh0620    時間: 2011-5-10 09:19

回復 7# GBKEE


    感謝大大~ 可以了~ 感恩唷~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)