VBA – 将上传的.csv文件名放置在某个表单元格中

我想知道是否有一种方法可以将选中的.csv文件放在“汇总”表格中的单元格中。 这里是上传.csv文件的代码：

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 

我不确定是否有办法做到这一点，在此先感谢。

Answer 1

从注释中提供的链接中解决问题（您需要添加对Microsoft脚本运行时的引用（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