a********t 发帖数: 1810 | 1 两张sheets,一个名子是wageclean,一个是shift.我在shift上create一个VBA,错误是:
run-time error'-2147217904(80040e10)'
Automation Error
code:
Sub Shift()
Dim mySQL As String, i As Long
Dim mycnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path
'*******************connection to ODBC
Range("A1:F65536").ClearContents
Set mycnn = CreateObject("adodb.connection")
mycnn.Open ("provider=microsoft.jet.oledb.4.0;exten... 阅读全帖 |
|