如何在vba excel中打开带有可变扩展名的文件

Question

我必须制作一个 vba 才能从 excel 打开 CSV 问题是文件有一种格式：

constan_name_file 。 YYYY

例如

file1.124514（第一天）

file1.144521（第 2 天）

file1.152132（改天）

名称文件是一个常量，但 YYY 是可变的，但里面的文件是一个 CSV。 那可以打开吗？

Answer 1

在 Excel 2007 中打开 csv 文件时，我遇到了保留格式的问题。在 excel 论坛中环顾四周只是为了找到一种可能的解决方案。 将文件扩展名从 csv 更改为 txt。

试图使函数尽可能通用。 这里是：

Option Explicit

Function ChangeFileExt(filnamn As String, extensionOld, extensionNew)         
Dim oldname, newname as string     

oldname = ThisWorkbook.Path & "\" & filnamn & "." & extensionOld

newname = ThisWorkbook.Path & "\" & filnamn & "." & extensionNew         
Name oldname As newname  

End Function

'...............................................................................

Sub change_extension()     

' Objective: Want to keep csv-format at workbook.open

' Rename file from filename.csv to filename.txt      
' Open txt-file            
' process data          
' Rename back to csv-file if neccesary        


Dim csv, txt As String           

csv = "csv"      
txt = "txt"         

Call ChangeFileExt("file_name_to_change", csv, txt)      '  omit extension in file_name_to_change         

...all kinds of code       

Call ChangeFileName("file_name_to_change", txt, csv)      '  change filename back to original name


End Sub

Answer 2

为什么不强行将其作为 CSV 文件打开

Workbooks.Open Filename:=name, Format:=2

这里的 2 指定文件以逗号分隔http://msdn.microsoft.com/en-us/library/office/ff194819.aspx

Answer 3

是的，试试下面的代码：

dim sFileName as string
dim sExtension as string

sExtension="YYY"
sfilename=constan_name_file & "." & sExtension

workbooks.open sfilename, Format:=2

Answer 4

感谢使用通配符，终于拿到代码了。

sub GetFiles(direc As String, fich As String) 

    Dim strFileName As Variant

    strFileName = dir(direc & "\" & fich & ".******")

       If Len(strFileName) > 0 Then
        'open
       end if

End sub