資料匯出另存新檔

hugh0620

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

下載次數: 8

2011-5-5 11:15

            

下載 (120.55 KB)

2011-5-5 11:11

GBKEE

回復 1# hugh0620

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

複製代碼

hugh0620

回復 2# GBKEE


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

mark15jill

回復 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)

下載次數: 13

2011-5-9 12:03

hugh0620

回復 4# mark15jill

     Dear mark15jill

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

   

下載 (130.17 KB)

2011-5-9 12:30

mark15jill

回復 5# hugh0620

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

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


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

GBKEE

回復 5# hugh0620

http://forum.twbts.com/thread-3448-1-2.html

hugh0620

回復 7# GBKEE


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