標題:
如何將新開的檔案另存新檔
[打印本頁]
作者:
thps51134
時間:
2011-11-29 10:03
標題:
如何將新開的檔案另存新檔
請問應如何抓到剛新增 (尚未存檔)的Workbook的名稱,來指定它做動作
或是有其他更精準的另存新檔作法
=============
利用巨集得到code並簡化後得到結果如下:
Sub NewFile()
'
' 開新檔案 & then 將其存檔
'
Workbooks.Add
Windows("Book1").Activate
ActiveWorkbook.SaveAs Filename:="C:\Desktop\LALA.xlsx"
End Sub
目前遇到的問題是:
若使用者開著Excel & 前面已經做過新增檔案的動作,
新增的Workbook就會變成"Book2"
那就沒辦法用這種方法指定要新存的檔案為剛剛新增的那個
考慮到也許使用者同時也在使用其他Excel檔案,我也不敢用Workbooks(2)這種用法
麻煩各位了
作者:
kimbal
時間:
2011-11-29 13:29
加上set 就可以了
set wbnew = Workbooks.Add
wbnew.SaveAs Filename:="C:\Desktop\LALA.xlsx"
作者:
thps51134
時間:
2011-11-29 15:25
回復
2#
kimbal
感謝您!
那想再請教
請問想對此Workbook編輯後再做存檔
例如:
1. 開新檔案
2. 在Sheet1, Cells(1, 1)中寫入"test"
3. SaveAs Filename:="D:\LALA.xlsx"
請問又該如何操作?
或是,建議
先存檔後
再開始動作
完成編輯
再
作
儲存
為佳?
謝謝!
作者:
GBKEE
時間:
2011-11-29 15:43
回復
3#
thps51134
Option Explicit
Sub Ex()
With Workbooks.Add
.Sheets(1).Cells(1, 1) = "test"
.SaveAs "d:\test"
End With
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)