EXCEL VBA 获取打开的word文件名
SetoDoc=Word.Documents.Open(Filename:=oFile,Visible:=False)PagesNumber=oDoc.Content.I...
Set oDoc = Word.Documents.Open(Filename:=oFile, Visible:=False)
PagesNumber = oDoc.Content.Information(wdNumberOfPagesInDocument)
'NumSum = PagesNumber + NumSum
Cells(aa, 1).Value =？？？？？
Cells(aa, 2).Value = PagesNumber
aa = aa + 1
oDoc.Close False
代码？的地方需要当前打开的WORD 文件名，请问该如何写。 展开
PagesNumber = oDoc.Content.Information(wdNumberOfPagesInDocument)
'NumSum = PagesNumber + NumSum
Cells(aa, 1).Value =？？？？？
Cells(aa, 2).Value = PagesNumber
aa = aa + 1
oDoc.Close False
代码？的地方需要当前打开的WORD 文件名，请问该如何写。 展开
1个回答
展开全部
Cells(aa, 1).Value =oFile
就好啦，，
还要怎么写？？
Cells(aa, 1).Value =oDoc.name
就好啦，，
还要怎么写？？
Cells(aa, 1).Value =oDoc.name
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
