① 如何在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安裝完成之後，就可以使用。