æ¯ææ¯ä»£ç æ¾å¨thisworkbookä¸åï¼
追çå³é®sheetå
æ¥ç代ç
å¤å¶è¿å»
好å没æç¨
æçæ¯excel2003
追çSub ä¿å()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=[a1] & ".xls"
End Sub
03çæ¬çåç¼åæ¯ xls