Question

我有一个宏，它会将数据从csv文件复制到我的excel文件，如果文件名每次都相同，那么效果很好。这就是问题所在：每次都不是同一个名字。

我需要脚本允许用户选择csv文件。然后，允许它复制的代码。这就是我所拥有的：

Sub importmix()

    Worksheets("mixdata").Range("A1:P300").Clear

    '## Open workbooks first:
    Set X = Workbooks.Open("C:\test\mix.csv")
    '## Set values between workbooks
    Workbooks("2.xlsm").Worksheets("mixdata").Range("A1:K300").Value = _
        Workbooks("mix.csv").Worksheets("mix").Range("C1:M300").Value

    '##Close x:
    X.Close False
End Sub

Answer 1

我认为你正在寻找这样的东西：

Sub test()
    Dim intResult As Integer
    Dim fD As FileDialog

    Set fD = Application.FileDialog(msoFileDialogFilePicker)

    With fD
        .Title = "Select a Path"
        .AllowMultiSelect = False
        .Show
    End With

    importmix fD.SelectedItems(1)

End Sub

Sub importmix(path As String)

    Worksheets("mixdata").Range("A1:P300").Clear

    '## Open workbooks first:
    Set X = Workbooks.Open(path)
    '## Set values between workbooks
    Workbooks("2.xlsm").Worksheets("mixdata").Range("A1:K300").Value = _
        Workbooks(Dir(path)).Worksheets(Dir(Replace(UCase(path), ".csv", ""))).Range("C1:M300").Value

    '##Close x:
    X.Close False

End Sub

Dir(path)为您提供文件名。 csv会自动打开一张没有扩展名的文件名，因此删除.csv可以解决这个问题。

Answer 2

应该可以使用：

Dim intResult as integer
'Dialogue box name
Application.FileDialog(msoFileDialogFolderPicker).Title = "Select a Path"
'The dialog is displayed to the user
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show

Excel vba用户选择工作簿然后复制数据

2 个答案: