Question

我对VBA一无所知。我有excel文件，其中包含文件路径，我想在该位置找到文件的存在。

我试过以下但需要比这更好的东西

$scope.getStyle = function(){
    var numberOfItems = $scope.tree.length;

    return {
        width  : 200 * numberOfItems + 'px',
        overflowX: 'auto'
    }   
}

<div class="modal-body" style="overflow-x: auto;">>
   <div class="scoll-tree" ng-style="getStyle();">
      <div class="list-group" ng-repeat="item in items"> 
        <a class="list-group-item" href="javascript:void(0);" ng-click="getChildren(item)">{{item.value}}</a>
      </div>
   </div>
</div>

预期输出

Sub Test_File_Exist_With_Dir()
    Dim FilePath As String
    Dim TestStr As String

    FilePath = ActiveSheet.Range("A7").Value

    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        ActiveSheet.Range("B7").Value = 0
    Else
        ActiveSheet.Range("B7").Value = 1
    End If

End Sub

如果我向数据添加新行，那么它的存在应该自动填充。

Answer 1

Yau可以将其直接用作工作簿中的函数作为经典的Excel公式，只需键入=File_Exist(A1)，这将作为普通函数运行（您可以轻松自动填充下一行）

Public Function File_Exist(ByVal FilePath As String) As Integer
    On Error Resume Next

    Dim TestStr As String
    TestStr = Dir(FilePath)
    On Error GoTo 0

    If TestStr <> "" Then
        File_Exist = 1
    Else
        File_Exist = 0
    End If

End Function

如果您想自动测试存在并在每次向数据添加新行时填充，那么您将不得不使用Worksheet_SelectionChange，但它会比这更难，如果您没有那么有用，你有实用的功能！

用于检查文件存在的Excel宏

1 个答案: