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