返回列表 上一主題 發帖

另存新檔後清除公式&巨集

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-5 09:48 | 顯示全部帖子

另存新檔後清除公式&巨集

大家好,


想請教一下,  我文件另存新檔後, 有幾個動作想做, 但不知道要怎麼在新的EXCEL表中設

1.  刪除所有公式&巨集
2.  刪除欄位 Y20~AA20

先感謝各位了

TEST1.rar (26.33 KB)

TEST1.rar (26.33 KB)

收藏 分享

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
2#
發表於 2016-5-5 17:13 | 顯示全部帖子
回復 2# stillfish00


   
十分感謝您的回覆!

我剛有測試成功了
想再請問一下  ThisWorkbook.Sheets("Report").Copy Before:=wbNew.Sheets(1)
這個wbNew.Shhets  copy出來以後,這個新的檔名若是要以 z20 欄位的資料為檔名的話, 讓怎麼設呢?

TOP

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
3#
發表於 2016-5-10 08:32 | 顯示全部帖子
回復 4# stillfish00


  
真的很謝謝您!

這個巨集太好用了~ 可以應用在很多地方, 再次謝謝~

TOP

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
4#
發表於 2016-5-10 15:01 | 顯示全部帖子
回復 4# stillfish00


您好,  我有二個步驟, 但不知道怎麼合併,  能請問該怎麼改嗎?  感謝!

1. 我在桌面建立有指定名稱的空資料夾,  OK
2. 建立文字檔後, 另存新檔且指定名稱的EXCEL檔,   OK
3. 這個EXCEL 檔, 我想放進這個空資料夾(或其它指定的資料夾) ,  這裡不知道怎麼改........  



Sub AddFolder()

On Error Resume Next
MkDir (ThisWorkbook.Path & "/" & Range("I3"))
On Error GoTo 0
Dim wbNew As Workbook, name As String
Set wbNew = Workbooks.Add
ThisWorkbook.Sheets("SI").Copy Before:=wbNew.Sheets(1)
With wbNew.Sheets(1)
.UsedRange.Value = .UsedRange.Value
name = "SI -" & .[L12]
.[P1:Q100].Delete Shift:=xlShiftToLeft
.SaveAs ThisWorkbook.Path & Application.PathSeparator & name

End With
End Sub




test.rar (163.8 KB)

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題