怎么用excel vba提取当前文件名放在sheet1的第一列？
3个回答
展开全部
sub test()
worksheets("Sheet1").[a1]=thisworkbook.name
end sub
worksheets("Sheet1").[a1]=thisworkbook.name
end sub
追问
不好意思说错了，是当前文件夹内的文件名（多个），
追答
Sub test()
f = Dir(ThisWorkbook.Path & "\*.*")
Do While f <> ""
k = k + 1
Worksheets("Sheet1").Cells(k, 1) = f
f = Dir
Loop
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
sheet1.range("a1")=thisworkbook.name
这样子不行吗？
这样子不行吗？
追问
不好意思说错了，是当前文件夹内的文件名（多个），
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Sheet1.Cells(1, 1).Value = ActiveWorkbook.Name
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
