Anfänger: Script zur Transformation von Fräskräften?

[Bruno]

Dateiauswahl ist auch einfach

Code:

Call FileDlgShow(DataReadPath, "Excel files,*.xls", "Export File", False)
if FileExist(FileDlgNameList(0)) then
  Msgbox "Datei Existiert, anhängen"
Else
  Msgbox "Datei " & FileDlgNameList(0) & " erzeugen"
End If

Gruß
Bruno

[Bruno]

Alex,
kommst Du bei einer neuen Datei mit dem DIAdem Excel Export hin? (Speichern unter...)
Gruß
Bruno

[Rednaxela]

Hi Bruno!

Danke, mal wieder, der "Speichern unter"-Code klappt!
Allerdings kann ich so nicht auswählen, welche Kanäle ich abspeichern möchte, oder?

Die Ergebnisse in eine bereits vorhande Excel-Datei in ein neues Blatt zu exportieren wäre natürlich auch ne schöne Lösung! Bis jetzt hab ich noch nichts entsprechendes gefunden!

Gruß!

[Bruno]

(22.06.2010 08:52)Rednaxela schrieb:  Allerdings kann ich so nicht auswählen, welche Kanäle ich abspeichern möchte, oder?

Code:

Call EXCELExport(DataReadPath & "\MyData.xls",, 1, DataReadPath & "Example_XLS.stp")

Mit der "stp" Datei kannst Du genau steuern, was alles Exportiert wird.
Eine stp Datei wird interkativ beim manuellen Excel Export unter Speichern unter erstellt. Einfach das Häckchen bei Speicherun unter Konfigurationsdatei setzen.

(22.06.2010 08:52)Rednaxela schrieb:  Die Ergebnisse in eine bereits vorhande Excel-Datei in ein neues Blatt zu exportieren wäre natürlich auch ne schöne Lösung! Bis jetzt hab ich noch nichts entsprechendes gefunden!

Hast Du das Beispiel gefunden, welchen ich im Beitrag #5 genannt habe?
Gruß
Bruno

[Rednaxela]

Zitat:Hast Du das Beispiel gefunden, welchen ich im Beitrag #5 genannt habe?

Ja, hab ich! Ist aber nicht so einfach zu verstehen, zumindest für mich

Jetzt hab ich folgende Codes von dir bekommen:
1)

Code:

Dim Antwort
Antwort = msgbox("Excel Export gewünscht?", vbYesNo)

if Antwort = vbYes then
  'Excel export
End If

2)

Code:

Call FileDlgShow(DataReadPath, "Excel files,*.xls", "Export File", False)
if FileExist(FileDlgNameList(0)) then
  Msgbox "Datei Existiert, anhängen"
Else
  Msgbox "Datei " & FileDlgNameList(0) & " erzeugen"
End If

3)

Code:

Call EXCELExport(DataReadPath & "\MyData.xls",, 1, DataReadPath & "Example_XLS.stp")

1) Ist klar!
2) und 3) verwirren mich jetzt doch etwas! Gehören die zusammen? Wo finde ich diese stp-Datei?

Gruss

[Rednaxela]

Ok,
ich mach es dann so (Dank an Bruno):

Code:

Dim Antwort
Antwort = msgbox("Excel-Export der Ergebnisse gewünscht?", vbYesNo)

if Antwort = vbYes then
  'Excel export
    EXCELChnCount=16
    ExcelExpChn(1)=5
    ExcelExpChn(2)=6
    ExcelExpChn(3)=7
    ExcelExpChn(4)=8
    ExcelExpChn(5)=9
    ExcelExpChn(6)=10
    ExcelExpChn(7)=11
    ExcelExpChn(8)=12
    ExcelExpChn(9)=13
    ExcelExpChn(10)=14
    ExcelExpChn(11)=15
    ExcelExpChn(12)=16
    ExcelExpChn(13)=17
    ExcelExpChn(14)=18
    ExcelExpChn(15)=19
    ExcelExpChn(16)=20
    Call EXCELExport(AutoActPath & "Excel-Exporte\Versuchsergebnisse.xls", , 0, AutoActPath & "Excel-Exporte\vorlage.stp")
Else
  MsgBox "Das Script wurde beendet!"
  AutoQuit()
End If

Das klappt soweit!
Nur, wie bekomm ich jetzt noch hin, dass beim Speichern in "Versuchsergebnisse.xls" jedesmal ein neues Tabellenblatt erstellt wird und zwar mit einem Namen, der sich aus zuvor eingegebenen Variablen zusammen setzt?

Die Variablen sind:

Code:

Call GlobalDim("d, p, fz, re, Vc, TVnr, Z, FS")
d  = 12
p = 0.5
fz = 0.1
re = 0.4
Vc = 200
TVnr = 1
Z = 1
FS = "test"

Name des Tabellenblatts könnte im Script so lauten:
&FS&"_TV"&TVnr&"_radius"&re&
So, dass in der Excel-Datei das Tabellenblatt dann so heißt:
test_TV1_radius0.4

Laut DIAdem-Hilfe kann man unter
ExcelExport(EXCELFile, EXCELSheet, EXCELDlgFlag, EXCELConfigFile)
den Namen des Tabellenblatts eingeben... aber das klappt irgendwie nicht...?

Grüße, danke und gute Nacht!

[Bruno]

(22.06.2010 16:31)Rednaxela schrieb:  2) und 3) verwirren mich jetzt doch etwas! Gehören die zusammen? Wo finde ich diese stp-Datei?

Nein. Code Beispiel 2 ist nur dann notwendig, wenn Du selber einen Dateidialog erstellen musst.
EXCELExport kann so konfiguriert werden, dass es einen eignen Dateidialog offnet.
Die STP Datei kann beim manuelen speichern in Excel erzeugt werden. Du wirst dann aufgefordert, den Speicherort anzugeben.
Gruß
Bruno

[Bruno]

(22.06.2010 21:36)Rednaxela schrieb:  Laut DIAdem-Hilfe kann man unter
ExcelExport(EXCELFile, EXCELSheet, EXCELDlgFlag, EXCELConfigFile)
den Namen des Tabellenblatts eingeben... aber das klappt irgendwie nicht...?

Hallo Alex,
klappt bei mir auch nicht. Auch das Setzen der Variablen "ExcelExpSheetChn" geht nicht. Anscheinend hat der Tabellenname, der in der stp Datei hinterlegt ist, vorrang.
Gruß
Bruno

[Bruno]

Ist tatsächlich so!
Wenn Du den entsprechenden Abschnitt in der STP Datei löschst funktionert es...
Gruß
Bruno

[Rednaxela]

Hi!

Zitat:Wenn Du den entsprechenden Abschnitt in der STP Datei löschst funktionert es...

Bei mir sieht die entsprechende stp-Datei so aus:

Code:

ISO-10303-21;
HEADER;
FILE_DESCRIPTION(('STEP Export'),'2;1');
FILE_NAME('STEP Physical File','Tue, 22. Jun 2010 / 22:03:49',
(' '),('National Instruments','Engineering GmbH & Co KG'),'2.5','DataCache',' ');
FILE_SCHEMA(('EXCELConfiguration'));
ENDSEC;
DATA;
#1=COMMON(#2,#4,#3);
#2=MAIN('1','',0,('','','','','','','','','','','','','','',
'',''),('','','','','','','','','','','','','','','',''),('','','',
'','','','','','','','','','','','',''),(0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0));
#3=IMPORT(0,0,0,('','','','','','','','','','','','','',
'','',''),('','','','','','','','','','','','','','','',''),(),(),(0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0),(),(),(),(0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0),0,0,(0,0),(0,0,0,0,0,0),(0,0,
0,0,0));
#4=EXPORT('Names des Blatts','DIAdemProp',1,0,0,1,0,0,
(0,0),(0,0,0,0,0,0),(0,0,0,0,0),0,0,1,1,0,0,0,0,
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),(5,6,7,8,9,
10,11,12,13,14,15,16,17,18,19,20));
ENDSEC;
END-ISO-10303-21;

Muss ich dann #4 komplett löschen? Oder wie machst Du das?

Zitat:Nur, wie bekomm ich jetzt noch hin, dass beim Speichern in "Versuchsergebnisse.xls" jedesmal ein neues Tabellenblatt erstellt wird und zwar mit einem Namen, der sich aus zuvor eingegebenen Variablen zusammen setzt?
...
Name des Tabellenblatts könnte im Script so lauten:
&FS&"_TV"&TVnr&"_radius"&re&
So, dass in der Excel-Datei das Tabellenblatt dann so heißt:
test_TV1_radius0.4

Geht das irgendwie?

Grüsse!