同文件夹下多表合并语句正确写法

simic1989

请问同文件夹下多表合并，我这个代码第8行的正确写法是啥？

• Sub text()
• Dim ra As Range, r As Integer, Wb As Workbook, myp As String, myn As String
• myp = ThisWorkbook.Path & ""
• myn = Dir(flp & "*.xls")
• Do While myn <> ""
• If myn <> ThisWorkbook.Name Then
• Set Wb = Workbooks.Open(myp & myn)
• Wb.Sheet1.UsedRange.Copy ThisWorkbook.Sheet1.Range("a" & ThisWorkbook.Sheet1.Range("a65536").End(xlUp).Row + 1)
• End If
• Wb.Close
• fln = dic
• Loop
• End Sub
• 
  

[color=rgb(51, 102, 153) !important]复制代码

chxw68

修改好了，楼主代码中的错误太多了。

chxw68

第11句：fln = dic 是什么东东？

simic1989

chxw68 发表于 2018-9-13 17:29
第11句：fln = dic 是什么东东？

谢谢老师，刚开始学习VBA的各种知识，之前一直在学字典。。。写顺手了

iwangyi

为褚老师点赞。好有耐心哟。