在一个vba里去操作指定目录下的EXLCE

这段程序是使用在ACCESS里面的。但是还有个问题，就是在Access里面没有我所需要的EXCLE库，所以Excel.Application对象是没有的。

解决方法，通过tool里面的参照寻找Microsoft Excel X.X Object Library 这个lib。然后方法就可以在ACCESS里正常使用了。

如果方法直接在exlce之下，则无需修改参照。
 

Public excelapp As New Excel.Application
Sub Test1()
Dim fd As FileDialog
Dim Filepath, sheetName As String
Filepath = "C:\TOOLS\copy123.xlsx"
sheetName = "sheet1"
Set Workbook = excelapp.Workbooks.Open(Filename:=Filepath)
With excelapp.Application
'这个下面就可以自由操作你要修改的那个EXLCE里面的内容了
.DisplayAlerts = False
'让EXCLE不显示打开状态
.Visible = False
'激活你所需要激活的Sheet（指定目录下的那个EXCLE）
.Worksheets(sheetName).Activate
'选择第一行
.Cells(2, 1).Select
'解除第一行的FREEZEN状态。
.ActiveWindow.FreezePanes = False
'保存EXCLE的修改
.ActiveWorkbook.Save
'退出
.Quit
End With
End Sub