大神帮忙看看这段代码哪错了？跪谢啊

逆流奇葩

Sub 赋值()
    Dim myPath$, myFile$, sht As Worksheet
    Dim i%
    myPath = ThisWorkbook.Path & "\实验\"     '给路径变量赋值
    myFile = Dir(myPath & "\*.xls")               '用dir函数提取一个文件名
    Application.ScreenUpdating = False           '关闭屏幕刷新
    Application.DisplayAlerts = False            '禁用所有事件
    Do While myFile <> ""                     '当文件名不为空循环
    Workbooks.Open myPath & myFile            '打开我的文件目录中的一个文件
    For Each sht In Sheets                    '对这个文件的每个工作表(这里假设每个文件的工作表数不定)
         For i = 1 To [A65536].End(xlUp).Row
         If sht.Name = "Sheet1" Then
            sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
         End If
        Next i
    Next                                     '继续循环打开文件的每个工作表
    ActiveWorkbook.Close True                 '关闭打开的工作簿
    myFile = Dir                             '再用dir函数提取一个文件名
    Loop                                      '继续循环，重复上述过程
    MsgBox "己完成,请查看"
    Application.DisplayAlerts = True      '      启用所有事件
    Application.ScreenUpdating = True            '打开屏幕刷新
End Sub

逆流奇葩

运行是总提示 sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1) 这个语句没有结束语 我是小白 不太懂 这是哪里的问题啊？

微笑12345

我比较菜,只是看
sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
是有问题的

逆流奇葩

微笑12345 发表于 2018-9-23 12:51
我比较菜,只是看
sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
是有问题的

哎 我也是小白啊 不懂啊 期待大神出手

微笑12345

赋值是不对的，你要实现什么？
sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)这块是要动态赋值吗，要是动态也不能付给同一个位置

逆流奇葩

微笑12345 发表于 2018-9-23 12:56
赋值是不对的，你要实现什么？
sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)这块是要动态赋值吗， ...

恩恩 是的。我想实现将“操作表格”工作薄中的“Sheet1”的第一列内容一次赋值给在相同文件夹下多个工作薄固定工作表的固定单元格

abc123281

想要修改代码  建议上传来查看

微笑12345

1、想要操作表格，首先要把这个表格打开
      在循环之前可以加一句 Workbooks.Open 操作表格.xls路径&操作表格.xls
2、sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
     sht.Range("D4") 也要动起来了，把变量引入进来，不然读出来的值只会覆盖上次循环的值，最后只能
     得到最后一次循环得到的值
sht.Range("D" & j)=workbooks("操作表格.xls").Sheets(1）.cells(i,1)
j=j+1   '也可以直接引用i，让i加一个固定值来定位填充位置在d列的行数