Excel宏不同的文件名中提取

這裏是我的代碼：Excel宏不同的文件名中提取

Sub TestRun() 

    ' Define variables 
    Dim file As String, folder As String 
    ' Define working directory 

folder = "E:\MainFolder\Appointments\" 

' Define type of file to search for 
    file = Dir(folder & "*.zip") 

ZipPath = "E:\MainFolder\Appointments\" & file 

    Call UnZip(folder, ZipPath) 
End Sub

我想有提取物後不同的文件名是什麼。我希望它是appointments.csv而不是文件

來源

2016-03-03 Bot Sundi

也許'CsvPath =替換（ZipPath，「.ZIP」，名爲」 .csv 「）......？？這嚴格來說是一個水晶球，但沒有足夠的信息來進一步推測。 – Jeeped

是否可以從谷歌分析中使用VBA腳本提取數據？ –

解壓後你可以簡單地重命名使用Name功能，您的文件時，它

Name folder & oldFilename As folder & newFilename

來源

2016-03-03 09:44:38 lenwe

是的，這就是我所做的。謝謝：） –

Excel宏不同的文件名中提取

回答

相關問題