代码修改！！！

lodis2020 · 发表于 2020-3-4 22:19

本帖最后由 lsc900707 于 2020-3-6 08:55 编辑

求站里的大神帮我看看这段代码哪里有问题，本来想写一个简单的从一个工作簿中的工作表指定区域复制非空单元格到另一个工作簿的同名工作表的相同坐标单元格里，但是不知道为什么一运行就出错，逐句运行卡在图片中标黄的那句。本人vba小白刚上路，如果这种代码有问题，有其他更简单的实现该功能的代码吗？望各位大神指点迷津~
Sub summarizing()
  Dim my_path As String, my_filename As String, rg As Range, sht As Worksheet
  my_path = ThisWorkbook.Path & "\" & "待汇总表格" & "\"
  my_filename = Dir(my_path)
  Workbooks.Open Filename:=my_path & my_filename

For Each sht In ActiveWorkbook

For Each rg In sht.Range("e2:f13")

   If rg.Value <> "" Then

   rg.Copy ThisWorkbook.Worksheets("sht.name").Range(rg.Row, rg.Column)

   End If
Next
Next

End Sub

zzj198237 · 发表于 2020-3-4 23:07

For Each sht In ActiveWorkbookg改
For Each sht In ActiveWorksheets

taller · 发表于 2020-3-5 07:01

循环语句应该这样用

For Each sht In ActiveWorkbook.Sheets

复制代码

taller · 发表于 2020-3-5 07:01

zzj198237 发表于 2020-3-4 23:07
For Each sht In ActiveWorkbookg改
For Each sht In ActiveWorksheets

没有ActiveWorksheets这么个集合

renkangjizhen · 发表于 2020-3-5 08:33

my_filename = Dir(my_path & "*.xlsx")

renkangjizhen · 发表于 2020-3-5 08:35

my_path = ThisWorkbook.Path & "\待汇总表格\"

renkangjizhen · 发表于 2020-3-5 08:38

set wb=Workbooks.Open Filename:=my_path & my_filename

lodis2020 · 发表于 2020-3-5 21:15

多谢各位大神！！！没想到居然有人回应，炒鸡感动！现在循环语句过啦，但是又出现了新问题...

lodis2020 · 发表于 2020-3-5 21:17

lodis2020 发表于 2020-3-5 21:15
多谢各位大神！！！没想到居然有人回应，炒鸡感动！现在循环语句过啦，但是又出现了新问题...

这一句是为了在if判断是非空单元格后把这个非空单元格复制到指定的另一个工作簿同名工作表的相同坐标单元格

lodis2020 · 发表于 2020-3-5 22:30

怎样才能动态获取不定单元格的行号和列号的坐标，从而在另一个工作表或工作簿里引用坐标相同的单元格呢？

		自动登录	找回密码
密码			免费注册

[求助] 代码修改！！！