Ⅰ excel 宏使用sql語句
1.在宏編輯界面中進行SQL數據查詢以及生成報表的代碼如下：
Sub Static()
Dim objNewWorkbook As Workbook '定義一個Workbook對象
Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path & "\模板.xlt") '使用模板文件新建一個EXCEL報表生成文件
Set objConnection = CreateObject("ADODB.Connection") '創建一個ADO連接
objConnection.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties='Excel 8.0;Hdr=yes;Imex=1';Data Source=" & ThisWorkbook.FullName '設置連接字元串
strCommand = "select 施工人, count(*) as 拆電話 from [" & Sheet1.Name & "$] where 施工動作 = '拆' and 專業類型 = '電話' group by 施工人" '查詢表單一中的數據源進行統計
?objNewWorkbook.Sheets(1).Range("A3").CopyFromRecordset objConnection.Execute(strCommand)
2.將查詢統計結果輸出到目的報表文件的表單1的從A3開始的區域中
3.下面代碼是調用EXCEL的排序方式進行漢字排序，這里SQL語句中的排序對於漢字排序與期望結果不同
4.使用EXCEL中的排序方法是根據EXCEL版本不同調用有所區別
Select Case Application.Version
Case "11.0":
objNewWorkbook.Sheets(1).Range("A3:M" & CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range("A3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Case "12.0":
objNewWorkbook.Sheets(1).Sort.SortFields.Clear
objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("A3:A" & CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With objNewWorkbook.Sheets(1).Sort
.SetRange Range("A2:M" & CStr(intSumRow - 1))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Case Else
End Select
objConnection.Close
End Sub
Ⅱ sql和宏的區別
sql和宏的區別是，sql包括宏，sql是大的概念，宏是小的概念。
1、sql是一個關系資料庫管理工具，為關系型數據和結構化數據提供了更安全可靠的存儲功能輪橋，它的管理對象是各種復雜的純桐敗數據。
2、宏是sql中的一種操作命令，和菜單操作命令一樣，兩者對資料庫施加作用的時間有所不做顫同，作用時的條件也不同。
Ⅲ ACCESS 中的 宏 是什麼他跟sql相對比，宏相當於sql中的什麼啊 ，宏的用途是什麼
access資料庫 不安全，而且數據量過小。
建議去考慮 SQL..
什麼是宏
計算機科學里的宏是一種抽象，它根據一系列預定義的規則替換一定的文本模式。Excel 辦公軟體自動集成了「VBA」高級程序語言，用此語言編制出的程序就叫「宏」。使用「VBA」需要有一定的編程基礎和耗費大量的時間，因此，絕大多數的使用者僅使用了Excel的一般製表功能，很少使用到「VBA」。 解釋器或編譯器在遇到宏時會自動進行這一模式替換。對於編譯語言，宏展開在編譯時發生，進行宏展開的工具常被稱為宏展開器。宏這一術語也常常被用於許多類似的環境中，它們是源自宏展開的概念，這包括鍵盤宏和宏語言。絕大多數情況下，使用「宏」這個詞的使用暗示著將小命令或動作轉化為一系列指令。 宏的用途在於自動化頻繁使用的序列或者是獲得一種更強大的抽象能力－－但這常常是一回事。 計算機語言如C或匯編語言有簡單的宏系統，由編譯器或匯編器的預處理器實現。C的宏預處理器的工作只是簡單的文本搜索和替換，使用附加的文本處理語言如M4，C 程序員可以獲得更精巧的宏。 Lisp類語言如Common Lisp和Scheme有更精巧的宏系統: 宏的行為如同是函數對自身程序文本的變形，並且可以應用全部語言來表達這種變形。一個C宏可以定義一段語法的替換，然而一個Lisp的宏卻可以控制一節代碼的計算。 獲得了控制代碼的執行順序（見惰性計算和非限制函數）的能力，使得新創建的語法結構與語言內建的語法結構不可區分。例如，一種Lisp 方言有 cond 而沒有if ，就可以使用宏由前者定義後者。Lisp 語法的去部主要擴展，比如面向對象的CLOS 系統，可以由宏來定義。
宏的典型應用
加速日常編輯和格式設置 組合多個命令 使對話框中的選項更易於訪問 使一系列復雜的任務自動執行
宏編程介紹
在用一種不熟悉的宏語言進行宏編程時，可以這樣做，首先記錄下用戶想要宏完成什麼，然後打開宏文件並嘗試理解命令結構如何工作。也可以修改命令以調整宏。一些宏語言，比如Great Plains賬務(？accounting)軟體的 Dexterity 運行時引擎，不能從其它數據源（如由逗號分隔的文本文件）導入數據。這一限制可以通過用更強大的編程語言，如 VBA 來創建一個計算機程序在此弱編程語言里生成一個特別的宏來解決。例如，可以對 Microsoft Excel 宏編程從擴展樣式表或文本文件中讀取數據並創建 Great Plains .mac 文件，這一文件被用於將特定的數據導入 Great Plains. 需要針對每一個新的數據集合聲稱新的 .mac 文件。
鍵盤宏
鍵盤宏和編輯器宏分別在圖形用戶界面和編輯器中被互動式地使用。使用它們可以用簡短的擊鍵代替冗長的命令序列，並為重復性任務提供了一個簡單的自動化形式。 程序員的文本編輯器 Emacs （「編輯宏」[Editing MACroS]的簡稱）是沿用這一思想的產物。事實上，大多數編輯器是由宏組成的,Emacs 最初被設計為編輯語言 TECO 的宏集，後被移植為 Lisp 的一中方言 Emacs Lisp。
宏語言
宏語言是一類編程語言，其全部或多數計算是由擴展宏完成的。宏語言並未在通用編程中廣泛使用，但在文本處理程序中應用普遍。例如， C preprocessor C 預處理器 Internet Macros(iOpus) M4(如前所述，源於AT&T，捆綁於Unix) 宏定義 c程序提供的預處理功能之一。包括帶參數的宏定義和不帶參數的宏定義。具體是指用一個指定的標志符來進行簡單的字元串替換或者進行闡述替換。形式為： #define 標志符（參數表） 字元串 宏名 在上定義中的標志符被稱為「宏名」。 宏展開 在c程序編譯時將宏名替換成字元串的過程稱為「宏展開」。
Ⅳ 在Excel里用宏實現自動生成sql語句的問題
分類: 電腦/網路猜悔 >> 程序設計 >>毀核 其他編程語言
問題描述:
請看我的Bolg里有圖片描述,一目瞭然.blog.sina/u/***********即點擊按鈕生成5條insert語句,用分號閣開.
知道思路的說下思路,知纖兆掘道細節的最好說詳細點啦,先謝謝!
解析:
Const MAX_NUM_ROW = 5000
Const PATH_OUTPUT_ROW = 1
Const PATH_OUTPUT_COL = 2
Const FILE_OUTPUT_ROW = 2
Const FILE_OUTPUT_COL = 2
'Template Info
Const ENTRP_CDE_COL = 1
Const RPT_TMPLT_ID_COL = 2
Const RPT_FMT_TYP_COL = 3
Const FNCTN_ID_COL = 4
Const TMPLT_PATH_COL = 5
Const BNDL_PATH_COL = 6
Const RPT_NAM_GEN_CLASS_COL = 7
Const RPT_DATASOURCE_CLASS_COL = 8
Const ACK_RPT_TMPLT_ID_COL = 9
Const REC_VER_NUM_COL = 10
Const INIT_TIME_COL = 11
Const LAST_UPD_TIME_COL = 12
Const LAST_UPD_BY_COL = 13
Const START_ROW = 5
Private Type Tmplt
ENTRP_CDE As String
RPT_TMPLT_ID As String
RPT_FMT_TYP As String
FNCTN_ID As String
TMPLT_PATH As String
BNDL_PATH As String
RPT_NAM_GEN_CLASS As String
RPT_DATASOURCE_CLASS As String
ACK_RPT_TMPLT_ID As String
REC_VER_NUM As String
INIT_TIME As String
LAST_UPD_TIME As String
LAST_UPD_BY As String
End Type
Dim noOfTmplts As Integer
Dim TmpltArray(MAX_NUM_ROW) As Tmplt
Private Sub CommandButton1_Click()
generateSQL
End Sub
Private Sub generateSQL()
makedir
initData
writeToFile
End Sub
Private Sub makedir()
On Error Resume Next
'Make Directory
MkDir Sheet18.Cells(PATH_OUTPUT_ROW, PATH_OUTPUT_COL)
End Sub
Private Sub initData()
Erase TmpltArray
'Erase TmpltRoleArray
'noOfUserRoles = 0
noOfTmplts = 0
Dim j As Integer
'Lookup all fields
For j = START_ROW To MAX_NUM_ROW
If Sheet18.Cells(j, RPT_TMPLT_ID_COL) = "" Then
Exit For
End If
'Set Template
TmpltArray(noOfTmplts).ENTRP_CDE = Sheet18.Cells(j, ENTRP_CDE_COL)
TmpltArray(noOfTmplts).RPT_TMPLT_ID = Sheet18.Cells(j, RPT_TMPLT_ID_COL)
TmpltArray(noOfTmplts).RPT_FMT_TYP = Sheet18.Cells(j, RPT_FMT_TYP_COL)
TmpltArray(noOfTmplts).FNCTN_ID = Sheet18.Cells(j, FNCTN_ID_COL)
TmpltArray(noOfTmplts).TMPLT_PATH = Sheet18.Cells(j, TMPLT_PATH_COL)
TmpltArray(noOfTmplts).BNDL_PATH = Sheet18.Cells(j, BNDL_PATH_COL)
TmpltArray(noOfTmplts).RPT_NAM_GEN_CLASS = Sheet18.Cells(j, RPT_NAM_GEN_CLASS_COL)
TmpltArray(noOfTmplts).RPT_DATASOURCE_CLASS = Sheet18.Cells(j, RPT_DATASOURCE_CLASS_COL)
TmpltArray(noOfTmplts).ACK_RPT_TMPLT_ID = Sheet18.Cells(j, ACK_RPT_TMPLT_ID_COL)
TmpltArray(noOfTmplts).REC_VER_NUM = Sheet18.Cells(j, REC_VER_NUM_COL)
TmpltArray(noOfTmplts).INIT_TIME = Sheet18.Cells(j, INIT_TIME_COL)
TmpltArray(noOfTmplts).LAST_UPD_TIME = Sheet18.Cells(j, LAST_UPD_TIME_COL)
TmpltArray(noOfTmplts).LAST_UPD_BY = Sheet18.Cells(j, LAST_UPD_BY_COL)
noOfTmplts = noOfTmplts + 1
Next
End Sub
Private Sub writeToFile()
Dim lvOutputPath As String
lvOutputPath = Sheet18.Cells(PATH_OUTPUT_ROW, PATH_OUTPUT_COL) & "\" & Sheet18.Cells(FILE_OUTPUT_ROW, FILE_OUTPUT_COL)
If lvOutputPath = "" Then
MsgBox "File Output Path Missing!"
Exit Sub
End If
fileNum = FreeFile
' Open Output Path
Open lvOutputPath For Output As fileNum
Dim lvUserSql As String
For j = 0 To noOfTmplts - 1
lvUserSql = "INSERT INTO RS_RPT_TMPLT(ENTRP_CDE,RPT_TMPLT_ID,RPT_FMT_TYP,FNCTN_ID,TMPLT_PATH,BNDL_PATH,RPT_NAM_GEN_CLASS,RPT_DATASOURCE_CLASS,ACK_RPT_TMPLT_ID,REC_VER_NUM,INIT_TIME,LAST_UPD_TIME,LAST_UPD_BY) " & _
"values('TF','" & TmpltArray(j).RPT_TMPLT_ID & "','" & TmpltArray(j).RPT_FMT_TYP & "','" & TmpltArray(j).FNCTN_ID & "','" & TmpltArray(j).TMPLT_PATH & "','" & TmpltArray(j).BNDL_PATH & "','" & _
TmpltArray(j).RPT_NAM_GEN_CLASS & "','" & TmpltArray(j).RPT_DATASOURCE_CLASS & "','" & TmpltArray(j).ACK_RPT_TMPLT_ID & "'," & TmpltArray(j).REC_VER_NUM & "," & TmpltArray(j).INIT_TIME & "," & TmpltArray(j).LAST_UPD_TIME & ",'" & TmpltArray(j).LAST_UPD_BY & "');"
Print #fileNum, lvUserSql
Next
Close fileNum
MsgBox "Finished"
Exit Sub
Err_Open_File:
Close lvFileNum
If Err.Number = 76 Then
'Path Not Found
MsgBox Err.Description
Exit Sub
Else
MsgBox Err.Description
Exit Sub
End If
End Sub
Ⅳ 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