excel vba如何将其他许多excel文件中的其中一条数据放到一个excel表格,求代码
答案:1 悬赏:70 手机版
解决时间 2021-11-12 19:00
- 提问者网友:美人性情
- 2021-11-12 04:01
excel vba如何将其他许多excel文件中的其中一条数据放到一个excel表格,求代码
最佳答案
- 五星知识达人网友:往事埋风中
- 2021-11-12 05:16
整个文件夹的所有文件么,那一条数据在固定的一个位置么,转存到同一列按顺序么,原来的文件名还要么追问固定在一个位置要转的数据位置是固定的原来的文件名不变,不用按照顺序所有文件追答Sub Macro1()
Dim Fname$, i%, j%, Tmp
Fname = Dir("*.xls")
Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Fname
Tmp = [a1]
ActiveWorkbook.Close False
i = i + 1
Cells(i, "A") = Tmp
End If
Fname = Dir
Loop
End Sub追问请问在哪里填写路径和最终接收文件,我如果通过按钮来实现呢?在哪在吗追答看我的资料,详细沟通。
Dim Fname$, i%, j%, Tmp
Fname = Dir("*.xls")
Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Fname
Tmp = [a1]
ActiveWorkbook.Close False
i = i + 1
Cells(i, "A") = Tmp
End If
Fname = Dir
Loop
End Sub追问请问在哪里填写路径和最终接收文件,我如果通过按钮来实现呢?在哪在吗追答看我的资料,详细沟通。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯