excel宏資料庫

❶ Excel里做的宏，下載到桌面但是顯示鏈接不上資料庫，不知道怎麼解決。 顯示的Erro是以下內容

方法/步驟
1
雙擊這個Excel文件，點擊開始按鈕後沒有響應，也沒有達到一個預期的結果，而且開始按鈕與朋友發過來的截圖一致都沒有顯示完全，點擊圖中開始按鈕後也沒有下沉的這么一個操作。

2
但是點擊開始按鈕後在Excel文件中發現這么一段提示信息「安全警告：宏一被禁用。」旁邊有一個【選項】按鈕

3
在點擊【選項】按鈕後彈出了一個microsoft office安全顯示對話框，有一段文字進行說明大體意思就是宏被禁用，如果不信任其來源，請不要啟動此內容。下方有兩個選擇項默認選擇的是第一個即「有助於保護我避免未知內容風險」第二個即啟用此內容，選擇啟用此內容點擊【確定】

4
點擊【確定】按鈕後再次點擊Excel文件的【開始】按鈕就能夠順利打開文件了。

END
方法2/步驟
可以通過左上角的Office的圖標→點擊【Excel選項】→信任中心→信任中心設置→宏設置進入；也可以在上面方法點擊【選項】後在左下角點擊【打開信用中心】進行設置

打開信用中心設置後，選擇【宏設置】。註：在宏設置中設置相對於在上面方法提示信息中設置的不同就是一個一勞永逸的效果，在宏設置後會保存以後遇到宏的問題也會生效，避免了以後重復的操作。

宏設置提供了4種可以永遠選擇的選項，第一個是禁用所有的宏，不會通知，第二個是禁用宏但是會通知，選擇這一個的好處就是能夠有提示以後遇到問題不能打開時知道原因所在，第三個是一個數字簽署的認證，有認證信息的將會得到通過否則會拒絕，第四個啟用所有宏這個任何都可以運行，但是安全級別顯然就是最低的了。具體選擇看讀者具體情況。

設置後保存，關閉Excel重新打開這個Excel文件，保存生效，點擊就不會再出現警告提示了。

❷ excel裡面宏寫的vba,資料庫能單獨進行資料庫整合嘛

vba是在最初組織舊版評教系統時就接觸過的，但一直沒研究過，也沒仔細看過。只知道它可以整理數據。
了解：
Visual Basic for Applications（VBA）是Visual Basic的一種宏語言，是微軟開發出來在其桌面應用程序中執行通用的自動化(OLE)任務的編程語言。主要能用來擴展Windows的應用程式功能，特別是Microsoft Office軟體。也可說是一種應用程式視覺化的Basic 腳本。——來自網路

背景：
這次使用vba是因為：這次評教最初用的外網，連的萬達238的資料庫，但由於伺服器出現問題，及時更換了區域網，連的校內207的庫。之後萬達伺服器恢復後，又繼續用外網。即：評教的數據在兩個資料庫中。這樣對統計成績就造成了一定的困難。——如何對成績進行整合？？

解決：
其實在這里用vba，就相當於把excel當成資料庫，對其進行操作。

我是先把成績分別導出來，也就是有兩份成績單。每一份都不完整：有可能一個老師，一部分學生給的分在1個庫中，另一部分的分在另一個庫。這樣統計出來成績就是這樣的：

資料庫1：

資料庫2：

vba代碼：

'作 者：趙寒-借鑒師哥舊版vba
'時 間：2016-6-19 19:52:10
'過程說明：此過程為多個庫中評教數據合並專用過程。主要功能是計算某教師、某課程在多個庫中學生評分
' 的平均值。
'使用說明：處理的Excel必須是直接從評教系統導出的Excel，不得更換Excel中列的順序。且需要將多個成績單數據放在同一個excel進行整合統計。

Sub formatting()
Dim rowCount As Integer '總行數
Dim colCount As Integer '總列數
Dim tempRowCount As Integer '臨時行數
Dim tempColumnCount As Integer '臨時列數
Dim arrResult(100) As String '存放臨時結果
Dim strSheetName As String '存放原工作表名
Dim sheetResult As Worksheet '自定義的工作表
Dim n

❸ 用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版本的不同，略有不同，你可以參考「幫助」的功能。 至於，能不能在你的電腦內使用宏，還要看你的Excel安裝過程中，有沒有附帶安裝。宏的使用，會涉及到VB編輯器，如果想很好的使用，需要花費時間去研究。

❺ 如何在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中編寫宏讀取資料庫

• 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中載入宏中添加分析資料庫

在excel2007版本中，添加載入項的分析工具庫的功能，在「excel選項」中選擇添加即可，詳細操作步驟如下：
1、打開excel表格，點擊左上角的office圖標，在彈出的菜單中的右下角就可以看到「excel選項」，點擊進入；
2、在excel選項的窗口中，可以看到載入項，選擇進入相應的界面；
3、可以看到「分析工具庫」載入項，處於非活動狀態，在底部選擇「轉到」選項；
4、彈出一個新的窗口，勾選「分析工具庫」最後點擊「確定」選項，接下來等待excel安裝完成之後，就可以使用。

❽ 我想用Excel宏編寫代碼來對SQL資料庫進行連接和操作，請教詳細的步驟或方法，重分！！！！一定加分

參考網上資料：
http://www.access-cn.com/offspace/html/32/n-532.html
一、載入ODBC宏（OFFICE2000光碟有提供）後您就可以使用該函數了。語法及示例詳參《OFFICE2000幫助文檔》，全篇如下：Office中國社區門戶4q_
Sz y0[ Z!g

連接到外部數據源並運行工作表中的查詢。然後，函數 SQL.REQUEST 以數組形式返回結果，而不必運行宏。如果該函數不存在，就必須安裝 Microsoft Excel 的 QDBC 載入宏（XLODBC.XLA）。Office中國社區門戶(m1n:jj(alT3^

語法Office中國社區門戶}
}o%p&I"ev"b

SQL.REQUEST(connection_string,output_ref,driver_prompt,query_text,col_names_logical)

.I3ow{0F
Kh,]*S'A5V:Eq0
Connection_string 提供信息，如數據源名稱、用戶標識和口令等。這些信息對於連接數據源的驅動程序是必需的，同時它們必須滿足驅動程序的格式要求。下表給出用於 3 個不同驅動程序的 3 個連接串的示例。

#RT"~6e7h&? M!`'J0
o
T f'j%o)M0 驅動器 連接串
dBASE DSN=NWind;PWD=test
SQL Server DSN=MyServer;UID=dbayer; PWD=123;Database=Pubs
ORACLE DNS=My Oracle Data Source;DBQ=MYSER VER;UID=JohnS;PWD=Sesame
Office中國社區門戶r;}??X7||

7V2\O e&{S I;mIT8N0

在試圖連接到數據源之前，必須定義在 connection_string 中使用的數據源名稱（DSN）。Office中國社區門戶p.D9{8]k }

Z0k0X/@ Q6|#rAP~0 可以以數組或字元串的形式輸入 connection_string。但如果 connection_string 超過 250 個字元，必須按數組的形式輸入。
4_0M+Hb&At3^0Office中國社區門戶b-Q0iI9p)Y
如果函數 SQL.REQUEST 不能使用 connection_string 訪問數據源，則返回錯誤值 #N/A。 Output_ref 對用於存放完整的連接字元串的單元格的引用。如果在工作表中輸入函數 SQL.REQUEST，可以忽略 output_ref。

當需要函數 SQL.REQUEST 返回完整的連接串時,可以使用 output_ref（此種情況下，必須在宏表中輸入函數 SQL.REQUEST）。Office中國社區門戶#^;a#C/b9r~&d
Office中國社區門戶K$M'FCJXb
如果省略 output_ref，函數 SQL.REQUEST 不能返回完整的連接串。 Driver_prompt 指定驅動程序對話框的顯示時機以及可用的選項。可以使用下表中所描述的數字來描述 driver_prompt。如果省略 driver_prompt，函數 SQL.REQUEST 默認為 2 。

2cX!c0~e5Rl&RT6U0 Office中國社區門戶X9d7G _n
Driver_prompt 說明
1 一直顯示驅動程序對話框。
2 只有在連接串和數據源說明提供的信息不夠充分，以致不能完成連接時，才顯示驅動程序對話框。所有對話框選項都可使用。
3 只有在連接串和數據源說明提供的信息不夠充分，以致不能完成連接時，才顯示驅動程序對話框。如果未指明對話框選項是必需的，這些選項是暗的，不能使用。
4 不顯示對話框。如果連接不成功，則返回錯誤值。

{ |1@Pi)L0Office中國社區門戶8_E8q4L9x]6X4J"_/C

Query_text 需要在數據源中執行的 SQL 語句。

如果函數 SQL.REQUEST 不能在指定的數據源中執行 query_text，則返回錯誤值 #N/A 。Office中國社區門戶*`%S Hr+C7e6A1h3f
Office中國社區門戶Eg.\*_H)yB
可以將引用連接到 query_text 上來更新查詢。在下面的例子中，每次 $A$3 改變，函數 SQL.REQUEST 使用新的數值來更新查詢。
"SELECT Name FROM Customers WHERE Balance > "&$A$3&"".

Microsoft Excel 將串長度限制在 255 個字元內。如果 query_text 超過此長度，請在垂直單元格區域中輸入查詢並使用整個區域作為 query_text。所有單元格的值連接在一起，形成完整的 SQL 語句。 Office中國社區門戶 S,m/u(k]
Column_names_logical 指明是否將列名作為結果的第一行返回。如果要將列名作為結果的第一行返回，請將該參數設置為 TRUE。如果不需要將列名返回，則用 FALSE。如果省略 column_names_logical，則函數 SQL.REQUEST 不返回列名。

/q#H@B#Y:ji_0
返回值

如果此函數完成了它的所有功能，則返回查詢結果數組或受查詢影響的行數。Office中國社區門戶WRBy h&O@Pll
Office中國社區門戶)z*WnpE1J'E$?.@
如果函數 SQL.REQUEST 不能使用 connection_string 訪問數據源，則返回錯誤值 #N/A。

3u'sr+~9~/yFTfmS0說明

函數 SQL.REQUEST 可以以數組的形式輸入。如果以數組形式輸入函數 SQL.REQUEST，該函數將返回一個恰好填充選定區域的數組。Office中國社區門戶 cq8Xq ]NS
Office中國社區門戶(^T%b7@ ]y
如果單元格區域大於結果集，函數 SQL.REQUEST 向返回的數組添加空單元格，直至增加到所需要的大小。
;Y"X;FA,kW0
+Lu"l5@?0 如果結果集大於以數組形式選定的輸入區域，函數 SQL.REQUEST 返回整個數組。Office中國社區門戶]/y){ Q sIX
Office中國社區門戶1c#ZY8`7n$YRp&x
函數 SQL.REQUEST 參數的次序與 Visual Basic for Application 中函數 SQLRequest 的參數次序不同。
Office中國社區門戶"C!pK p9O6BnlPj
示例

6c!s3F^-TzT_0
假設需要對名為 DBASE4 的 DBASE 資料庫進行查詢。如果在單元格中輸入下列公式，將會返回查詢結果數組，其中第一行是列名：Office中國社區門戶B9]4[RqK_w
c

SQL.REQUEST("DSN=NWind;DBQ=c:\msquery;FIL=dBASE4", c15, 2,
"Select Custmr_ID, Due_Date from Orders WHERE order_Amt>100", TRUE)二、用「數據」菜單上的「獲取外部數據」-「新建資料庫查詢」向導獲取資料庫數據。用該向導取得數據後，以後該工作表的數據以後會隨數據動態更新（在不移動數據源文件的前提下）。注意：請仔細設置外部數據表的屬性，會有更多收獲。
以上答案供參考

❾ Excel宏是否可以直接操作MySQL資料庫

可以
我現在有一張每周更新的excel銷售訂單表，於是我把excel另存為UTF-8編碼方式的.csv文件（當前已支持Excel，可以省略此步驟），上傳到QuickBI中。
註：如數據源換成Mysql、Sqlserver等其他資料庫，以下操作步驟類似，依然適用。

❿ 如何對Excel 宏 按照資料庫的方式統計分析

Excel2007如何載入宏進行數據分析_網路經驗 http://jingyan..com/article/647f01158297de7f2148a8e0.html