gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 20:51:41 25 4
gpt4 key购买 nike

我有一个充当数据库的 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计算正确。

最佳答案

我清理了您的代码并在必要时限定了范围。不限定范围很可能是这里的错误。示例: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在这种情况下是没有必要的(所以我删除了它),一般应该避免(有关其他建议,请参阅上面的评论)。

关于excel - 将工作簿中的数据检索到不同工作簿中的用户窗体,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58128540/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com