[建议]VBA短语接龙

gvntw

笨鸟先飞，我先来几句：

Range("A1").CurrentRegion.Select '选定A1单元格的当前区域

ExecuteExcel4Macro("Get.Document(50)") '打印页数

ActiveSheet.ShowDataForm '调用记录单

ActiveSheet.Shapes("AutoShape 1").Visible = False '隐藏图片

Rows("1:10").EntireRow.AutoFit '第1至10行自动行高

FileCopy "D:AAA.XLS ", "E:BBB.XLS" ‘将 D:AAA.XLS 复制成 E:BBB.XLS

MkDir "D:Mydir" ‘创建文件夹

Kill "D:TempBook1.xls" ‘删除文件

CreateObject("Wscript.Network").ComputerName ‘计算机名

CreateObject("Wscript.Network").UserName ‘计算机用户名

Environ("ComputerName") ‘计算机名

Environ("UserName") ‘计算机用户名

mOpen = Shell("Explorer.exe C:windows", vbNormalFocus) '打开文件夹，第2个参数如果省略则只打开不激活。

Name "D:Temp1.jpg" As "D:Temppic.jpg" ‘更改文件名