1.Excel中激活Word
Application.ActivateMicrosoftApp xlMicrosoftWord
2.Excel中打开文件查找框
Application.FindFile
3.Excel中运行宏
Application.Run MacroName:="人口预测"
4.Excel的保存
ActiveWorkbook.Save
5.为当前工作簿设置密码
Sub Protect_Book()
ActiveWorkbook.Protect Password:="Protect",Structure:=True,Windows:=True
End Sub
6.取消工作簿密码
Sub Unprotect_book()
Msgbox "取消工作簿保护"
ActiveWorkbook.UnProtectPassword:="Protect"
End Sub
7.逐行读入WORD文档
Sub Macro1()
'
' Macro1 Macro
' 宏在 2011-7-25 由 djc 录制
Dim Tmp$()
Tmp() = Split(ActiveDocument.Range.Text, vbCrLf)
For i = 0 To UBound(Tmp$)
Debug.Print Tmp$(i)
Next i
End Sub
8.将工作薄中的全部n张工作表都在sheet1中建上链接
Sub test2()
Dim Pt As Range
Dim i As Integer
With Sheet1
Set Pt = .Range("b1")
For i = 2 To ThisWorkbook.Worksheets.Count
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
9.在VBA代码中，如何引用当前工作表中的整行或整列
(1) Range("C:C").Select，表示选择C列。
Range("C:E").Select，表示选择C列至E列。
(2) Range("1:1").Select，表示选择第一行。
Range("1:3").Select，表示选择第1行至第3行。
(3) Range("C:C").EntireColumn，表示C列；
Range("D1").EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。
10.VBE中运行其他EXE程序
Shell ("C:\WINDOWS\SAFlashPlayer.exe")
