マクロをファイル構造内に保存して、セルを場所として使用する

特定のファイルの場所に保存するためのマクロを作成しようとしています。開始位置が定義されています（これは決して変更されません）（これは定義されたフォルダの場所です）セルB3（これはB2で指定されたフォルダ内のサブフォルダです）の別のドロップダウンリスト、次にセルB4のファイル名の順に選択します。マクロをファイル構造内に保存して、セルを場所として使用する

ファイルの場所が混乱しているように見えます。マクロを実行すると、既定値はC:\My Documentsになります。

テストでは、「Range」B3 "'行が削除され、ファイルが正しいフォルダの場所に保存されました。ここに現在のマクロがあります：

Sub ThisFile() 
varResult = Application.GetSaveAsFilename(FileFilter:= _ 
"Macro Enabled Workbook" & "(*.xlsm), *xlsm", Title:=Range("B4") & ".xlsm", InitialFileName:="G:\New Manufacturing Engineering\Gear Shop\Spiral Bevel\Miscellaneous\Stock Removal Test File\Stock Removal Sheets\" & Range("B2") & "\" & Range("B3") & "\" & Range("B4") & ".xlsm") 
With ActiveWorkbook 
    On Error GoTo message 
    .SaveAs varResult & ".xlsm", FileFormat:=52 
    Exit Sub 
message: 
    MsgBox "There is an error" 
End With 
End Sub

出典

2017-01-24 Maxe1984

おそらくファイルのパスは非常に高いですか？ –

生成している文字列が存在するディレクトリのものであることを再確認しましたか？ GetSaveAsFilename関数は、無効なパスを指定した場合、エラーをスローするのではなく、単にマイドキュメントに設定されているようです。 – Wedge

これは新人ミスです！ドロップダウンのタイトルの中には空白があるため、フォルダを見つけることができませんでした。

上記のマクロは完全に動作します

出典

2017-01-25 09:40:20 Maxe1984

マクロをファイル構造内に保存して、セルを場所として使用する

答えて

関連する問題