ファイルサーバーからローカルフォルダーに移動したい

質問

下記のVBAはローカル環境でデータを同じフォルダーにCSVとして吐き出す事を目的に調べながら作ったのですが、運用の関係上ファイルサーバーへ置く事になってしまいローカルの「ダウンロード」フォルダーにに吐き出せないか色々試してみているのですが、どうしても分かりません。お知恵をいただければ幸いです。
宜しくお願い致します。

'現在開いているシートをCSVデータで保存する
Public Sub call_RangeSaveCSV()
Dim fPath As String
Dim fName As String
Dim rng As Range

'現在開いているブック情報をファイル名にするため、変数に格納
fPath = ActiveWorkbook.Path & "\"
fName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "csv"

Application.DisplayAlerts = False

'現在選択しているセル情報をrngに格納
Set rng = Selection

'新規ブック作成→rngをA1にコピー→CSV保存→CSV閉じる
Workbooks.Add
rng.Copy ActiveSheet.Range("A1")

ActiveWorkbook.SaveAs Filename:=fPath & fName, FileFormat:=xlCSV
ActiveWindow.Close

Application.DisplayAlerts = True

End Sub

回答No.4

SI299792 · ベストアンサー

ダウンロードフォルダに出力したいなら、ダウンロードフォルダを指定しなければなりません。
Option Explicit
'
Sub Macro1()
　　Dim Rng As Range
'
　　Set Rng = Selection
　　Workbooks.Add
　　Rng.Copy [A1]
　　Application.DisplayAlerts = False
　　ActiveWorkbook.SaveAs _
　　　　CreateObject("Shell.Application").Namespace("Shell:Downloads") _
　　　　.Self.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", ""), xlCSV
　　ActiveWorkbook.Close False
　　Application.DisplayAlerts = True
End Sub

回答No.3

asciiz

＞ただ、ダウンロードフォルダーではなくドキュメントフォルダーにCSVが作成されます。どこに問題があるのでしょうか。

うーん? 回答1・2、どちらでもですか?

エクスプローラで、「ダウンロード」フォルダをクリックして、さらにアドレスバーをクリックすると、そこにはどのようなパス名が出てきますか?
そのパス名に合わせてやればいいはずなのですけど。

テストとして、直接

fPath = "C:\Users\(ユーザー名)\Downloads\"

とか書いてみたり、

fPath = "C:\temp\"

とか書いて、c:\tempフォルダに保存できるかどうか、試してみるとどうなるでしょうか。

回答No.2

f272

いろいろなやり方があるが
fPath = ActiveWorkbook.Path & "\"
を
fPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.Path & "\"
としてみるのでどうだろう。

補足

お知恵をありがとうございます。
ただ、ダウンロードフォルダーではなくドキュメントフォルダーにCSVが作成されます。どこに問題があるのでしょうか。
もしよろしければ、もう少しお付き合いして頂けますか。。

回答No.1

asciiz

「ダウンロード」フォルダの実態は、典型的には「C:\Users\SUZUKI\Downloads」などです。

まあもちろんWindowsは必ず C: ドライブにインストールされるとは限りませんし、ログインしているユーザー名でフォルダ名も変わってしまいますが。
その違いを吸収するためにあるのが環境変数です。
ログインしているユーザーごとに自動的に値が設定されますので、これを使います。

HOMEDRIVE "C:" ←Windowsのインストールドライブ
HOMEPATH "\Users\(ユーザー名)" ←ユーザー名が自動的に入る
USERPROFILE "C:\Users\(ユーザー名)" ←上記2つを合わせた物

なので、

fPath = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Downloads\"

または

fPath = Environ("USERPROFILE") & "\Downloads\"

としてやれば良いでしょう。

補足

お知恵をありがとうございます。
ただ、ダウンロードフォルダーではなくドキュメントフォルダーにCSVが作成されます。どこに問題があるのでしょうか。
もしよろしければ、もう少しお付き合いして頂けますか。。