Question

excel vba 怎样实现某路径下的某工作簿的复制，复制到另外一个路径下。

Answer 1

不知道你是不是要改变复制后文件夹的名称，如果只是一两个的话，很简单的
Public Sub fuzhi()
Application.Workbooks.Open "C:\Users\jason\Desktop\VBA\wenjuan.xlsm" ’打开文件
ActiveWorkbook.SaveAs "C:\Users\jason\Desktop\VBA1111\wenjuan.xlsm" ‘复制路径
ActiveWorkbook.Close ’关闭文件
End Sub
C:\Users\jason\Desktop\VBA1111这个就是你的文件的位置，不管是打开的还是保存的都是可以变的，你看看行不行，有问题再补充吧

追问

我这样成功复制了，但是根本打不开复制的这个工作簿

我知道了

应该先打开然后再复制

谢谢了

不过，你知道怎样判断一个路径下的某个工作簿是否存在吗？

追答

Public Sub panduancunzai()
Dim fil As String
fil = ThisWorkbook.Path & "\qwaszx.xls"
If Len(Dir(fil)) > 0 Then
MsgBox "存在"
Else
MsgBox "没有"
End If

End Sub
\qwaszx.xls这个是你的文件名

追问

您好，请问一个问题

追答

要加双引号，"cod"今天一直不在线，没看到。

追问

您好，我有一个问题想请教一下您呢

而且还能双击对应条目选中记录

谢谢啦，大侠