excel如何实现提交文件功能

wenhaowh64

如图，实现点击按钮就把文件提交到教师端指定的文件夹中。

周总

Sub Macro1()
ThisWorkbook.SaveAs "D:\ExcelHome\" & "AA.xlsm"
End Sub

wenhaowh64

我试了，无法实现，二楼的朋友，能加在附件里吗？谢谢。我是excel小白。

wenhaowh64

我搜集了网上的资料，写了一段代码，xp系统可以，可win7在学生端提交不了。也不知道是什么原因？
Private Sub CommandButton1_Click()
'MsgBox CreateObject("Shell.LocalMachine").MachineNaMe   '弹出计算机名
Name = CreateObject("Shell.LocalMachine").MachineNaMe '获取计算机名
On Error Resume Next
MkDir "\\192.168.2.114\文件夹2\" & Name & "" '在ip为192.168.1.5的电脑的共享文件夹2中建立名为计算机名的文件目录
   
On Error Resume Next
   Workbooks("答题卡1.xls").Close True
     Set mybk = Workbooks.Open(ThisWorkbook.Path & "\答题卡1.xls")
         mybk.Sheets(1).[a1] = 123
            mybk.Close True

FileCopy "C:\Documents and Settings\Administrator\桌面\教师机\答题卡1.xls", "\\192.168.2.114\文件夹2\" & Name & "/ 答题卡1.xls"
MsgBox "您已经成功提交。"

  

End Sub

wenhaowh64

我又网搜，改了下代码，在win7下运行，教师端可以正常提交，可在学生端提交后，教师端仍找不到文件，请高手给解决。不胜谢谢。附代码：
Private Sub CommandButton1_Click()
'MsgBox CreateObject("Shell.LocalMachine").MachineNaMe   '弹出计算机名
Name = CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName") '获取计算机名
On Error Resume Next
MkDir "\\192.168.1.104\共享文件夹1\" & Name & "" '在ip为192.168.1.5的电脑的共享文件夹2中建立名为计算机名的文件目录
   
On Error Resume Next
   Workbooks("答题卡1.xls").Close True
     Set mybk = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
         mybk.Sheets(1).[a1] = 123
            mybk.Close True

FileCopy "C:\Users\Administrator\Desktop\教师机\1.xls", "\\192.168.1.104\共享文件夹1\" & Name & "/ 1.xls"
MsgBox "您已经成功提交。"

  

End Sub

wenhaowh64

着急啊。有高人在不，请点拨啊。

wenhaowh64

已经解决，原来是局域网无法访问共享文件引起的。