Question

我在初始化时设置了VBA Userform（在word文档中），设置它以便通过外部Excel文件填充组合框（MoniesInDescription）。

它工作正常，除非我保存了我的文档并重新打开，如果我尝试运行代码我得到＆＃39;运行时错误94：无效使用空＆＃39;。我还没有改变任何数据。

我曾经多次使用Userform_Initialize代码，突然无法正常工作我不确定为什么？

Private Sub UserForm_Initialize()


Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Users\m\Desktop\csvalues.xls;" & _
              "Extended Properties='Excel 8.0;HDR=Yes'"
conn.Open

statement = "SELECT [Sale Monies In] FROM [Description$]"

Set rs = conn.Execute(statement, , adCmdText)

 With MoniesInDescription
 Do Until rs.EOF
.AddItem CStr(rs.Fields("Sale Monies In").Value)
 rs.MoveNext
 Loop
 End With

 rs.Close
 conn.Close

 End Sub

Answer 1

尝试使用

＆＃13;

.AddItem CStr(rs.Fields('" & SaleMonies & "').Value)

＆＃13;

我希望它支持你的要求。

Userform_Initialize重新打开空字符串

1 个答案: