SolidWorksのVBAマクロについて知恵を貸してください。画像のように、オブジェクト名を設定したテキストとボタンを2個ずつつけたユーザーフォームがあり、選択1と選択2を押すと、エクスプローラが立ち上がり、それぞれフォルダとcsvを選択させて、そのパスをテキストに表示させるマクロを作りたいです。通常のExcelでは以下のマクロでうまく行くのですが、なぜかSolidWorksではエラーになります。どうやら、SolidWorksでは「Application.FileDialog」が使えないみたいなのですが、どうすれば同じことをSolidWorksでできるようになりますか?以下、Excelでのマクロです。ユーザーフォームを立ち上げる標準モジュールは割愛しています。Option Explicit'=== ASMフォルダ選択 ===Private Sub btnSelectASM_Click()    Dim fPath As String    With Application.FileDialog(msoFileDialogFolderPicker)        .Title = \u0026quot;ASMフォルダを選択してください\u0026quot;        .AllowMultiSelect = False        If .Show = -1 Then            fPath = .SelectedItems(1)            txtASMPath.Text = fPath        End If    End WithEnd Sub'=== CSVファイル選択 ===Private Sub btnSelectCSV_Click()    Dim fPath As String    With Application.FileDialog(msoFileDialogFilePicker)        .Title = \u0026quot;部品表(CSV)を選択してください\u0026quot;        .AllowMultiSelect = False        .Filters.Clear        .Filters.Add \u0026quot;CSVファイル\u0026quot;, \u0026quot;*.csv\u0026quot;        .Filters.Add \u0026quot;すべてのファイル\u0026quot;, \u0026quot;*.*\u0026quot;        If .Show = -1 Then            fPath = .SelectedItems(1)            txtCSVPath.Text = fPath        End If    End WithEnd Sub

Excel

1件の回答

回答を書く

1168849

2026-05-28 11:20

+ フォロー

この下のページ

https://recruit.cct-inc.co.jp/tecblog/cad/solidworks-api/

で、CreateObject(\u0026quot;Shell.Application\u0026quot;)を使用して

フォルダダイアログを表示させる例が載っています。

また、ファイルの選択は

https://help.solidworks.com/2023/english/api/sldworksapi/Open_File_Example_VB.htm

でファイル名を出力する例があるのでこれを参考にすればいいでしょう。

うったえる有益だ(0シェアするブックマークする

関連質問

Copyright © 2026 AQ188.com All Rights Reserved.

博識 著作権所有