***
1
1
銆佷娇鐢?/p>
Save
鏂规硶
浣跨敤
Workbook
瀵硅薄鐨?/p>
Save
鏂规硶淇濆瓨宸ヤ綔绨跨殑鏇存敼锛屽涓嬮潰鐨勪唬鐮佹墍
绀恒�?/p>
1.
Sub SaveWork()
2.
ThisWorkbook.Save
3.
End Sub
浠ｇ爜瑙ｆ瀽锛?/p>
SaveWork
杩囩▼淇濆瓨浠ｇ爜鎵�鍦ㄧ殑宸ヤ綔绨跨殑淇敼銆?/p>
Save
鏂规硶淇濆瓨鎸囧畾宸ヤ綔绨挎墍鍋氱殑鏇存敼锛岃娉曞涓嬶細
expression.Save
鍙傛暟
expression
鏄繀
闇�鐨勶紝
璇ヨ〃杈惧紡杩斿洖涓�涓?/p>
Workbook
瀵硅薄銆?/p>
濡傛灉鏄涓�娆′繚瀛樺伐浣滅翱锛?/p>
璇蜂娇鐢?/p>
SaveAs
鏂规硶
涓鸿鏂囦欢鎸囧畾鏂囦欢鍚嶏紝璇峰弬闃呮妧宸?/p>
47-2
銆?/p>
2
銆佺洿鎺ヤ繚瀛樹负鍙︿竴鏂囦欢鍚?/p>
濡傛灉闇�瑕佸皢宸ヤ綔绨垮彟瀛?/p>
涓哄彟涓�涓枃浠跺悕锛屽彲浠ヤ娇鐢?/p>
Workbook
瀵硅薄鐨?/p>
SaveAs
鏂规硶锛屽涓嬮潰鐨勪唬鐮佹墍绀恒�?/p>
1.
Sub SaveAsWork()
2.
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.xls"
3.
End Sub
浠ｇ爜瑙ｆ瀽锛?/p>
SaveAsWork
杩囩▼灏嗕唬鐮佹墍鍦ㄧ殑宸ヤ綔绨夸繚瀛樹负
鈥?23鈥?/p>
宸ヤ綔绨挎枃浠躲�?/p>
Workbook
瀵硅薄鐨?/p>
SaveAs
鏂规硶浣跨敤鍙﹀涓�涓笉鍚岀殑鏂囦欢鍚嶄繚瀛樺宸ヤ綔绨挎墍鍋氱殑鏇存敼锛?/p>
璇硶
濡備笅锛?
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,Cr
eateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout
,Local)
鍏朵腑锛屽弬鏁?/p>
Filename
鍙�夛紝琛ㄧず瑕佷繚瀛樻枃浠剁殑鏂囦欢鍚嶇殑瀛楃涓层�傚彲鍖呭惈瀹屾暣璺緞锛?/p>
濡傛灉涓嶆寚瀹氳矾寰勶紝
灏嗘枃浠朵繚瀛樺埌褰撳墠鏂囦欢澶逛腑銆?/p>
浣跨敤
SaveAs
鏂规硶灏嗗伐浣滅翱鍙﹀瓨涓烘柊鏂囦欢鍚庯紝
灏嗗叧闂師宸ヤ綔绨挎枃浠躲�?/p>
3
銆佷繚瀛樺伐浣滅翱鍓湰
濡傛灉鐢ㄦ埛甯屾湜宸ヤ綔绨垮湪淇濆瓨涓哄彟涓�鏂囦欢鍚嶅悗锛岃兘
缁х画缂栬緫鍘熷伐浣滅翱锛岄偅涔堝彲浠ヤ娇鐢?/p>
SaveCopyAs
鏂规硶锛屽涓嬮潰鐨勪唬鐮佹墍绀恒�?/p>
1.
Sub SaveCopyWork()
2.
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\123.xls"
3.
End Sub
浠ｇ爜瑙ｆ瀽锛?/p>
SaveCopyWork
杩囩▼浣跨敤
SaveCopyAs
鏂规硶淇濆瓨浠ｇ爜鎵�鍦ㄧ殑宸ヤ綔绨垮壇鏈紝骞舵寚瀹氬叾鍚嶇О銆?/p>
SaveCopyAs
鏂规硶灏嗘寚瀹氬伐浣滅翱鐨勫壇鏈繚瀛樺埌鏂囦欢锛?/p>
浣嗕笉淇敼鍐呭瓨涓殑鎵撳紑宸ヤ綔绨匡紝
璇硶濡?/p>
涓嬶細
SaveCopyAs(Filename)
鍙傛暟
Filename
鏄繀闇�鐨勶紝鐢ㄤ簬鎸囧畾宸ヤ綔绨垮壇鏈殑鏂囦欢鍚嶃�?/p>