Autor
|
Thema: VBA: SaveAs mit vorgegebenem String (2416 mal gelesen)
|
misterfpx Mitglied Ingenieur
Beiträge: 23 Registriert: 29.06.2010 Catia V5-6R2014 (R24)
|
erstellt am: 03. Sep. 2014 18:03 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich möchte per VBA Makro ein CATPart abspeichern, wobei mir im Speicherdialog bereits ein Name vorgeschlagen wird. Die folgende Variante kenne ich, allerdings ist dann natürlich immer das Eingabefeld für den Name leer und muss per Hand befüllt werden: Dim objDoc As Document Dim strFilePath As String strFilePath = CATIA.FileSelectionBox("SaveAs", "*.CATPart", CatFileSelectionModeSave) objDoc.SaveAs strFilePath Ich möchte aber genauso wie in der CATIA Standardfunktion "Speichern unter..." die PartNumber oder einen String als Vorgabewert da stehen haben. Im einfachsten Fall per VBA also die Standard "Speichern unter..." Funktion aufrufen. Kennt jemand eine Möglichkeit? Beste Grüße misterfpx
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
K.Siebert Mitglied Tech Zeichner
Beiträge: 415 Registriert: 19.05.2007 Win XP Catia V5 R19 Catia V5 R24
|
erstellt am: 04. Sep. 2014 10:40 <-- editieren / zitieren --> Unities abgeben: Nur für misterfpx
Hallo, in Etwa so? Code: Sub VBSaveAsDialog() Dim sFile As String Filename = "Test" DateiEndung = "Alle Dateien (*.*),*.*," _ & "Excel (*.xls),*.xls," _ & "Part (*.CATPart),*.CATPart," _ & "Pruduct (*.CATPruduct),*.CATPruduct," _ & "Drawing (*.CATDrawing),*.CATDrawing,"FilterIndex = 1 FensterTitel = "Datei Speichern unter..." sFile = Application.GetSaveAsFilename(InitialFileName:=Filename, FileFilter:=DateiEndung, FilterIndex:=FilterIndex, Title:=FensterTitel) If sFile = "Falsch" Then 'MsgBox "Abbruch", vbCritical Exit Sub End If End Sub
------------------ Sei Schlau bleib Dumm !!?!! [Diese Nachricht wurde von K.Siebert am 04. Sep. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
misterfpx Mitglied Ingenieur
Beiträge: 23 Registriert: 29.06.2010 Catia V5-6R2014 (R24)
|
erstellt am: 04. Sep. 2014 15:04 <-- editieren / zitieren --> Unities abgeben:
Hi, danke für die erste Anwort. Läuft das Makro denn bei dir im CATIA? Bei mir bringt er beim debuggen bei Zeile sFile = Application.GetSav... einen Fehler: Run-time error '424': Object required. Gibts dafür ne Lösung? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 04. Sep. 2014 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für misterfpx
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 04. Sep. 2014 22:50 <-- editieren / zitieren --> Unities abgeben: Nur für misterfpx
Hallo misterfpx, >>genauso wie in der CATIA Standardfunktion "Speichern unter..." Meinst Du so...? CATIA.StartCommand "Save As..." Der Befehl nimmt den Namen des Parts als Vorgabe für den Dateinamen. Hope it helps, Joe
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
misterfpx Mitglied Ingenieur
Beiträge: 23 Registriert: 29.06.2010 Catia V5-6R2014 (R24)
|
erstellt am: 08. Sep. 2014 17:36 <-- editieren / zitieren --> Unities abgeben:
|