摘要:
将当前Excel另存为test.xlsActiveWorkbook.SaveCopyAs thisWorkbook.Path &" \test.xls"自定义函数Function youFunctionName(msg) youFunctionName = msg ‘定义函数返回值End Function显示窗体UserForm1.Show隐藏窗体UserForm1.Hide生成文本文件Private Sub CommandButton1_Click() Set fso = CreateObject("Scripting.FileSystemObject& 阅读全文
posted @ 2011-07-04 12:40 刘政道 阅读(1076) 评论(0) 推荐(0) 编辑