zhuhe

典藏資源

勸學新篇

作業系統

---

奏

山東巡撫 臣 孫氏奏

為存儲試算表

第一種處理方案^〇指定表格保存

Sub zh()

Worksheets("應收").Copy

'選定表格^〇可多選

With ActiveWorkbook

.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\應收.xls", FileFormat:=xlExcel8

'參考環境變量自己設置

'後綴參考XlFileFormat 列舉注意後綴和FileFormat應該對應

.Close SaveChanges:=True

'為 True^〇則會將變更儲存在活頁簿中

End With

End Sub

參考寫法

微軟官網

參考參數一

參考參數二

第二種處理方案^〇滑鼠選擇性保存

Sub SaveSheetAsWorkbook()

Dim theName As String

On Error GoTo Line1

For Each sht In ActiveWindow.SelectedSheets

sht.Copy

theName = ThisWorkbook.Path & "\Desktop_" & sht.Name & ".xls"

ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal

ActiveWindow.Close

Next

Line1:

End Sub

參考寫法

坊間方案一

坊間方案二

環境變量

坊間方案一

坊間方案二

坊間方案三

謹恭摺具

陳伏乞

皇上聖鑒謹

奏

各該衙門知道

成憲庚子年六月初十日