如何在excel里使用 Marco宏来实现调用外部<em>数据库</em>里的...-excel

你需要的语句是：
Range("a1").QueryTable.Refresh BackgroundQuery:=False

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 1) =这样很难说清zd楚，简单的就是在一个图片框里回设置公式调用相应答的图片。具体的

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

Sub C5C15_B3B13()
    Dim Fo As Object, myName As String 
    Set Fo = Application.FileDialog(msoFileDialogFilePicker)
    Fo.Title = "请选择您要复e69da5e887aae799bee5baa6e79fa5e98193362制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

这个很简单，代码如下：

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 "您取消了文件选择，所以本次处理未完成，将直接7a64e59b9ee7ad94334退出", 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