excel vba 自动化错误
Subdishui()'1月份Dimmypath,mynameDimwbAsWorkbookDimvAsRangeDimr,cAsIntegerDimnum,num1my...
Sub dishui()
'1 月份
Dim mypath, myname
Dim wb As Workbook
Dim v As Range
Dim r, c As Integer
Dim num, num1
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "1月份宾馆所有账目.xlsm")
Set wb = GetObject(myname)
Set v = wb.Sheets("支出明细").Range("A:A").Find(what:="地*税", LookIn:=xlValues, lookat:=xlPart)
r = v.Row
c = v.Column
Set num = wb.Sheets("支出明细").Cells(r, c + 2)
num1 = num.Value
wb.Close (False)
Set wb = Nothing
Range("D13").Select
ActiveCell.Value = num1
'归零
num1 = 0
r = 0
c = 0
Set mypath = Nothing
Set myname = Nothing
Set v = Nothing
Set num = Nothing
end sub
之前运行的很好，但是重启之后，每次运行到Set wb = GetObject(myname)，就会提示我自动化错误。是不是内存的问题呢？vba新手，求高手赐教 展开
'1 月份
Dim mypath, myname
Dim wb As Workbook
Dim v As Range
Dim r, c As Integer
Dim num, num1
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "1月份宾馆所有账目.xlsm")
Set wb = GetObject(myname)
Set v = wb.Sheets("支出明细").Range("A:A").Find(what:="地*税", LookIn:=xlValues, lookat:=xlPart)
r = v.Row
c = v.Column
Set num = wb.Sheets("支出明细").Cells(r, c + 2)
num1 = num.Value
wb.Close (False)
Set wb = Nothing
Range("D13").Select
ActiveCell.Value = num1
'归零
num1 = 0
r = 0
c = 0
Set mypath = Nothing
Set myname = Nothing
Set v = Nothing
Set num = Nothing
end sub
之前运行的很好，但是重启之后，每次运行到Set wb = GetObject(myname)，就会提示我自动化错误。是不是内存的问题呢？vba新手，求高手赐教 展开
2个回答
展开全部
vba工程里面，工具，引用，micrsoft ....rune time。试试
追问
没有看到rune time啊？
追答
不是上面的原因，我找到答案了。因为myname = Dir(mypath & "1月份宾馆所有账目.xlsm")只返回文件名并不包含完整的途径。所以
Set wb = GetObject(myname)改为Set wb = GetObject(myPath & myname)
详见相关文章
http://club.excelhome.net/forum.php?mod=viewthread&tid=785814
https://msdn.microsoft.com/zh-cn/library/e9waz863(v=VS.80).aspx
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
