如何在excel中通过宏来直接取得数据库中的数据？

这个很简单，代码如下：

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

模块上右键菜单——导出文件

新Excel文件中，打开VBA编辑器，导入文件，找到刚导出的文件导入即可。

如果需要执行这样检查的文件不是特别多的话，还是逐一导入模块比较合适；如果特别多的话，可以考虑专门制作一个模板文件（.xlt），在其中加上你的宏，然后你的这些文件就使用这个专门的模板，其他文件不会受影响的。

Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。

---