Question

我想知道是否有办法获取所选的.csv文件并将名称放入“摘要”表单上的单元格中。以下是上传.csv文件的代码：

CV_8S

我不确定是否有办法做到这一点，提前谢谢。

Answer 1

将我在评论中提供的链接中的解决方案应用于问题（您需要添加对Microsoft Scripting Runtime的引用（工具＆gt; IDE中的引用）：

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Input Raw Data") 'set to current worksheet name

strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    .Refresh
End With


Dim fso as new FileSystemObject
Dim fileName As String
fileName = fso.GetFileName(strFile)
Worksheets("Summary").Range(Your Range Here).Value = fileName

VBA - 将上传的.csv文件名放入特定工作表的单元格中

1 个答案: