Question

Excel VBA提示要求对象

按钮单击事件代码如下
Private Sub cmd_enter_Click()
Dim i As Range
With Sheets("Rincian")
Set i = Sheets("Rincian").Range("a65536").End(xlUp).Row + 1
.Range("i").Offset(0, 0).Value = cmbx_ri.Value
.Range("i").Offset(0, 1).Value = cmbx_yue.Value
.Range("i").Offset(0, 2).Value = cmbx_nian.Value
.Range("i").Offset(0, 3).Value = cmbx_fenlei_1.Value
.Range("i").Offset(0, 4).Value = cmbx_fenlei_2.Value
.Range("i").Offset(0, 5).Value = txtbox_obyek.Value
.Range("i").Offset(0, 6).Value = txtbox_ktrgn.Value
.Range("i").Offset(0, 7).Value = txtbox_lokasi.Value
.Range("i").Offset(0, 8).Value = txtbox_nilai.Value
.Range("i").Offset(0, 9).Value = cmbx_fkfs.Value
.Range("i").Offset(0, 10).Value = cmbx_jsr.Value
.Range("i").Offset(0, 11).Value = txtbox_nota.Value
.Range("i").Offset(0, 12).Value = txtbox_tmbhn.Value
End With
End Sub
运行时提示“要求对象”，求解。
目的很简单：点击enter按钮向工作表输入数据。

Answer 1

你赋值赋错了，i是行数，不是单元格，全部改成下面这样的形式（我这里假设你是用C列数据，你把C改成真实列号

.Range("c" & i).Offset(0, 0).Value = cmbx_ri.Value
.Range("c" & i).Offset(0, 1).Value = cmbx_yue.Value
.Range("c" & i).Offset(0, 2).Value = cmbx_nian.Value
.Range("c" & i).Offset(0, 3).Value = cmbx_fenlei_1.Value
.Range("c" & i).Offset(0, 4).Value = cmbx_fenlei_2.Value
.Range("c" & i).Offset(0, 5).Value = txtbox_obyek.Value
.Range("c" & i).Offset(0, 6).Value = txtbox_ktrgn.Value
.Range("c" & i).Offset(0, 7).Value = txtbox_lokasi.Value
.Range("c" & i).Offset(0, 8).Value = txtbox_nilai.Value
.Range("c" & i).Offset(0, 9).Value = cmbx_fkfs.Value
.Range("c" & i).Offset(0, 10).Value = cmbx_jsr.Value
.Range("c" & i).Offset(0, 11).Value = txtbox_nota.Value
.Range("c" & i).Offset(0, 12).Value = txtbox_tmbhn.Value

追问

参照您的答案，我把原来代码中的Range("i")全部替换成Range("a" & i)然后运行，仍然提示“要求对象”，黄色光标停留在
Set i = Sheets("Rincian").Range("a65536").End(xlUp).Row + 1 处。

望不吝赐教。

Answer 2

看你这nApp是workbook
你先这么改下看看对不对
dim nApp
Set nApp = GetObject(folderPath & fileName)

如果不对 你做下面这步 告诉我filepath的值是什么
dim nApp
debug.print filepath
Set nApp = GetObject(filePath)
满意请采纳。

追问

谢谢您的解答，我是小白，实在看不懂您的答案，请轻拍。

Answer 3

range("i")的引用方式有问题，Range(“A:A”)代表当前工作表中的A 列，Range(“1:1″)代表当前工作表中的第一行

追问

谢谢解答，小白求详解。望赐教。