マクロの輸入および救助

[infamia]

夕方,

このマクロで助けてくれる魂はありますか?
他のユーザーにも役に立つかもしれません。

私はあなたに問題を教えてください:

毎日私は、私は、私は、あなたが持っている多くの圧縮ファイルを取得する, SW上でインポートし、保存.

SWから起動するマクロでこれらのフェーズを自動化できます。

es:マクロを起動し、ユーザーフォームを開く(私がした) 圧縮ファイルを選択し、これらの手順を実行します(disappearance(7 zipまたはwinrar)、インポートして保存します)?

限界では、私は手ファイルが消え、.xt または .stp ファイルが配置されているパスを選択するために満足しています...等
フォルダ内は常にそこにあり、それらのフォーマットで1ファイルだけ

ここまでマクロを録音しましたが、パスを差し込み、ファイル魚を作る箱をコラージュする方法は分かりません。プライベートサブ cmd_start_click()

スワップ = アプリケーションを設定します。 スルドワークスboolstatus = swap.loadfile2("txt_percorso1.value", "")設定部分 = swap.activedoc

' スナップショットを取る
dim swsnapshot as スナップショット
set swsnapshot = part.modelviewmanager.addsnapshot("home")
mymodelview をオブジェクトとして
mymodelview=part.activeviewを設定する
mymodelview.framestate = swwindowstate_e.swwindowmaximized

'保存として
longstatus = part.saveas3("txt_percorso1"、0、0)

' ドキュメントを閉じる
set swassembly = いいえ
パーツをセット = 何も
swap.closedoc "ce11_stampo マット。bestrini + parabrezza st1747-3d 部分ドローイング-20230127.sldasm"

エンドサブお問い合わせ

 

[jenuary]

ポップアップしたテキストボックスにファイルをアップロードしたい場合は、cmd_start に含まれるコードで、
検証を行います。
テキストボックスはテキストボックス1、テキストボックス2、テキストボックス3、テキストボックス4、
以下のコードは、アップロードするファイルパスを含む変数を作成する機能します。
どのテキストボックスがポップアップされているかを確認すると、一度に1つだけがポップアップされていると言いました。

dim は文字列 'file パスとして読み込みます
textbox1.text<> の場合 それから
path=textbox1.text ディレクティブ
端 もし
textbox2.text<> の場合 それから
path=textbox2.text ディレクティブ
端 もし
textbox3.text<> の場合 それから
path=textbox3.text ディレクティブ
端 もし
textbox4.text<> の場合 それから
path=textbox4.text ディレクティブ
端 もし

 

[jenuary]

コードが役に立つかどうか知りたいのですが。
その後、完全なマクロが開発されていない選択で、このケースのように、あなたに感謝していないことが多いので、驚くことはありません

 

[MassiVonWeizen]

私は長い間、これらの例では、嫌悪感を起こし始め、小便りが理解する顔をしました。多くの場合、それは何かを助けることはありませんが、時には誰かが鼻を取り除き、生き生きます。

 

[infamia]

申し訳ありませんが、先週は、通知メールがスパムにありました。

今週は仕事に戻り、残念ながら昼食の休憩中にこれらのものを運びます。 しかし、終わらなければならないプロジェクトです。
再び私を抜く