1
我是新來訪問vba ...請求請爲下面提到的指南: 我想創建一個訪問vba工具,其目的是瀏覽多個excel文件,並更新/通過在文本上添加一個新行(如sheet1的第一行)來編輯所有選定的excel文件,文本爲「ABC」。然後,它應該保存並關閉所有的excel文件。 謝謝通過訪問vba瀏覽和編輯excel文件
我是新來訪問vba ...請求請爲下面提到的指南: 我想創建一個訪問vba工具,其目的是瀏覽多個excel文件,並更新/通過在文本上添加一個新行(如sheet1的第一行)來編輯所有選定的excel文件,文本爲「ABC」。然後,它應該保存並關閉所有的excel文件。 謝謝通過訪問vba瀏覽和編輯excel文件
我找到了答案,下面是代碼供進一步參考。
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