① 如何在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以后无法连接oracle数据库了
首先看是否加载连接数据库的引用没?
其次如果是在别的主机上使用你自己写好的VBA,有时需要重新引用.
最后看你的oracle数据库是否搭建完成,用sqlplus登陆查询下.
③ Excel宏操作SQL数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim strSQL As String
Dim CountryCode As String
Dim CountryName As String
Dim DeleteFlg As String
Dim CreateBy As String
Dim UpdateBy As String
'strCn = "Provider=sqloledb;Server=xxxx;Database=xxxx;Uid=sa;Pwd=sa;"
strCn = strConn
'MsgBox strCn
'open connect
cn.Open strCn
'**********************************************
strSQL = "DELETE FROM xxxx"
cn.Execute strSQL
cn.Close
'get the max row number
Dim RowCount As Integer
RowCount = Sheet3.UsedRange.Rows.Count
'get the time
Dim nowtime As Date
nowtime = Now()
'MsgBox nowtime
Dim index As Integer
For index = 0 To RowCount
'get data from excel
111= Cells(index, 1).Value
2222= Cells(index, 2).Value
DeleteFlg = "0"
3333= Cells(index, 3).Value
4444= Cells(index, 4).Value
④ Excel里做的宏，下载到桌面但是显示链接不上数据库，不知道怎么解决。 显示的Erro是以下内容
方法/步骤
1
双击这个Excel文件，点击开始按钮后没有响应，也没有达到一个预期的结果，而且开始按钮与朋友发过来的截图一致都没有显示完全，点击图中开始按钮后也没有下沉的这么一个操作。
2
但是点击开始按钮后在Excel文件中发现这么一段提示信息“安全警告：宏一被禁用。”旁边有一个【选项】按钮
3
在点击【选项】按钮后弹出了一个microsoft office安全显示对话框，有一段文字进行说明大体意思就是宏被禁用，如果不信任其来源，请不要启动此内容。下方有两个选择项默认选择的是第一个即“有助于保护我避免未知内容风险”第二个即启用此内容，选择启用此内容点击【确定】
4
点击【确定】按钮后再次点击Excel文件的【开始】按钮就能够顺利打开文件了。
END
方法2/步骤
可以通过左上角的Office的图标→点击【Excel选项】→信任中心→信任中心设置→宏设置进入；也可以在上面方法点击【选项】后在左下角点击【打开信用中心】进行设置
打开信用中心设置后，选择【宏设置】。注：在宏设置中设置相对于在上面方法提示信息中设置的不同就是一个一劳永逸的效果，在宏设置后会保存以后遇到宏的问题也会生效，避免了以后重复的操作。
宏设置提供了4种可以永远选择的选项，第一个是禁用所有的宏，不会通知，第二个是禁用宏但是会通知，选择这一个的好处就是能够有提示以后遇到问题不能打开时知道原因所在，第三个是一个数字签署的认证，有认证信息的将会得到通过否则会拒绝，第四个启用所有宏这个任何都可以运行，但是安全级别显然就是最低的了。具体选择看读者具体情况。
设置后保存，关闭Excel重新打开这个Excel文件，保存生效，点击就不会再出现警告提示了。
⑤ mac 微软Excel怎么链接数据库
1、打开excle，单击左上角【文件】按钮。
⑥ 如何在excel中编写宏读取数据库
Subtest()
SetoExcel=GetObject(,"Excel.Application")
SetoWb=oExcel.Workbooks.Open("D: est.xls")'写你自己的Excel路径
MsgBoxoWb.Sheets("Sheet1").Range("C5")'取"Sheet1"工作表C5单元格的值
oExcel.Quit'退出Excel
EndSub
按Alt+F11打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。
这里采用的是后置绑定方法，无需事先加载Excel对象引用库。
如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：
oExcel.Visible = False
⑦ 用excel宏，连接sql数据库导出表字段数据到指定列，且加上条件判断后填充单元格
SubMacro2()
DimiAsInteger
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimstrCn,strSQLAsString
strCn="Provider=sqloledb;Server=XX;Database=XX;Uid=sa;Pwd=XX;"
strSQL="SELECTitem_noFROMt_bd_item_infowhereitem_clsno='LB'"
cn.OpenstrCn
rs.OpenstrSQL,cn
Worksheets("sheet1").Unprotect
DoWhileNotrs.EOF
fori=1to[a65536].end(3).row
ifrange("a"&i)<>""andrange("b"&i)=""andrange("c"&i)=""then
range("c"&i)=rs("item_no")
gotoabc
else
endif
next
abc:
rs.MoveNext
Loop
rs.Close
cn.Close
EndSub
试下
⑧ 宏命令可以连接数据源吗
可以的，可以读取数据库和Excel文件（不打开的情况下）
⑨ Excel宏是否可以直接操作MySQL数据库
可以
我现在有一张每周更新的excel销售订单表，于是我把excel另存为UTF-8编码方式的.csv文件（当前已支持Excel，可以省略此步骤），上传到QuickBI中。
注：如数据源换成Mysql、Sqlserver等其他数据库，以下操作步骤类似，依然适用。
⑩ excel如何加载宏，加载分析数据库的功能
在Excel2007版本中，添加加载项的分析工具库的功能，在“Excel选项”中选择添加即可，详细操作步骤如下：
1、打开Excel表格，点击左上角的office图标，在弹出的菜单中的右下角就可以看到“Excel选项”，点击进入；
2、在Excel选项的窗口中，可以看到加载项，选择进入相应的界面；
3、可以看到“分析工具库”加载项，处于非活动状态，在底部选择“转到”选项；
4、弹出一个新的窗口，勾选“分析工具库”最后点击“确定”选项，接下来等待Excel安装完成之后，就可以使用。