返回列表 上一主題 發帖

資料匯出另存新檔

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 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

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

高中生Rank: 3Rank: 3

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

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題