求改VBA程序:复制指定文件夹里面最新创建的工作簿里面的内容
发布网友
发布时间：2024-09-27 07:15
共1个回答
热心网友
时间：2024-10-25 19:44
On Error Resume Next
Sheets("库存总表").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Dim A
Dim wb
A = ThisWorkbook.FullName
f = "http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740/" '打开共享文件，将网络路径：按Ctrl + V到此处
If Dir(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls") <> "" Then
Set wb = Workbooks.Open(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls")
wb.Sheets("STK").Range("A1:CF65536").Copy ThisWorkbook.Sheets("库存总表").Range("a1")
wb.Close
Cells.AddComment.Delete
Else
MsgBox "请检查共享文件是否连接，或文件不存在。"
End If
End Sub
我猜测你每天新增工作薄的文件是"日期"+"注塑半成品日报.xls", 所以用Format(VBA.Date, "yyyymmdd") 格式处理即可追问请问：
如果我只要打开上面程序里的那个共享的文件夹（即：081125151740）该怎么写代码? 用了下面这个程序好像不行，公司服务器地址：http://10.36.100.13/ 文件夹路径同以上程序
Sub 打开网络共享文件夹()
ChDrive "http://10.36.100.13/"
ChDir "\shareDOC\file\061108132611\070510094325\081125151740\"
Application.Dialogs(xlDialogFindFile).Show
End Sub
追答Sub 打开网络共享文件夹()
Shell "explorer.exe http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740", vbNormalFocus
End Sub
我没有网络共享文件夹，不知道是否是用http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740作为打开的路径。但以下代码可以打开文件夹，希望可以给你些提示：
Sub 打开文件夹()
Shell "explorer.exe D:\Documents", vbNormalFocus
End Sub
热心网友
时间：2024-10-25 19:44
On Error Resume Next
Sheets("库存总表").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Dim A
Dim wb
A = ThisWorkbook.FullName
f = "http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740/" '打开共享文件，将网络路径：按Ctrl + V到此处
If Dir(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls") <> "" Then
Set wb = Workbooks.Open(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls")
wb.Sheets("STK").Range("A1:CF65536").Copy ThisWorkbook.Sheets("库存总表").Range("a1")
wb.Close
Cells.AddComment.Delete
Else
MsgBox "请检查共享文件是否连接，或文件不存在。"
End If
End Sub
我猜测你每天新增工作薄的文件是"日期"+"注塑半成品日报.xls", 所以用Format(VBA.Date, "yyyymmdd") 格式处理即可追问请问：
如果我只要打开上面程序里的那个共享的文件夹（即：081125151740）该怎么写代码? 用了下面这个程序好像不行，公司服务器地址：http://10.36.100.13/ 文件夹路径同以上程序
Sub 打开网络共享文件夹()
ChDrive "http://10.36.100.13/"
ChDir "\shareDOC\file\061108132611\070510094325\081125151740\"
Application.Dialogs(xlDialogFindFile).Show
End Sub
追答Sub 打开网络共享文件夹()
Shell "explorer.exe http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740", vbNormalFocus
End Sub
我没有网络共享文件夹，不知道是否是用http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740作为打开的路径。但以下代码可以打开文件夹，希望可以给你些提示：
Sub 打开文件夹()
Shell "explorer.exe D:\Documents", vbNormalFocus
End Sub
热心网友
时间：2024-10-25 19:44
On Error Resume Next
Sheets("库存总表").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Dim A
Dim wb
A = ThisWorkbook.FullName
f = "http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740/" '打开共享文件，将网络路径：按Ctrl + V到此处
If Dir(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls") <> "" Then
Set wb = Workbooks.Open(f & "\" & Format(VBA.Date, "yyyymmdd") & "注塑半成品日报.xls")
wb.Sheets("STK").Range("A1:CF65536").Copy ThisWorkbook.Sheets("库存总表").Range("a1")
wb.Close
Cells.AddComment.Delete
Else
MsgBox "请检查共享文件是否连接，或文件不存在。"
End If
End Sub
我猜测你每天新增工作薄的文件是"日期"+"注塑半成品日报.xls", 所以用Format(VBA.Date, "yyyymmdd") 格式处理即可追问请问：
如果我只要打开上面程序里的那个共享的文件夹（即：081125151740）该怎么写代码? 用了下面这个程序好像不行，公司服务器地址：http://10.36.100.13/ 文件夹路径同以上程序
Sub 打开网络共享文件夹()
ChDrive "http://10.36.100.13/"
ChDir "\shareDOC\file\061108132611\070510094325\081125151740\"
Application.Dialogs(xlDialogFindFile).Show
End Sub
追答Sub 打开网络共享文件夹()
Shell "explorer.exe http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740", vbNormalFocus
End Sub
我没有网络共享文件夹，不知道是否是用http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740作为打开的路径。但以下代码可以打开文件夹，希望可以给你些提示：
Sub 打开文件夹()
Shell "explorer.exe D:\Documents", vbNormalFocus
End Sub
