我这段代码错在哪里啊？

胡说V八道

我是想 复制一个文件夹下面的所有的XLSX文件 A6单元格向下到最后一个，全部复制到  合并.XLSX中。



Sub hebing()
Dim str As String
Dim wb As Workbook
Dim i As Long
str = Dir("D:\Personal\Desktop\县道抽检" & "\*.xlsx")
Set hb = Workbooks.Open("D:\Personal\Desktop\合并.xlsx")
i = 1
Do While str <> ""
   Set wb = Workbooks.Open("D:\Personal\Desktop\县道抽检" & "\" & str)

    wb.Sheets("综合明细十米").Range("a6:" & Range("a6").End(xlDown).Row).Copy hb.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1, 0)
   ' hb.Sheets(1).Range("a" & i) = wb.Name
   ' i = i + 1
   
    wb.Save
    wb.Close
    str = Dir
Loop
End Sub

LIUZHU

wb.Sheets("综合明细十米").Range("a6:" &
改成：wb.Sheets("综合明细十米").Range("a6:a" &

半百

ykcbf1100

没有附件看代码没有意义。
同样的代码有的附件行而有些附件就不行。

gjj136138139

我不太喜欢用dir，我用fso,for each f in fso.files这种来循环。

胡说V八道

LIUZHU 发表于 2023-7-21 14:42
wb.Sheets("综合明细十米").Range("a6:" &
改成：wb.Sheets("综合明细十米").Range("a6:a" &

胡说V八道

半百 发表于 2023-7-21 14:56

火眼金睛，

胡说V八道

ykcbf1100 发表于 2023-7-21 14:58
没有附件看代码没有意义。
同样的代码有的附件行而有些附件就不行。

我上了附件，您有时间帮看下。总是显示 [url=]VBA由于复制和粘贴区域的大小不同，因此无法将其粘贴到此处[/url]

以下是代码：

Sub hebing()
Dim str As String
Dim wb As Workbook
Dim i As Long
str = Dir("D:\Personal\Desktop\县道抽检" & "\*.xlsx")
Set hb = Workbooks.Open("D:\Personal\Desktop\合并.xlsx")
i = 1
Do While str <> ""
   Set wb = Workbooks.Open("D:\Personal\Desktop\县道抽检" & "\" & str)

    wb.Sheets("综合明细十米").Range("a6:a" & Range("a6").End(xlDown).Row).Copy hb.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1, 0)

   
    wb.Save
    wb.Close
    str = Dir
Loop
End Sub

胡说V八道

LIUZHU 发表于 2023-7-21 14:42
wb.Sheets("综合明细十米").Range("a6:" &
改成：wb.Sheets("综合明细十米").Range("a6:a" &

大哥，有时间再帮看下。

cyq4896

取第一列值