往单个或多个工作簿特定表的特定单元格里写入数据

aecn

又要来麻烦各位老师了求一段代码，谢谢各位老师。
要求：
在EXCEL文件“写入数据.xlsm”里通过点击按钮在弹出的文件选择窗口里选择单个或多个工作簿，并往特定表的特定单元格里写入数据“通过”。

aecn

今天周六，各位老师都不在吗？

aecn

求各位老师出手，不胜感谢

kzg2013

Sub UseFileDialogOpen()
  Dim wb As Object
  Dim sh As Object
    Dim L As Long
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        If .SelectedItems.Count > 0 Then
        For L = 1 To .SelectedItems.Count
         PTH = .SelectedItems(L)
            Set wb = Workbooks.Open(PTH)
            Set sh = wb.Sheets("目标表")
            sh.Cells(10, "H") = "通过"
            Application.Windows(wb.Name).Visible = True
            wb.Save
            wb.Close
            Set wb = Nothing
        Next L
        Else
          MsgBox "no file found!"
          End
        End If

    End With
MsgBox "OK"
End Sub

aecn

kzg2013 发表于 2019-3-17 14:56
Sub UseFileDialogOpen()
  Dim wb As Object
  Dim sh As Object

太谢谢了
还有，要是能从A3开始加上审批通过的文件列表就完美了
再次感谢kzg2013老师！

kzg2013

aecn 发表于 2019-3-18 10:18
太谢谢了
还有，要是能从A3开始加上审批通过的文件列表就完美了
再次感谢kzg2013老师！

是不是加上通过的文件名（包括路径），如果是的话，请参考附件。

aecn

kzg2013 发表于 2019-3-18 20:51
是不是加上通过的文件名（包括路径），如果是的话，请参考附件。

对的，就是这个意思~~ 谢谢kzg2013老师