使用VBA

我試圖創建一個宏，將導入.xls文件到其他電子表格導入promped xls文件到Excel中。唯一的問題是，這個文件直接存儲於二零一文件夾，所以每次我需要從不同的一個拉。有沒有辦法讓該框提示的你要求特定的文件夾。文件的名稱始終相同。謝謝使用VBA

要澄清：日期文件夾是：K：......... \ 2016-01-18（示例）\「fileName.xls」所以我需要盒子，將提示日期在格式「YYYY-MM-DD」，以從上述目的地調用正確的文件夾，然後起到拉特定的（常數）「fileName.xls」

來源

2016-01-15 Andrew

你能不能把你創建的宏的代碼？作爲文件夾地址的格式？ –

或者你可以避開提示，只是當前日期作爲開始，如果它總是在當天或後一天或類似的東西......要獲得提示參見[Application.FileDialog（msoFileDialogFolderPicker）]（HTTPS：/ /msdn.microsoft.com/en-us/library/office/ff836226.aspx） –

下列功能就會做到這一點。 fileLoc是到該文件夾的完全限定路徑，fileMain是文件名（注意，該代碼將通配符此）和擴展名是希望明顯（再擴展，再次支持通配符。）：

Public Function getFileName(ByVal fileLoc As String, ByVal fileMain As String, ByVal extension As String) As String 
    Dim fDialog As Object 
    Set fDialog = Application.FileDialog(3) ‘File picker dialog box. 
    Dim varFile As Variant 
    fDialog.AllowMultiSelect = False 
    fDialog.Title = "Select file for input: " 
    fDialog.InitialFileName = fileLoc + "*" + fileMain + "*" + extension 
    If fDialog.Show = True Then 
     For Each varFile In fDialog.SelectedItems 
      getFileName = varFile 
     Next 
    End If 
End Function

您可以使用這也用於導航文件夾。

來源

2016-01-15 15:58:38 PKatona

回答

相關問題