国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Public strPath(1000) As String
Public strBookName(1000) As String
Public Function OpenExcelFile(nFileNum As Integer) As String
Dim nCount As Integer
For nCount = 1 To nFileNum
strPath(nCount) = pplication.GetOpenFilename(fileFilter:="Microsoft Excel(*.xls),   *.xls,Microsoft Excel(*.xlsx), *.xlsx")
 If strPath(nCount) = "False" Then
 MsgBox "Excel 文件錯誤", vbCritical
 Exit Function
  End If
Workbooks.Open Filename:=strPath(nCount), UpdateLinks:=0,
  ReadOnly:=False
  strBookName(nCount) = ActiveWorkbook.Name
  Next nCount
  End Function
  Sub ModifyFiles()
  Dim vFileNum As Variant
  vFileNum = Trim(InputBox("10:"))
  If vFileNum < 1 Or vFileNum > 1000 Then
  MsgBox "數(shù)量錯誤", vbCritical
  Exit Sub
  End If
  
  OpenExcelFile (vFileNum)
  Dim nCountFile As Integer
  For nCountFile = 1 To vFileNum
  If strPath(nCountFile) = "False" Then
  Exit Sub
  End If
  Next nCountFile
  
  Application.DisplayAlerts = False
  For nCountFile = 1 To vFileNum
  Workbooks(strBookName(nCountFile)).Activate
  Dim sht As Worksheet
  For Each sht In Worksheets
  sht.[D7] = 1
  Next
  Workbooks(strBookName(nCountFile)).Close True
  Next nCountFile
  Application.DisplayAlerts = True
  
  MsgBox "完成！", vbInformation
  End Sub