複数のワークシートをCSVにエクスポートして保存フォルダを指定

Question

このマクロはきれいに動作しますが、エクスポートしたシートはいつでも最後のフォルダに保存されます。どのように彼らが入るべきであるフォルダを指定するのですか？

Sub asdf() 
Dim ws As Worksheet, newWb As Workbook 

Application.ScreenUpdating = False 
For Each ws In Sheets(Array("sheet1", "sheet2", "sheet3")) 
    ws.Copy 
    Set newWb = ActiveWorkbook 
    With newWb 
     .SaveAs ws.Name & ".csv", xlCSVWindows 
     .Close (False) 
    End With 
Next ws 
Application.ScreenUpdating = True 

End Sub 

Answer 1

コードに保存する場所を指定する必要があります。

これを試してください。

.SaveAs "D:\MyFolder\" & ws.Name & ".csv", xlCSVWindows 

変更 "D：\ MyFolderという\" で

​​

Answer 2

この行を置き換え

.SaveAs ws.Name & ".csv", xlCSVWindows 

ご希望の道へ。

Answer 3

フォルダへのフルパスを含む文字列型varを追加します。次の例では、tempディレクトリを使用します。私はOS Xを実行しているMac上でだからでしょう、この作品を作るのに苦労し

Sub asdf() 

    Dim ws As Worksheet, newWb As Workbook, fp as string 

    fp = environ("TEMP") & Chr(92) 
    'could be something like 
    'fp = environ("USER") & "\desktop\" 

    Application.ScreenUpdating = False 
    For Each ws In Sheets(Array("sheet1", "sheet2", "sheet3")) 
     ws.Copy 
     Set newWb = ActiveWorkbook 
     With newWb 
      .SaveAs fp & ws.Name, xlCSVWindows 'add the path, let saveas add the extension 
      .Close savechanges:=False 
     End With 
    Next ws 
    Application.ScreenUpdating = True 

End Sub