vab 如何自定义文件路径函数

leegy2

需要自定义一个函数，通过输入日期，输出文件所在路径
自定义函数名（年，月，日）


Sub lkyy()
    MP = ThisWorkbook.Path & "\文本名.txt"   '其中不同的日期对应不同的文本，通过改变日期获取所需文件的路径，然后再进行下一步
    Open MP For Input As #1
    a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    ReDim arr(1 To UBound(a), 1 To 3)
    For i = 0 To UBound(a)
        If Len(a(i)) Then
            n = n + 1
            b = Split(a(i), vbTab)
            For j = 0 To UBound(b)
                arr(n, j + 1) = b(j)
            Next j
        End If
    Next i
    Close #1
End Sub



谢谢大侠们

leegy2

自己顶一下

凌空一羽

示例文件.zip (50.29 KB, 下载次数: 19)

2018-8-9 16:02 上传

点击文件名下载附件

leegy2

凌空一羽 发表于 2018-8-9 16:02

又是大神回复我，赞赞！