VBA之五

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")