Excelmacros错误 – “用户定义types未定义” – 引用变灰

所以我创build了这个代码（可能甚至不必显示它，但以防万一！），因为我在第一行得到“用户定义types未定义”，所以无法testing它。 我看到我应该在工具>参考中设置参考，但该选项灰显….

Sub UploadDistributors() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset strConn = "Provider=SQLOLEDB-Removed for security-Network Library=DBMSSOCN" cnn.Open strConn Dim k k = 0 For i = 1 To 352 sSQL = "INSERT INTO DistributorsNP (CompanyName, address, city, state, zip, phone, tollfree) VALUES (" 'CompanyName sSQL = sSQL & Sheet1.Range("B" & i).Value & "," 'address sSQL = sSQL & Sheet1.Range("C" & i).Value & "," 'city sSQL = sSQL & Sheet1.Range("D" & i).Value & "," 'state sSQL = sSQL & Sheet1.Range("E" & i).Value & "," 'zip sSQL = sSQL & Sheet1.Range("F" & i).Value & "," 'phone sSQL = sSQL & Sheet1.Range("G" & i).Value & "," 'tollfree sSQL = sSQL & Sheet1.Range("H" & i).Value & "," sSQL = sSQL & ")" rs.Open sSQL, cnn, adOpenStatic, adLockReadOnly, adCmdText rs.Close Next End Sub 

Answer 1

猜测你已经在编辑器中停下来，不再处于rest模式…？