Question

Excel用宏来调用其它Excel文件的数据，并复制下来保持于这个Excel中某个工作表中。

举个例子，我在C:\1\S文件夹中有个Excel文件，文件名是test_demo.xlsx
这个文件中有个工作表，名为Voice Quality,我需要的数据是从C5到C15单元格。
我需要将这些数据复制到我当前打开的这个Excel中 Sheet2 工作表的B3到B13单元格中。
求高手。
还有我希望我在A1中输入C:\1\S\[test_demo.xlsx]来控制读取哪个文件，或者直接弹出文件选择器，让我选择读取哪个文件的数据那当然更好了。

Answer 1

你的这个很简单，代码如下：

Sub C5C15_B3B13()
    Dim Fo As Object, myName As String 
    Set Fo = Application.FileDialog(msoFileDialogFilePicker)
    Fo.Title = "请选择您要复制C5：C15数据的文件："
    If Fo.Show = True Then myName = Fo.SelectedItems(1)
    If myName = "" Then
        MsgBox "您取消了文件选择，所以本次处理未完成，将直接退出", vbOKOnly + vbInformation
        Exit Sub
    End If
    
    Dim wb as Workbook
    For Each wb in Workbooks
        if wb.Fullname = myName then Goto wbHasOpened
    Next
    set wb = workbooks.open(myname)
wbHasOpened:
    
    Dim sh as worksheet
    For each sh in wb.sheets
        if sh.name = "Voice Quality" Then
            [b3:B13] = sh.[c5:c15].value
            Exit For
        end if
    Next
    Msgbox "处理完成！"
    wb.close True
End Sub