68手游网

#使用宏在一个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