excel - 将工作簿中的数据检索到不同工作簿中的用户窗体

Question

我有一个充当数据库的 Excel 工作簿和一个充当 UI 的用户窗体。两者都在不同的工作簿中。

我想用 Excel 工作簿中的数据填充用户窗体。

Private Sub CommandButton4_Click()
    Dim n As Long, i As Long
    n = 0
    Dim mydata1 As Workbook        

    Set mydata1 = Workbooks.Open("\\NTSYDFSP150\Shared\fmd\credit\LEM_Reports\SV References\SV Entry Form Input.xlsx")

    mydata1.Worksheets("sheet1").Activate
    mydata1.Worksheets("sheet1").Range("A1").Select

    n = Worksheets("sheet1").Range("a1").CurrentRegion.Rows.Count

    For i = 2 To n 
        If Trim(Sheet1.Cells(i, 1)) <> Trim(UserForm1.TextBox157.Text) And i = n Then
            MsgBox ("Name not found") 
        End If

        If Trim(Sheet1.Cells(i, 1)) = Trim(UserForm1.TextBox157.Text) Then
            UserForm1.TextBox1.Text = Sheet1.Cells(i, 1)
            Exit For
        End If
    Next i

    mydata1.Save
    mydata1.Close

    MsgBox "Data searched successfully", 0, vbNullString
End Sub

问题 :
当我运行代码时，无法从工作簿 Excel 数据库中检索数据。
Sheet1.Cells(i, 1) : - 该字段仍然指的是用户表单工作簿中的 Shee1，而它应该指的是共享驱动器位置的工作簿，因为我已经激活并打开了它。

注: n计算正确。

Answer 1

我清理了您的代码并在必要时限定了范围。不限定范围很可能是这里的错误。示例:Worksheets("sheet1").Range("a1"). ...需要mydata1.Worksheets("sheet1").Range("a1"). ... .试试下面的代码:

Private Sub CommandButton4_Click()
Dim n As Long, i As Long
n = 0
Dim mydata1 As Workbook        

Set mydata1 = Workbooks.Open("\\NTSYDFSP150\Shared\fmd\credit\LEM_Reports\SV References\SV Entry Form Input.xlsx")


n = mydata1.Worksheets("sheet1").Range("a1").CurrentRegion.Rows.Count

For i = 2 To n 
    If Trim(mydata1.Sheet1.Cells(i, 1)) <> Trim(UserForm1.TextBox157.Text) And i = n Then
        MsgBox ("Name not found") 
    End If

    If Trim(mydata1.Sheet1.Cells(i, 1)) = Trim(UserForm1.TextBox157.Text) Then
        UserForm1.TextBox1.Text = mydata1.Sheet1.Cells(i, 1)
        Exit For
    End If
Next i

mydata1.Save
mydata1.Close

MsgBox "Data searched successfully", 0, vbNullString
End Sub

请注意，激活工作簿和 .Select输入 Range在这种情况下是没有必要的(所以我删除了它)，一般应该避免(有关其他建议，请参阅上面的评论)。