运行到Set Wb = GetObject(Temp)就错了。跪求方法

okduweijie

'这段语句的作用是在当前文件夹模糊找到文件名匹配的，把找到匹配的文件薄的内容复制到当前文件薄

Sub test()   
Dim Wb As Workbook
     Dim Temp As String
     Application.ScreenUpdating = False   
     Name = Dir(ThisWorkbook.Path & "\*.xls")
     While Name <> ""  
     If Name Like "*" & "情况" & "*" Then
     Temp = ThisWorkbook.Path & Name
     Set Wb = GetObject(Temp)
     Wb.Sheets("报送报阅").Range("A1:f100").CurrentRegion.Copy Sheets("报送报阅").Range("A1:f100")
     Wb.Close False
     Set Wb = Nothing
     End If
     Wend         
     Application.ScreenUpdating = True
End Sub

crazy0qwer

1. Temp = ThisWorkbook.Path & "" & Name

复制代码

dajiahaoxinku12

Sub test()
Dim Wb As Workbook
     Dim Temp As String
     Application.ScreenUpdating = False
    Name = Dir(ThisWorkbook.Path & "\*.xls")
     While Name <> ""
     If Name Like "*" & "情况" & "*" Then
     Temp = ThisWorkbook.Path & Name
     Set Wb = GetObject(Temp)
     Wb.Sheets("报送报阅").Range("A1:f100").CurrentRegion.Copy Sheets("报送报阅").Range("A1:f100")
     Wb.Close False
     Set Wb = Nothing
     End If
     Name = Dir
     Wend
     Application.ScreenUpdating = True
End Sub

okduweijie

dajiahaoxinku12 发表于 2013-7-20 11:36
Sub test()
Dim Wb As Workbook
     Dim Temp As String

大哥，你和我写的好像一样啊？

okduweijie

crazy0qwer 发表于 2013-7-20 11:34

这位大神，为什么要这样改，能把原因告诉小弟吗？

crazy0qwer

因为 ThisWorkbook.Path 返回的路径最后是没有斜杠的。而路径跟文件名之间还需要一个斜杠。

如：工作簿在 D盘的 新建文件夹中。
则：ThisWorkbook.Path 返回的是  "D:\新建文件夹"
要表示这个工作簿目录下的 123.xls 文件，正确目录应该是 "D:\新建文件夹\123.xls"
前面说了 ThisWorkbook.Path 返回的是  "D:\新建文件夹"
所以 ThisWorkbook.Path & name 就是   "D:\新建文件夹123.xls"  这样就变成了 D盘目录下的 新建文件夹123.xls 文件了。

dajiahaoxinku12

okduweijie 发表于 2013-7-20 12:31
大哥，你和我写的好像一样啊？

仔细看，运行一下   

okduweijie

dajiahaoxinku12 发表于 2013-7-20 13:01
仔细看，运行一下

大哥，您的方法还是报错的。

^顾弘^

Temp = ThisWorkbook.Path & "\"  & Name