如何用VBA另存在同一局域网其他电脑上

BMW5566

我想用VBA将表格另存至别的电脑上，报错提示：文件名或文件号错误；请各位大神帮我看看如何解决？
同一局域网、文件也已能共享，需要存到电脑IP：192.168.116.162----G盘下----文    “文”的文件夹里  



代码如下：


n = 1
  If Dir("\\192.168.116.162\g:\文\" & Year(Date), vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\g:\文\" & Year(Date)
End If
  If Dir("\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月", vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月"
End If
  If Dir("\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日", vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日"
End If

   TStr = "\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"
  Do While Len(Dir(TStr))
    n = n + 1
    TStr = "\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"
  Loop
    ThisWorkbook.SaveAs Filename:="\\192.168.116.162\g:\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"

CommaZ

关注学习下！！等大神

rendiule01

n = 1
  If Dir("\\192.168.116.162\g:\文\" & Year(Date), vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\g:\文\" & Year(Date)
End If
  If Dir("\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月", vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月"
End If
  If Dir("\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日", vbDirectory) <> "" Then
     Else
  MkDir "\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日"
End If

   TStr = "\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"
  Do While Len(Dir(TStr))
    n = n + 1
    TStr = "\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"
  Loop
    ThisWorkbook.SaveAs Filename:="\\192.168.116.162\文\" & Year(Date) & "\" & Month(Date) & "月" & "\" & Day(Date) & "日" & "\" & "(" & Format(Date, "YYYY-M-D") & "-" & Format(Time, "HHMM") & ")" & ActiveSheet.Cells(3, 6) & ActiveSheet.Cells(2, 6) & " 记录" & "-" & n & ".xls"

BMW5566

rendiule01 发表于 2024-1-27 19:20
n = 1
  If Dir("\\192.168.116.162\g:\文\" & Year(Date), vbDirectory)  "" Then
     Else

还是不行，出现同样报错

tanglf188

确保共享文件夹具有读取与写入的权限就行了

BMW5566

tanglf188 发表于 2024-1-29 09:19
确保共享文件夹具有读取与写入的权限就行了

有的哈！可以打开、读取、写入

rayben6

是不是文件夹明明错误了，冒号不能用于文件夹命名吧？

rayben6

rayben6 发表于 2024-1-30 14:09
是不是文件夹明明错误了，冒号不能用于文件夹命名吧？

抱歉，看错了