Frage: wie kann man wissen in DIAdem, ob ein .xls mit bestimmter Name schon existiert

[JackieChen]

Hi Zusammen,
ich will einige Daten ins Excel einbauen aus einer GUI von DIAdem.
Mit folgendem Code wird ein neues Excel-File geöffnet mit der Name=Inhalt der Varibale "name".

Mein Verlauf:
1. Öffnen die GUI, Exportieren nach Excel;
2. Schließen die Gui ohne das Excel-File zu schließen;
3. Öffnen nocheinmal die GUI, Exportieren nach Excel.
Mein Fehler:
Beim Schritt 3 kann der Fehler aufgetreten, dass das neu geöffnete .xls File die gleiche Name wie vorher nicht geschlossenes .xls File hat. Dann gibt es Fehlermeldung.
Meine Frage:
Wie kann ich beim Erzeugen eines neuen .xls File überprüfen, ob schon ein .xls File mit gleicher Name schon existiert?

Danke im Voraus,

JackieChen

Code:

' Start Excel via OLE.
  ' A new Excel instance always starts.
  Set Excel = CreateObject("Excel.Application")
  If CheckError Then Exit Sub
  
  ' Create a Excel
  Excel.Workbooks.Add()

  ' Show Excel. Excel was hidden up to now.
  Excel.Visible = True

  ' Maximize Excel window.
  Excel.WindowState = &HFFFFEFD7

  ' Minimize DIAdem.
  Call WndShow("SHELL", "MINIMIZE")

  ' Open prepared DIAdem table in Excel.
  ' Excel.Workbooks.Open(Pfad & NameFile)
  
  ' Provide reference to DIAdem table.
  ' The reference makes it easier to access the table.
  'Set ExcelSheet = Excel.Workbooks(NameFile).Sheets("Tabelle1")
  Set ExcelSheet = Excel.Workbooks(name).Sheets("Tabelle1")

Mit obigem Code ist ein Excel-Mappe geöffnet.

[Sagi]

Hallo,

du könntest z.B. einfach bevor du deine .xls erstellst eine kleine Funktion schreiben, in welcher du eine FilEx abfrage machst. Wenn dann das File Existiert z.B. den Namen auf etwas anderes ändern.

Als Denkanstoß: (vlt nicht die schönste/eleganteste Lösung aber sie funktioniert)
Hier kontrolliere iche infach ob das File schon exisitiert, falls dies der Fall sein sollte wird am ende einfach eine Zahl angehängt.

Code:

Sub s_pdfcheck()

  If FilEx(DataFileName) Then
    Dim x, i
    x = 1
    Do Until i = 1
    i = 1
      If FilEx(NameSplit(DatafileName,"P") & "..\Report\" & NameSplit(DatafileName,"N") & "_H" & x & ".pdf") Then
        i = 0
        x = x + 1
      End If
    Loop
    oGlobalVars.sPDF = NameSplit(DatafileName,"P") & "..\Report\" & NameSplit(DatafileName,"N") & "_H" & x & ".pdf"      
  Else
    oGlobalVars.sPDF = NameSplit(DatafileName,"P") & "..\Report\" & NameSplit(DatafileName,"N") & "_H.pdf"
  End If

End Sub

mfg
Sagi