VBA如何用命令按鈕保存文件並自動命名。

1.每次保存新文件時，可以在文件名中添加壹個數字。

比如:

整數形式的靜態索引

索引=索引+1

此工作簿。save as " E:\ DC \ WQ " & amp；指數和指數。".xls "

或者生成壹個隨機名稱:

Dim fso

Set fso = CreateObject("Scripting。文件系統對象”)

字符串形式的dim名稱

Name = fso。GetTempName

此工作簿。save as " E:\ DC \ " & amp；姓名和名稱。".xls "

2、程序以壹個語句開始:

私有聲明函數GetTickCount Lib " & lta href="/s？wd=kernel32.dll。TN = 44039180 _ CPR & amp；fenlei = mv 6 quakxtz n 0 izrqichckpjm 4 NH 00t 1 yluamsmw-m 161 uaubpww-0 zwv 5 hcvrjm 3 RH 6 spfkwumw 85 hfynjn 4 NH 6 sgvpst 6k 1 TL 0 qnfk 1 l0z 5 HD 0 ig F _ 5y 9 yiz 0 qzqlpa-bmy 8 MH 7 guzr 8mvkernel32.dll & lt/a >；()壹樣長

運行壹個無限循環，其中包含壹個

睡眠(6000)

仙客來(“^s”)