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

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

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