Question

我是VBA的新手。在Excel 2010中，我想（如果可能）导入每日文本filename_YYYYMMDD，但是如何指定脚本来获取当天？我在这个网站（和其他人）的每个地方搜索过，我没有发现任何相关内容。我很欣赏任何关于我需要做什么的建议。谢谢!!!

Answer 1

你可以试试这个：

Dim fname as String
fname="filename_" & Format(Date, "yyyymmdd")

Answer 2

试试这个：

Sub OpenTextFileTest()
    Dim fs, f As Object
    Dim strPath As String
    strPath = "Filename_" + Format(Date, "yyyymmdd")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(strPath, 1, 0)
    MsgBox (f.readline)
    f.Close
End Sub

我的博客上的这篇文章也可以帮助您使用日期对象Excel VBA Working With Dates

想（如果可能的话）导入当天的每日文本文件名YYYYMMDD

2 个答案: