软件:Excel
版本:2013
各位板上的大大好。
我有一份生产管制表在区网的Server主机上
我新开了一份Excel写了如下程式,结果在最关键的CopyFromRecordset时当机了。
Sheet name = Notice
========这个是写在新开的Excel上的按钮=======
Private Sub DueDateCrossing_Click()
Dim MS As String 'SQL command
Dim WBPath As String ' Workbook Path
Dim N As Integer 'To fetch data of N days later, N must smaller than 31
Dim D As Date ' D is refered to Date
Dim TM As Integer ' TM is refered to this month
Dim DueDate As Date 'DueDate is refered to DueDate
D = Date
TM = Month(D)
N = 3
DueDate = DateAdd("d", N, D)
WBPath = "\\Server\共用\2019生产管制表.xlsx"
MS = "SELECT * From [" & TM & "月$]" & _
" WHERE 预交日期=" & DueDate
GetData MS, WBPath
End Sub
============以下是写在Module里的Sub=======
Sub GetData(MS As String, WBPath As String)
'This sub is used to fetch data from produciton schedule.
Dim MC As String 'MC is refered to My Connection
Dim MR As ADODB.Recordset 'MR is refered to My Recordset
MC = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & WBPath & ";" & _
"Extended Properties=Excel 12.0"
Set MR = New ADODB.Recordset
MR.Open MS, MC, adOpenStatic, adLockReadOnly
Worksheets("Notice").Range("A2").CopyFromRecordset MR
End Sub
请问这是哪边出问题了呢?
烦请高手解惑,感恩。