通过访问vba浏览和编辑excel文件

Question

我是新来访问vba ...请求请为下面提到的指南： 我想创建一个访问vba工具，其目的是浏览多个excel文件，并更新/通过在文本上添加一个新行（如sheet1的第一行）来编辑所有选定的excel文件，文本为“ABC”。然后，它应该保存并关闭所有的excel文件。 谢谢

Answer 1

我找到了答案，下面是代码供进一步参考。

Dim Xl As Excel.Application 
Dim XlBook As Excel.Workbook 
Dim XlSheet As Excel.Worksheet 
Dim MySheetPath As String 
Dim fDialog As FileDialog 
Set fDialog = Application.FileDialog(msoFileDialogFilePicker) 
Dim varFile As Variant 
With fDialog 
    .AllowMultiSelect = True 
    .Title = "Select File Location to Export XLSx :" 
    .InitialFileName = "" 
If .Show = True Then 
    For Each varFile In .SelectedItems 
    GetFileName = varFile 
MySheetPath = GetFileName 
Set Xl = CreateObject("Excel.Application") 
Set XlBook = GetObject(MySheetPath) 
Xl.Visible = True 
XlBook.Windows(1).Visible = True 
Set XlSheet = XlBook.Worksheets(1) 
Dim varInquiryID As Long 
Dim varCentreFooter As String 
Dim sHeader As String 
varCentreFooter = " ABC " 
XlSheet.PageSetup.CenterFooter = varCentreFooter 

ActiveWorkbook.Save 
ActiveWorkbook.Close 

Next 
End If 
End With 

Set Xl = Nothing 
Set XlBook = Nothing 
Set XlSheet = Nothing