More than 5 years have passed since last update.

'デスクトップにCSV形式でファイルを保存

Posted at 2018-04-07

'デスクトップフォルダのパスを取得
※）デスクトップフォルダのパスは通常「C:\Documents and Settings\＜ログインユーザー名＞\デスクトップ\」。
　　パソコン及びログインユーザによって異なるため、あらかじめVBAのコードで特定は難しい。

Excel-VBA

  Dim Path As String, WSH As Variant
  Set WSH = CreateObject("WScript.Shell")
  Path = WSH.SpecialFolders("Desktop") & "\"

'csv形式でファイルをデスクトップPATHに保存
※）出力ファイル名は"テストyyyymmdd.csv"

Excel-VBA

  ActiveWorkbook.SaveAs Path & "テスト" & Format(Date, "yymmdd") & ".csv", _
  FileFormat:=xlCSV, Local:=True