VBAコードは常にデスクトップに保存されるとは限りません

Question

ほとんどの場合、デスクトップに保存されるコードがありますが、ネットワークに接続するとネットワークフォルダに保存されることがあります。私はこれを常にデスクトップのすべてのケースで保存することに熱心です。

Sub Svas() 

Dim Name As String 
FilePath = "C:\Users\" & (Environ$("Username")) & "\Desktop": Name = "ETC & ".xlsm" 
ActiveWorkbook.SaveAs Filename:=Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

End Sub 

私は強力なコーダーではありません。その例や助けをいただければ幸いです。

Answer 1

ファイルパスを含まない「ファイル」文字列変数にファイル名を設定してファイルを保存することが問題だと思います。filePath、fileName、fileExtを3分割した部分を整理しておき、最後に簡単に連結して完全なファイル名とパスを作成することができます。このことができます

Sub Svas() 
Dim fName As String 
Dim fPath As String 
Dim fExt As String 
fPath = "C:\Users\" & (Environ$("Username")) & "\Desktop" 'Code for filepath 
fName = "ETC" 'Code for filename 
fExt = ".xlsm" 
ActiveWorkbook.SaveAs fileName:=fPath & "\" & fName & fExt, FileFormat:=xlOpenXMLWorkbookMacroEnabled 
End Sub 

希望、あなたのパスの最後のフォルダの後 TheSilkCode

Answer 2

は、ファイル名の前に\を追加する必要があります。 あなたの場合、"\Desktop\"を追加する必要があります。

あなたは、あなたのコード内で「ETC」を使用しているのでわからないあなたは、このコードのために別の変数を必要とし、あなたは以下のコードのようなものを使用することができますこの質問を見てください

Sub Svas() 

Dim FilePath As String 

FilePath = "C:\Users\" & Environ$("Username") & "\Desktop\ETC.xlsm" 
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=52, CreateBackup:=False 

End Sub