Tag: 文件扩展名

在vba中如何在保存文件时更改扩展名，不知道确切的文件名

我的问题是这个。 我使用通配符读取一系列文件名，以便文件名的末尾是未知的，扩展名是.xls或.xlsx。 所以，通配符是这样的： beginningOfFilename_ *.xls * 然后，我想在每个文件操作完毕后将其保存为相同的名称，但是以.csv（逗号分隔的值文件）的forms保存。 在Excel中的VBA，我可以只指定格式，它会照顾的扩展，或者我必须以某种方式拉（未知）的扩展名，并追加.csv 如果第二种情况是必要的你将如何处理这个问题，我不知道从哪里开始，因为文件名的一部分是未知的，我不知道如何操纵string在VB中。 我是一名VBA初学者。 任何帮助将不胜感激，谢谢。

创build一个html格式的文件，由Excel打开

我正试图从网站导出电子表格文件。 数据对于一个简单的csv来说太复杂了，所以我想最好的办法是把它格式化成只包含HTML表格的文件。 如果我给它一个.xls扩展名，它将会打开，但是只有在抛出一个错误并要求确认之后。 有没有办法设置文件，以便Excel知道它应该有HTML代码，并让操作系统知道Excel应该打开它？ 这将被那些不想去打开Excel并将其拖入Excel中或从Excel中打开它的人使用。 他们将双击文件。

如果文件扩展名是.xls，则MsgBox

我写了一个VBA脚本，为具有大量数据（从45,000行到500,000行）的客户端执行不同的sorting/匹配/过滤function。 问题是，如果用户将这些数据导出或保存为.xls文件，则只会保存65,536行，这可能会不足。 在脚本的执行过程中，如果用户“错误地”将数据导出为.xls文件，则希望MsgBox出现，否则继续。 我试过下面的代码，看看我是否可以正确地获得文件扩展名，但是我的MsgBox没有返回任何东西： Sub ext() Dim extFind As String Dim sFile As String Dim FilePath As String FilePath = Application.ActiveWorkbook.Path sFile = Dir(FilePath & Filename & "*") extFind = Right$(sFile, Len(sFile) – InStrRev(sFile, ".")) MsgBox extFind End Sub 任何build议将不胜感激。