VBA Code to Save into a Network Drive

Hi!

Part of my code is not working. The part that is not working is saving the file into an specific file in a network drive.

Here is the VBA that I'm using.

Code:

---


ChDir "G:\NARS Planning\Open Order Reports"
ActiveWorkbook.SaveAs Filename:="NARS Open Order Report " & Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

Any input will be greatly appreciated.

Thank you.

:dunno: Try

Code:

---

Dim ThePath As String

ThePath = "G:\NARS Planning\Open Order Reports"
ActiveWorkbook.SaveAs Filename:=ThePath & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

BTW, I usually save my files with a date stamp format of Year Month Day, so they list in Date order.

Yours will be listed like
Jan 1 1950
Jan 1 1951
Jan 1 1952
etc
Jan 2 1950
Jan 2 1951
Etc, etc, etc
Feb 1 1950
Feb 1 1951

You are missing a path separator

Code:

---

Dim ThePath As String
 
ThePath = "G:\NARS Planning\Open Order Reports"
ActiveWorkbook.SaveAs Filename:=ThePath & Application.PathSeparator & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

or

Code:

---

Dim ThePath As String
 
ThePath = "G:\NARS Planning\Open Order Reports" & Application.PathSeparator
ActiveWorkbook.SaveAs Filename:=ThePath & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

Stupid keyboard.

Thank you both for your efforts. AT XLD; AT SAMT

It worked!!

Edward.

Quote:

---

Originally Posted by xld

You are missing a path separator

Code:

---

Dim ThePath As String
 
ThePath = "G:\NARS Planning\Open Order Reports"
ActiveWorkbook.SaveAs Filename:=ThePath & Application.PathSeparator & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

or

Code:

---

Dim ThePath As String
 
ThePath = "G:\NARS Planning\Open Order Reports" & Application.PathSeparator
ActiveWorkbook.SaveAs Filename:=ThePath & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

---

---