Cybquest

Sind diese "Arbeitsvorbereiter" immer an Netz? Oder sind das welche, die morgens die Excelliste auf nen Laptop packen und Abends dann zurückspielen? Dann wär das mit der Accessanwendung suboptimal! Ansonsten: Mach's wie Sunny schrieb :)

Wenn Dir zu einer SQL-Datenbank geraten wird, hilft es nix, darin einen "Link" auf eine Excel- oder Accesstabelle machen zu wollen! Du solltest dann Deine Daten in die SQL-Datenbank migrieren. Wenn die Daten in Access vorliegen, könnte man die z.B. mit dem "MS SQL Server Migration Assistant" auf den SQL-Server migrieren.

Deine Excel-Dokumente müssen dann natürlich auf die SQL-Server-Daten zugreifen. Besser wäre jedoch vermutlich, gleich eine "richtige" Auftragsverwaltung zu implementieren, oder? ;)

Bei ADSI gehen auch LDAP-Filter.

Wäre eh die Frage, warum Du nen WinNT-Provider statt LDAP hernimmst...

Ich könnte mir vorstellen, dass auch ein Apache solche Servervariablen hat... hab selber keinen, kann daher leider nicht nachschauen...

Einfach z.B. in der "For next" SChleife noch sowas einbauen:

if right(file.Name, 4) = ".xls" then

Auf was läuft das Intranet? Auf einem IIS?

Abfragen kannst Du den angemeldeten Benutzer z.B. so (vorausgesetzt, beim IIS ist für diese Seite die anonyme Anmeldung deaktiviert):

Mit PHP:

$logon = $_SERVER['AUTH_USER'];

Mit ASP:

logon = request.servervariables("LOGON_USER")

 

Nach dem Navigate kannst erst mal in ner Schleife $ie.busy abfragen, wenn das dann false wird, mit $ie.document.Body.innerhtml Seite auslesen.

Warum das visible nicht greift... grad keine Idee. 

Gern geschehen :)

Const xlOR = 2

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("MeineExcel.xls")
objExcel.Visible = true

objWorkbook.Worksheets(1).Range("D1").Autofilter 4, "Erledigt", xlOR, "in Arbeit"

So hab ich's grad getestet und das funktioniert! In meiner Excel hab ich in Spalte D Aufträge, E und F Beschreibungen etc. und G den Status mit "Erledigt", "offen", "in Arbeit"...

Const xlFilterValues = 7

...

objWorkbook.Worksheets(1).Range("D1").Autofilter 4, Array("Erledigt","in Arbeit","zurückgestellt"), xlFilterValues

und das funktioniert auch...

Ach das ist VBS, nicht VBA...

Dann musst Du für die Konstante xlOR die 2 nehmen, würde ich sagen.

zum Offset: wenn Du z.B. wirklich mit nem Range arbeitest und nicht nur mit einem Feld, ist der Autofilter auch wirklich nur in dem Range aktiv und darin entscheidet dann das Feld, welche Spalte gefiltert wird!

Bsp: Du hast 10 Spalten hübsch befüllt mit Spaltenköpfen. Machst Range("D1:J1"), dann sind die Filterknöpfe nur dort. Der Parameter 4 würde dann allerdings den Filter auf G1 setzen!

Kannst ja zum testen den Code (ohne das "objWorkbook") in ein Excel-Makro packen und ausführen...

Über Makro aufzeichnen kommst so z.B. auch zu der Array-Variante ;)

Hi,

wenns nur 2 Kriterien sein sollen z.B.:

WorkSheets(1).Range("D1").Autofilter 4, "1.Kriterium", xlOR, "2.Kriterium"

wenns mehr sein sollen:

...Autofilter Field:=4, Criteria:=Array("Krit1","Krit2","Krit3"), Operator:=xlFilterValues

zu beachten: wenn Du als Range "D1" angibst, ist das 4.Feld, auf das gefiltert wird, Spalte G!

Gern geschehen :)

Wozu das "True" als weiteren Parameter? Bei OpenTextFile wird als 3. Parameter dort das Code-Format angegeben. Lass das einfach weg, damit Systemdefault genommen wird.

Ansonsten: Schau Dir auf MSDN.microsoft.com einfach mal die OpenTextFile-Methode an!

Statt CreateTextFile eben OpenTextFile und das mit der Option "ForAppending" (8).

fso.OpenTextFile("Log.txt",8)

und bei dem writeline einfach noch'n Datum mit ausgeben:

MeineDatei.writeline Dateiname & " wurde gedruckt am " & Date()

Das Filesystemobjekt hast ja schon, dann kannst mit nem fso.OpenTextFile... ne Logdatei öffnen (bzw. anlegen) und dort dann mit nem write bzw. writeline was reinhäcken.

Einfach mal nach VBS opentextfile bzw. write googeln ;-)))

MyPath= "J:\DIV\XLS"

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(MyPath)

for each file in folder.Files
  filedate = file.datelastmodified
  if filedate > predate then 
	Dateiname=file.path
  	predate=filedate
  end if
next

Set appXLS = CreateObject("Excel.Application")
Set wbkXLS = appXLS.Workbooks.Open(Dateiname,,True)

maybe like this? ... dannach dann halt noch den "Printout-Befehl etc...

Ich vermute, der TO ist in diesem Falle Gast und nicht der Betreiber des WLANs...

(und zum kursiven: Repeater ;-)

Ach, noch zum Problem: Wenn man sich auf einem Gerät dann mit dem Benutzername angemeldet hat, geht das an einem anderen Gerät mit den selben Daten nicht mehr?

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\MeinOrdner\")

predate=date()
for each file in folder.Files
  filedate = file.datelastmodified
  if filedate > predate then Dateiname=file.path
  predate=filedate
next

so in der Art könntest Du zumindest die neueste Datei raussuchen. Sollte es da noch mehr ausser "Wochenplan" geben, kannst ja innerhalb der For-Each-Schleife noch filtern...

Du meinst doch den Dateiname, nicht das Tabellenblatt darin, korrekt?

Wenn diese Wochennummern den Kalenderwochen entsprechen, könntest Du z.B. die Datepart-Funktion nutzen:

Woche = Datepart("ww",Date,2)
Dateiname = "Wochenplan 2014 " & Woche & ".xlsx"

Ich hab irgendwie den Verdacht, durch ein hundertseitenlanges Script will man sich nicht durcharbeiten, um die passenden Stellen für Deine gewünschte Erweiterung rauszusuchen ;)

Zur Frage: Ich hab zumindest keine Idee...

Und wie wäre es, ein "normales" Smartphone in ne entspr. massive Hülle zu packen? Oder musst Du im Internet surfen können, während jemand mit dem C-Rohr drauf hält? ;D

EDIT: Die Idee kam ja schon! Sorry :)

Wichtig wäre zu wissen, wie sich der IO verteilt? Sind das hauptsächlich lesende Zugriffe? Oder wird auch viel geschrieben?

Das könnte m.E. schon in einer Tabelle bleiben, da wäre man mit der Tiefe auch variabler.

Aber abfragen müsste man es m.E. auf jeden Fall rekursiv.

Dazu ausser dem Systemtyp noch ein "ID" und ein "ParentID"-Feld

Dann könnte man in der ersten Ebene nen SELECT... bla... WHERE Systemtyp=2

2. Ebene WHERE Systemtyp=1 AND ParentID = ID

etc...

Ich denke, ADSL hat allgemein ne schlechtere Latenz als SDSL. Bei Aussenstandorten mit mehr als 2 Arbeitsplätzen arbeiten wir nur noch mit SDSL-Leitungen.

Aber ohne Messungen wird alles nur "Bauchgefühl" bleiben ;)

Du kannst do 2x den selben Tabellennamen verwenden ;)

INSERT INTO MeineTabelle SELECT * FROM MeineTabelle;

In Deinem Fall:

INSERT INTO MeineTabelle (IDSpalte, Spalte2, Spalte3) SELECT 'NeueID', Spalte2, Spalte3 FROM MeineTabelle WHERE undhierkommt_welcherDatensatzüberhauptausgewähltwerdensoll;