#使用宏在一個Excel文件中操作另一個Excel文件。
辦公軟件中使用宏處理一些信息，尤其是大量的重復信息，可以提高效率。
操作過程結構如下：
Dim strFilePath As String
Dim strFileName As String
Dim strFile As String
Dim excel As Object
Dim sheet As Object
Dim Workbook As Object
‘The target file
strFileName = "test_out.xls"
strFilePath = Me.Parent.Path
strFile = strFilePath & "\" & strFileName
‘STEP 0: proof the existence of excel file
If Dir(strFile) = "" Then
MsgBox "The target file:" & vbCrLf & _
strFile & vbCrLf & _
"is NOT exsit!"
Exit Sub
End If
‘STEP 1: open the excel file
Set excel = CreateObject("excel.application")
Set Workbook = excel.Workbooks.Open(strFile)
‘STEP 2: find the needed sheet
Set sheet = Workbook.ActiveSheet
‘STEP 3: process
MsgBox sheet.Range("a1").Value
sheet.Range("a2").Value = "sunyt"
‘STEP 4: close file
‘ : to save file firstly
Workbook.Save
Workbook.Close
excel.Quit
Set sheet = Nothing
Set Workbook = Nothing
Set excel = Nothing
