Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  VBA: SaveAs mit vorgegebenem String

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  VBA: SaveAs mit vorgegebenem String (2416 mal gelesen)
misterfpx
Mitglied
Ingenieur


Sehen Sie sich das Profil von misterfpx an!   Senden Sie eine Private Message an misterfpx  Schreiben Sie einen Gästebucheintrag für misterfpx

Beiträge: 23
Registriert: 29.06.2010

Catia V5-6R2014 (R24)

erstellt am: 03. Sep. 2014 18:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von K.Siebert an!   Senden Sie eine Private Message an K.Siebert  Schreiben Sie einen Gästebucheintrag für K.Siebert

Beiträge: 415
Registriert: 19.05.2007

Win XP
Catia V5 R19
Catia V5 R24

erstellt am: 04. Sep. 2014 10:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für misterfpx 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von misterfpx an!   Senden Sie eine Private Message an misterfpx  Schreiben Sie einen Gästebucheintrag für misterfpx

Beiträge: 23
Registriert: 29.06.2010

Catia V5-6R2014 (R24)

erstellt am: 04. Sep. 2014 15:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 04. Sep. 2014 15:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für misterfpx 10 Unities + Antwort hilfreich

Servus
Der Code läuft nur in Excel, bzw wenn du Excel als Application zugewiesen hast.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

joehz
Moderator
Freiberuflicher Konstrukteur


Sehen Sie sich das Profil von joehz an!   Senden Sie eine Private Message an joehz  Schreiben Sie einen Gästebucheintrag für joehz

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für misterfpx 10 Unities + Antwort hilfreich

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



Sachgebietsleitung (m/w/d) Technische Gebäudeausrüstung, Gebäudeunterhalt und Energieoptimierung

Mit ihren 28.000 Einwohnerinnen und Einwohnern und einer tausendjährigen Geschichte ist die Große Kreisstadt Ehingen (Donau) alles andere als gewöhnlich. Als aufstrebendes Mittelzentrum ist sie dynamischer Wirtschaftsstandort und liebenswerter Wohnort zugleich und schlägt gekonnt Brücken zwischen überschaubarer Nachbarschaft und City-Erlebnis, zwischen mittelständischem Handwerk und Großunternehmen....

Anzeige ansehenLeitung, Teamleitung
misterfpx
Mitglied
Ingenieur


Sehen Sie sich das Profil von misterfpx an!   Senden Sie eine Private Message an misterfpx  Schreiben Sie einen Gästebucheintrag für misterfpx

Beiträge: 23
Registriert: 29.06.2010

Catia V5-6R2014 (R24)

erstellt am: 08. Sep. 2014 17:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Genau das löst mein Problem. Vielen Dank!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz