请问这段代码是什么意思，主要是红色的那句

wjwjwjwj98

Set VBExcelbook = VBExcel.Workbooks.Open(App.Path & "\sample\sample.xls")
VBExcel.Visible = True
Dim i As Variant, r As Variant, rrr As Variant
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.getFolder(App.Path)
Dim j As Integer
j = 0
For Each i In r.Files
If Mid(i.Name, Len(i.Name) - 3) = ".xls" And Mid(i.Name, 1, 2) <> "~$" Then
j = j + 1
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim appexcel As Object
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open(App.Path & "\" & i.Name)
xlapp.Visible = False

wjwjwjwj98

是VB代码，本人还没入门

bjjdghyf

判断文件后缀名为.xls且文件开始不为~$类临时文件。第一个mid没有指定长度，应该是If Mid(i.Name, Len(i.Name) - 3,4) = ".xls" And Mid(i.Name, 1, 2) <> "~$" Then

wjwjwjwj98

谢谢！！！！！！！！！！！！！！！

wjwjwjwj98

就是想搞定这种表格

wjwjwjwj98

就是想把原表格自动变成目标表格

wjwjwjwj98

能不能结合图讲下这几句，先谢谢了！有很多原图表，要绘总成目标图表
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.getFolder(App.Path)
Dim j As Integer
j = 0
For Each i In r.Files
If Mid(i.Name, Len(i.Name) - 3) = ".xls" And Mid(i.Name, 1, 2) <> "~$" Then
j = j + 1

wjwjwjwj98

明白了，{:soso_e113:}