如何显示用户在标签中选择的文件名

时间:2016-11-10 14:49:50

标签: excel vba excel-vba excel-2010

我目前正在使用VBA在excel中创建基本的CSV文件分析工具(我刚刚开始学习)。

我的问题是:如何使用标签显示用户使用按钮选择的文件名?

以下是我对该按钮的代码:

Sub CSV_Import()
Dim ws As Worksheet, fileNm As String

Set ws = ActiveWorkbook.Sheets("CSV Data")

fileNm = Application.GetOpenFilename("CSV Files (*.csv),*.csv", , "Please select CSV file...")

If fileNm = "False" Then

Exit Sub

Else

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

End If

End Sub

我试过创建一个标签,然后使用Label1.Caption = fileNm,但我不断得到一个对象不存在错误(我有点期待)。抱歉,如果这是一个非常基本的修复,但任何帮助将不胜感激。

0 个答案:

没有答案