主题：怎样提取文件名

使用

OpenFileDialog提取文件名dlg.FileName，得到的是完全路径，比如说c:\aa\xx.xlsx,现在只想要具体文件名信息xx即可，需要怎么提取？

FileSys.GetName(dlg.FileName).Trim(".xlsx")

 

这样报错，提示不是有效名称

“~TMPCLPa20210205.xlsx”不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。

 

这个提示

没太懂，我现在只想根据这个文件名生成出一个新的表名，应该怎么做呢？

转换的excel数据，前边都有个单引号，咋回事？

  Dim ex As New Exporter
        ex.SourceTableName = "表B" '指定导出表
        ex.FilePath = "c:\Data\" & riqi & ".xls" '指定目标文件
        ex.Format = "Excel" '导出格式为Excel
        ex.Fields = "日期,列名,数值" '指定导出字段
       
        ex.Export()

  Tables("订单数据").SaveExcel(dlg.FileName, "订单数据")
用这个可以了