Aktuelle Zeit: 23.08.2017 23:17

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1 ... 13, 14, 15, 16, 17
Autor Nachricht
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 10.08.2016 11:37 
Offline

Registriert: 24.03.2016 09:11
Auch einfach Save geht nicht.
Das einzige was funktioniert, in Excel gehen und zu Fuss speichern unter machen. Dann klappt es


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 10.08.2016 11:48 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
Schreibrechte hast Du?

Code:
If CreateFile(0, "[DeinDateiname].tmp")
  Debug "Ja, hat geklappt"
Else
  Debug "Nein, hat nicht geklappt"
EndIf


Beinhaltet Dein Dateiname exotische Zeichen?

Grüße ... Peter

_________________
einfach ist schwierig


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 10.08.2016 12:50 
Offline

Registriert: 24.03.2016 09:11
Der Dateiname besteht nur aus Ziffern.
Habe gerade unter XP mit dem gleichen Sourcecode und der gleichen PB Version ca 200 xls mit Excel2000 automatisch erzeugt.
Das klappt hervorragend.
Das mit den Schreibrechten muss ich morgen versuchen. Heute keine Zeit mehr.
Aber sind gute Tips vielleicht auch für andere Probleme.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 11.08.2016 07:53 
Offline

Registriert: 24.03.2016 09:11
Hallo,
der Test funktioniert. Ich habe es mit .tpm und .xlsx versucht. Dabei ist mir ein kleiner Fehler unterlaufen. Ich hatte das prg einmal nicht geschlossen und konnte nun die Datei erst löschen, nachdem ich das prg beendet hatte. Das heißt aber, das prg hatte geschrieben und hatte Zugriff auf die Datei.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 11.08.2016 10:17 
Offline

Registriert: 24.03.2016 09:11
Gearde habe ich Office 2010 unter XP installiert. Das Erzeugen der Dateien funktioniert. Also liegen die Schwierigkeiten eindeutig bei Win 7.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 11.08.2016 11:01 
Offline
Benutzeravatar

Registriert: 08.09.2004 00:57
Wohnort: Berlin
Wenn es an Win7 liegen sollte, im Unterschied zu XP, dann sind das Berechtigungen. Speicher doch einfach mal unter temp.
Code:
Debug GetEnvironmentVariable("temp")

_________________
PureBasic 5.60 | SpiderBasic 2.10 | Windows 10 Pro (x64) | Linux Mint 18.2 (x64)
"Ich möchte gerne die Welt verändern, doch Gott gibt den Quellcode nicht frei."
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 23.09.2016 10:00 
Offline

Registriert: 24.03.2016 09:11
Vielen Dank für Eure Tips, es hat sich wahrscheinlich erledigt, die Office-Version scheint defekt zu sein.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 13.05.2017 17:47 
Offline

Registriert: 10.06.2011 17:23
Hallo,
ich hatte mit der Funktion 'XLSFunc_Image' das Problem das Images, welche auf einem Netzlaufwerk lagen, nur als Link eingebunden und erst beim oeffnen der Datei als Resource geladen wurden. Bei mir auf dem Rechner alles ok, auf einem fremden Rechner ohne Netzlaufwerk fehlten die Images. Nach einigem stoebern in VBA-Foren bin ich auf die Loesung gekommen - das ist so gewollt und seit Office2010 so. Einen Workaround gibt's natuerlich auch.

Code:
Procedure XLSFunc_Image(ExcelObject.COMateObject,File.s,X.l,Y.l,Width.l,Height.l,Rot.l=0,Prop=#msoTrue,Trans.f=0)
  If FileSize(File)>=0
    ExcelObject\Invoke("ActiveSheet\Shapes\AddPicture('"+File+"',0,1,"+StrD(X)+","+StrD(Y)+","+StrD(Width)+","+StrD(Height)+")\Select")
  Else
    MessageRequester("Achtung","Grafik nicht gefunden")
  EndIf
EndProcedure

Rot.l=0,Prop=#msoTrue,Trans.f=0 werden zwar nicht gebraucht aber ich habe es mal der Kompatibilitaet wegen dringelassen.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 15.05.2017 02:31 
Offline

Registriert: 10.06.2011 17:23
Nächstes (geloestes) Problemchen, das schreiben einer groesseren Menge Daten in eine ExcelTabelle war extrem langsam - folgende Funktion 'XLSFunc_SrceenUpdating' beschleunigt das Ganze um den Factor 5 (auf meinem Rechner).

Code:
Procedure XLSFunc_SrceenUpdating(ExcelObject.COMateObject,Wert.l)
  ; Turn screen updating off (#False) To speed up your code. You won't be able to see what the code is doing, but it will run faster.
  ; Remember To set the ScreenUpdating property back To #True when your code ends.
  If Wert=#True
    ExcelObject\SetProperty("Application\ScreenUpdating=#True")
  ElseIf Wert=#False
    ExcelObject\SetProperty("Application\ScreenUpdating=#False")
  EndIf
EndProcedure


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1 ... 13, 14, 15, 16, 17

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye