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

如何在excel里使用 Marco宏来实现调用外部数据库里的内容形成一个属于自己的小数据库~ 高手请指教。~

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

用循环和dir语句找到要打开的工作薄
用open语句打开工作薄
用循环语句或用复制Copy粘贴Paste语句复制内容
用Close关闭粘贴完的工作薄

这个很简单，代码如下：

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

Sub shujuchengji()
'实现读取数据写入数据库
Dim SqlStr, str As String
Dim EndRow As Integer

'str = CurDir(ThisWorkbook.FullName) 表示当前文件夹，你可以选择用
str = "c:\1.mdb" ' 你数据库的路径
Dim Con As New ADODB.Connection
On Error GoTo err:
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & str

SqlStr = "" '里面是sql语句
Con.Execute SqlStr

Con.Close
MsgBox "导入成功"
Exit Sub
err:
MsgBox "数据连接错误"

End Sub

---

东港区15263946776： 如何在excel中通过宏来直接取得数据库中的数据? - ？
代雍澳蒲： 这个很简单,代码如下:Sub C5C15_B3B13() Dim Fo As Object, myName As StringSet Fo = Application.FileDialog(msoFileDialogFilePicker) Fo.Title = ＂请选择您要复制C5:C15数据的文件:＂ If Fo.Show = True Then myName = Fo....

东港区15263946776： 各位大神,小弟想在excel中用宏直接获取表格中的内容,具体的代码要怎么写?? - ？
代雍澳蒲： 你好,可以用这个命令取得那个公式内容,＂=＂号,可以用文本函数取消掉 aa = Cells(1, 1).Formula

东港区15263946776： Excel 怎样用宏提取工作表数据 - ？
代雍澳蒲： 从同一个工作簿不同的sheet抽取数据 从另一个工作簿的sheet抽取数据 这是两种情况,不要混了.你是哪种? 宏可以实现.

东港区15263946776： excel中有没有什么宏可以直接把数据导出来? - ？
代雍澳蒲： 自己写入一个宏: Sub SaveData()ActiveWorkbook.SaveAs Filename:=＂F:\My Documents\Book1.txt＂, FileFormat:= _xlText, CreateBackup:=False End Sub

东港区15263946776： 什么叫宏?怎样在EXCEL表格中运用宏? - ？
代雍澳蒲： 宏也是一种操作命令,它和菜单操作命令都是一样的,只是它们对EXCEL施加作用的时间有所不同,作用时的条件也有所不同.菜单命令一般用在EXCEL的设计过程中,而宏命令则用在EXCEL的执行过程中.菜单命令必须由使用者来施加这个操作,而宏命令则可以在EXCEL中自动执行. 如果你有VBA编程基础,可以自己编辑宏,对于初学者来说,最好利用录制宏,来解决日常工作是重复操作

东港区15263946776： 怎么在宏中调用excel数据? - ？
代雍澳蒲： 工具:office excel 步骤:1、打开office excel,点击选项,工具选项菜单>宏>录制宏.2、对宏进行操作,例如想使选中区域数据居中对齐,则对数据进行居中操作,最后点击终止按钮即可.3、查看源代码点击键盘alt+f11即可完成.

东港区15263946776： excel如何使用宏!且宏有哪些技巧了??? - ？
代雍澳蒲： “宏”,并不神秘,就是把一系列常用的操作作为一个整体,保存起来,以后用的时候直接通过一定方式用就是了.举例如下:比如你要对多处不在一起的文字设置同样的格式,你就可以将其建立为宏.方法是,在excel或者word中选中文字,点工具-“宏”-“录制新宏”-在出现的对话框中输入名字,点“键盘”按钮,并将其快捷键设置为1或者其他的,确定.

东港区15263946776： excel宏是什么?是怎么弄的?？
代雍澳蒲： excel宏,也叫vba,是用于操作excel中内容或对象的内嵌的一种专门用途的程序设计语言,它没有通用性,只能在excel中使用,它比直接用菜单或鼠标操作excel对象功能更强大,当然对使用者难度来讲也高了. 怎么弄的问题,以excel2007为例,可以用快捷键alt+f11直接调出vbe即vba.编辑器,就可以在里面进行编程序.excel宏就通过编程弄出来了. 关于录制:要先在“开发工具”菜单下先选中按钮“录制宏” ,然后你就可以操作,excel会以vba语言形式记录你的动作,它就是一段自动录制的程序,当你选择“停止录制后”,excel会提示你保存,录制也就结束了

东港区15263946776： excel中宏的作用和使用方法 - ？
代雍澳蒲： 宏的作用是,当你对一个表格有一系列的操作,同时这些操作是有固定的顺序的,而这些操作你常常需要重复去做,这样的话,你可以把这些操作做出一个宏,每次运作宏一次,就把这一系列的操作重复了一遍. 所以,宏,其实就是一个多项操作的集合.比如,有些报表是需要每月、甚至每周都要做一次的,而操作的过程是一样的,那你就可以利用宏这个功能了. 宏的使用,包括:创建宏,录制宏,编辑宏,运行宏,和删除宏等等.详细的操作,根据你使用的Excel版本的不同,略有不同,你可以参考“帮助”的功能. 至于,能不能在你的电脑内使用宏,还要看你的Excel安装过程中,有没有附带安装.宏的使用,会涉及到VB编辑器,如果想很好的使用,需要花费时间去研究.

东港区15263946776： 如何使用Excel中的宏? - ？
代雍澳蒲： 宏类似于计算机程序,但是它是完全运行于Excel之中的,我们可以使用宏来完成枯燥的、频繁的重复性工作.宏完成动作的速度比用户自己做要快得多.例如,我们可以创建一个宏,用来在工作表的每一行上输入一组日期,并在每一单元格内...