以下是我在宏里面的详细代码SubInputUCCData()DimcnnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetDimstrCnnAsString,strCnn2AsStringstrCnn="Provider=SQLOLEDB.1;Password=sele...
以下是我在宏里面的详细代码
Sub InputUCCData()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strCnn As String, strCnn2 As String
strCnn = "Provider=SQLOLEDB.1;Password=select;Persist Security Info=True;User ID=reader;Initial Catalog=CreadUP4;Data Source=172.18.40.60"
Dim strBeginDate As String, strEndDate As String, strSQL As String, strSQL2 As String, strCustomer As String
On Error Resume Next
Sheets(1).Select
Cells.Select
Selection.ClearContents
Range("A1").Select
strBeginDate = InputBox("请输入开始:", "开始时间", Format((Date - 30), "yyyy-mm-dd"))
strEndDate = InputBox("请输入结束日期:", "日期选择", Format(Date, "yyyy-mm-dd"))
On Error GoTo err
If cnn.State = adStateOpen Then cnn.Close
cnn.ConnectionString = strCnn
strSQL = "exec usp_queryprice '" & strBeginDate & "','" & strEndDate & "'"
cnn.Open
rst.Open strSQL, cnn, adOpenStatic, adLockReadOnly, -1
With Sheets(1).QueryTables.Add(rst, Sheets(1).Range("A1"))
.Refresh
End With
If rst.RecordCount = 0 Then
MsgBox "Havn't Related Record!", vbCritical, "Input Data Error"
Exit Sub
End If
rst.Close
cnn.Close
Exit Sub
err:
MsgBox "Open Record Error,Please Contact IT Staff!", vbCritical, "Error"
End Sub
展开