vba提取HTML文本框中的值,VBA /宏代码获取文本框的值

Sub CopyRandomRows()

Windows("sample rnd.xlsm").Activate

Rows("1:1").Select

Selection.Copy

Application.CutCopyMode = False

Selection.Copy

Windows("rnd sample draft.xlsm").Activate

Sheets("Random Sample").Select

Rows("1:1").Select

ActiveSheet.Paste

Dim source As Range, target As Range, randCount&, data(), value, r&, rr&, c&

Set source = Workbooks("sample rnd.xlsm").Worksheets("Sheet1").Range("A2:L5215")

Set target = Workbooks("rnd sample draft.xlsm").Worksheets("Random Sample").Range("A2")

randCount = 5

data = source.value

For r = 1 To randCount

rr = 1 + Math.Round(VBA.rnd * (UBound(data) - 1))

For c = 1 To UBound(data, 2)

value = data(r, c)

data(r, c) = data(rr, c)

data(rr, c) = value

Next

Next

target.Resize(randCount, UBound(data, 2)) = data

End Sub

这是我的代码。我的问题是，如果我更改代码randCount = 5，我只能更改所需数据的数量。我希望能够使用我的TextBox并使用它来定义要获取的数据量。我试过randCound = TextBox1.value和randCount = TextBox1.Text，但似乎没有工作。我错过了什么？我如何得到它的工作。在此先感谢VBA /宏代码获取文本框的值

+0

'TextBox1'位于何处？它在一张纸上吗？哪张？它是否在表单中(表单的名称)？你使用表单控件还是ActiveX控件？ –