vbaで正しいフォルダを選択する

Question

メッセージボックスを使用してワークシートのすべてのグラフを保存するフォルダを尋ねるマクロを作成しましたが、グラフは目的のフォルダではなく親に保存されます1。たとえば、代わりにCで保存する

：それはCで保存します\親の\ desiredFolder：\親\

はあなたの助けをいただき、ありがとうございます。

Sub EXPORTCHARTS() 

MsgBox ("Seleziona la cartella dove vuoi esoportare i grafici") 

ActiveSheet.Select 
ActiveWindow.Zoom = 400 

Dim sItem As String 
Dim dlgOpenFolder As FileDialog 

Set dlgOpenFolder = Application.FileDialog(msoFileDialogFolderPicker) 
dlgOpenFolder.Filters.Clear 

With dlgOpenFolder 
    .Title = "Select a Folder" 
    .AllowMultiSelect = False 
    .InitialFileName = strPath 
    If .Show <> -1 Then GoTo NextCode 
    sItem = .SelectedItems(1) 
End With 

NextCode: 
GetFolder = sItem 
Set fldr = dlgOpenFolder 

' --------------------------------------------------------- 
Dim objCht As ChartObject 

i = 1 
For Each objCht In ActiveSheet.ChartObjects 
    objCht.Chart.Export Filename:=i & ".jpg", FilterName:="JPG" 
    i = i + 1 
Next objCht 

' --------------------------------------------------------- 
ActiveWindow.Zoom = 50 

End Sub 

Answer 1

Jbjstamがその答えで指摘を使用していません。

sItemをループに正しく使用しても、sItemが設定されないため、ファイルが現在のディレクトリに保存されるため、ユーザーがFileDialogからキャンセルした場合にもロジックに問題が発生しました。

次は動作するはずです：

Sub EXPORTCHARTS() 

    MsgBox ("Seleziona la cartella dove vuoi esoportare i grafici") 

    ActiveSheet.Select 
    ActiveWindow.Zoom = 400 

    Dim sItem As String 
    Dim dlgOpenFolder As FileDialog 
    Dim i As Long 

    Set dlgOpenFolder = Application.FileDialog(msoFileDialogFolderPicker) 
    dlgOpenFolder.Filters.Clear 

    With dlgOpenFolder 
     .Title = "Select a Folder" 
     .AllowMultiSelect = False 
     .InitialFileName = strPath 
     If .Show <> -1 Then 
      MsgBox "No path selected" 
      Exit Sub 
     End If 
     sItem = .SelectedItems(1) 
    End With 

    ' --------------------------------------------------------- 
    Dim objCht As ChartObject 

    i = 1 
    For Each objCht In ActiveSheet.ChartObjects 
     objCht.Chart.Export Filename:=sItem & "\" & i & ".jpg", FilterName:="JPG" 
     i = i + 1 
    Next objCht 

    ' --------------------------------------------------------- 
    ActiveWindow.Zoom = 50 
End Sub 

Answer 2

あなたがファイルを保存しているときに、フォルダ名を使用していないグラフをエクスポートループ内の変数FLDR ...