红色语句出现错误，帮忙看看！谢谢！

VBA_和尚

问题：

在立即窗口中查看Worksheets("汇总").cell(4, I)，显示的是我想要的内容，但为啥赋值给变量sheetto就出错呢？错误代码438，对象不支持该方法或属性

源代码：

Private Function getdata()

'调出打开文件窗体，选择源数据表（某专业报送模板），将相应文件名称存入临时表A列，

Dim fileFrm, fileTo, sheetTo As String

fileFrm =Application.GetOpenFilename("excel文件,*.xls;*.xlsm;*.xlsx")

Worksheets("临时表").Activate

Worksheets("临时表").Range("a1")= fileFrm

'根据临时表A列的内容，逐个打开文件将其数据copy到对应的计算模板中。先完成1个文件。

Workbooks.Open (fileFrm)

'确定哪几列数据需要copy到计算模板中

Dim colno As Integer

colno =Range("b1").CurrentRegion.Columns.Count '获取现有数据区域的列数

   For I = 3 Tocolno Step 1

       If Worksheets("汇总").Cells(1, I) <> "" And Worksheets("汇总").Cells(13,I) <> "" Then

           'copy对应单元格内容至计算模板

sheetTo = Trim(Worksheets("汇总").cell(4,I))

           Worksheets("汇总").Range(Cells(13, I), Cells(23, I)).Select

Selection.Copy

Worksheets(sheetTo).Activate

Range("c2:c12").Select

Selection.Paste

       End If

       Next

End Function

VBA_和尚

朱荣兴 发表于 2017-4-10 08:04
最好上传excel附件来看看，才好测试代码

附件已上传，谢谢！

VBA_和尚

原来cells写成cell了。。。
谢谢大家！