我在线获得了一个代码,可以帮助我将多个excel工作簿表快速组合到一个工作簿中。
如果代码中包含“更新,然后是网站”,这是否意味着我正在运行并且将excel文件发送到那里? 要么 “ update exceljunction.com”行的意义是什么?他们是在接收信息还是其他东西
`Sub GetSheets()
'Update exceljunction.com
Path = "\"
Filename = Dir(Path & "*.xls")
Do while Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir ()
Loop
End Sub`
答案 0 :(得分:3)
请勿复制网站和博客文章中的粘贴代码。
您可以选择
个不间断的空格字符,这些字符会弄乱您的东西……然后您还可以选择其他在VBA代码中非法的怪异字符,例如卷曲的单引号{{ 1}}表示评论。
VB中的注释标记为‘
,而不是'
。这就是为什么删除注释“已修复”的原因。
注释不是可执行代码,它们只是维护者的代码内文档。应该删除过时,误导,多余或其他无用的注释。