[已解决]VBA 使用当前日期作为文件名时出错，急求帮助！在线等！

杨晨

求大家帮忙看看下面的语句哪里出错了，显示Set wb = Workbooks.Open(Path & Name)  有问题，但是我查不出来问题在哪里：


dim Name as string
dim path as string
dim wb as workbook


Name = "DTR原始数据" & Format(Now, "YYYY年MM月DD日") & ".xls"

Path = ThisWorkbook.Path & "\"

Set wb = Workbooks.Open(Path & Name)

msgbox wb.fullname

wb.close

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-9-4 10:03

你确认文件存在不？

1. Sub s1()
   
2.     Dim Name As String
   
3.     Dim Path As String
   
4.     Dim wb As Workbook
   
5.    
   
6.     Name = "DTR原始数据" & Format(Now, "YYYY年MM月DD日") & ".xls"
   
7.     Path = ThisWorkbook.Path & ""
   
8.    
   
9.     On Error Resume Next
   
10.     Set wb = Workbooks.Open(Filename:=Path & Name)
    
11.     If wb Is Nothing Then
    
12.         MsgBox "文件不存在"
    
13.         Exit Sub
    
14.     Else
    
15.         MsgBox wb.FullName
    
16.     End If
    
17.     wb.Close
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

爱疯

提示什么错误{:041:}{:041:}

杨晨

看附件，我想可能这个语法有问题，就是说使用set wb不能直接打开一个文件

hwc2ycy

你确认文件存在不？

1. Sub s1()
   
2.     Dim Name As String
   
3.     Dim Path As String
   
4.     Dim wb As Workbook
   
5.    
   
6.     Name = "DTR原始数据" & Format(Now, "YYYY年MM月DD日") & ".xls"
   
7.     Path = ThisWorkbook.Path & ""
   
8.    
   
9.     On Error Resume Next
   
10.     Set wb = Workbooks.Open(Filename:=Path & Name)
    
11.     If wb Is Nothing Then
    
12.         MsgBox "文件不存在"
    
13.         Exit Sub
    
14.     Else
    
15.         MsgBox wb.FullName
    
16.     End If
    
17.     wb.Close
    
18. End Sub
    

复制代码

杨晨

嗯，我加了一句就好了 Open Path & Name For Output As #1
看看还有没有别的问题，谢谢热心了...

杨晨

hwc2ycy 发表于 2012-9-4 10:03
你确认文件存在不？

高人啊，高人！多谢了，的确如此，文件没有创建，但是我运行时怎么文件是只读呢？

hwc2ycy

杨晨 发表于 2012-9-4 11:14
高人啊，高人！多谢了，的确如此，文件没有创建，但是我运行时怎么文件是只读呢？

只读？你F8分步运行，看看本地窗口的监视。

杨晨

好，我知道了，估计是这两句同时打开一个文件的缘故

openPath & Name for output as #1
Set wb = Workbooks.Open(Filename:=)

，创建一个excel文件我还不是很会弄，可能需要再学习一下，你知道吗？我就是想先检查有没有这个文件，如果有就打开，否者创建一个后然后打开