Die Preislistenpfleger

Hier findest du die Preislisten mit Pilzen ohne die kein Wimprechner des Browsergames Wurzelimperium funktionieren würde. NEU: Aktuelle Wimprechner mit Pilzen NEU
Aktuelle Zeit: Sa 26. Mai 2018, 19:20

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 7 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Preislisten in Excel Importieren?
BeitragVerfasst: Mi 29. Feb 2012, 09:59 
Offline

Registriert: Mi 29. Feb 2012, 00:39
Beiträge: 5
Körperliche Beschaffenheit: Zwerg
Hallo,

ich habe mir in Excel selber eine kleine Verwaltung mit den Sachen gebaut,
welche ich wirklich brauche.

Gerne würde ich wissen, ob es möglich ist, die Aktuellen Markt-Preise
Automatisch aus der Preisliste für Server 46 zu laden?

Wenn ja, wie würde dieses gehen?

Wäre super wenn mir jemand helfen könnte.

Viele Grüße
Björn (Pockys-Garten)


Nach oben
 Profil  
 
BeitragVerfasst: Mi 29. Feb 2012, 10:04 
Offline
Administrator
Administrator

Registriert: Fr 10. Apr 2009, 15:28
Beiträge: 1217
Wohnort: oberfrangn/bayern
Meine Welten:: viele ;-)
Körperliche Beschaffenheit: Zwergin
gutnmorchn
deine frage wird von bluep beantwortet
lg cassey

_________________
wir suchen dringend nach neuen PLF's für
Server 6
Server 25
Server 36


Nach oben
 Profil  
 
BeitragVerfasst: Mi 29. Feb 2012, 12:27 
Offline

Registriert: Mi 29. Feb 2012, 00:39
Beiträge: 5
Körperliche Beschaffenheit: Zwerg
Hallo,

gibt es dazu schon ein Thema? Wenn ja, dann werde ich mich auf die Suche danach machen.

Gruß
Björn


Nach oben
 Profil  
 
BeitragVerfasst: Mi 29. Feb 2012, 13:05 
Offline

Registriert: Mo 11. Jan 2010, 22:19
Beiträge: 325
Wohnort: Oberbayern
Meine Welten:: -inaktiv-
Körperliche Beschaffenheit: Zwerg
Hallo Björn,

die aktuell(st)en Preise stehen ja immer im Tab "Wimprechner" der jeweiligen Preisliste; für Server 46 wäre der Link dazu https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2 (findet man, indem man in der Preislistenübersicht den jeweiligen Server öffnet & dann in der Tabelle auf den Tab "Wimprechner" wechselt).
Das liefert nur die HTML-Ausgabe - Google bietet aber diverse Optionen zum Abruf der Tabellen:
  • &single=true lässt alle anderen Tabellenblätter weg - interessant für HTML-Ausgabe, aber für dich wichtiger ist folgender Punkt:
  • &output=... - liefert andere Tabellenformate als HTML, für dich interessant:
    • &output=csv - liefert eine unformatierte CSV-Tabelle. Ideal, da nur die nötigen Daten übertragen werden müssen, ohne Formatierungen etc.
    • &output=xls - liefert ein (formatiertes) Excel-Spreadsheet zurück.
    Format der Wahl ist wie gesagt CSV - der komplette Link dafür ist also https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2&single=true&output=csv. Wie du das Ganze als externe (Online-)Datenquelle einbinden kannst, musst du selbst in der Hilfe nachsehen - ich verwende seit etwa 8 Jahren kein Excel mehr. (Oder du spickst mal bei wurzelmanagers Excel-Tabelle ^^)

Bei weiteren (nicht Excel-spezifischen *g*) Fragen - raus damit! :)

LG, Bluep


Nach oben
 Profil  
 
BeitragVerfasst: Do 1. Mär 2012, 00:55 
Offline
Toolies
Toolies

Registriert: Sa 13. Nov 2010, 22:36
Beiträge: 73
Körperliche Beschaffenheit: Zwerg
Hallo

Ich denke nicht, das du bei mir so gut spicken kannst, da ich das über Makros mache.
Du kannst den ausgabetyp aber einfach auf HTML Lassen, und einfach eine Vreknüpfung einfügen.
da ich gerade Exel nict zur hand habe, kann ich dir nicht genau sagen, wo du den Menüeintrag dazu findest.
Ich vermute unter "Einfügen"->Verknüpfung zu externen Daten.vieleicht auch unter Extras.

Such einfach im Menü, oder Frage in einem Excel-Forum.

Ich habe erst in einer woche wieder zugriff auf Excel2003, dann könnte ich dir besser helfen.

Gruß Wurzelmanager

_________________
Kontakt: wurzelmanager@googlemail.com
Meine Seite: http://wurzelmanager.blogger.de/


Nach oben
 Profil  
 
BeitragVerfasst: Fr 2. Mär 2012, 00:47 
Offline

Registriert: Mi 29. Feb 2012, 00:39
Beiträge: 5
Körperliche Beschaffenheit: Zwerg
Hey,

danke für die Hilfe.

Habe es nun mit einem Makro realisiert. Habe nicht gespickt, habe mich da nicht
wirklich zurecht gefunden in den Makros vom Wurzel-Manager *lach, schon sehr
Komplexes Programm, aber Spitze ;).


Code:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                       (ByVal pCaller As Long, _
                        ByVal szURL As String, _
                        ByVal szFileName As String, _
                        ByVal dwReserved As Long, _
                        ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function

'Sub Auto_open()

'Dim Antwort
'Antwort = MsgBox("Soll die Aktuelle Preisliste heruntergeladen werden?", 4, "Frage")
'    If Antwort = vbYes Then
'       Dim strURL As String, strLokal As String
'  strURL = "https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2&single=true&output=xls" 'Dateipfad
'  strLokal = "C:\Users\Pockydor\Desktop\Wurzelimperium\Server46.xls" 'Speicherort
'
'   Else
'
'    End If
'
'      If DownloadFile(strURL, strLokal) = True Then
'    MsgBox "Die Aktuelle Preisliste wurde heruntergeladen!"
 
'  End If
'End Sub

Sub Preisliste_laden_manuel()

Dim Antwort
Antwort = MsgBox("Soll die Aktuelle Preisliste heruntergeladen werden?", 4, "Frage")
    If Antwort = vbYes Then
       Dim strURL As String, strLokal As String
  strURL = "https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2&single=true&output=xls" 'Dateipfad
  strLokal = "C:\Users\Pockydor\Desktop\Wurzelimperium\Server46.xls" 'Speicherort
 
    Else
   
    End If
   
      If DownloadFile(strURL, strLokal) = True Then
    MsgBox "Die Aktuelle Preisliste wurde heruntergeladen!"
 
  End If

End Sub


Zurzeit habe ich diese möglichkeit gewählt, Beim Start ausführen habe ich erstmal deaktiviert.

Aber ich kann wunderbar über einen Button die Preisliste als XLS laden und abspeichern.

In meiner Excel datei Importiere ich einfach die Preise wie folgt:

Code:
='C:\Users\Pockydor\Desktop\Wurzelimperium\[Server46.xls]Aktuell'!C3


usw.

Vielleicht hilft es auch einigen anderen ;) Nun nimmt meine Wurzel-Verwaltung form an *lach

Danke nochmal für die Hilfe.

Gruß
Björn

PS: Über andere vorschläge würde ich mich natürlich freuen :wink:


Nach oben
 Profil  
 
BeitragVerfasst: So 4. Mär 2012, 14:51 
Offline
Toolies
Toolies

Registriert: Sa 13. Nov 2010, 22:36
Beiträge: 73
Körperliche Beschaffenheit: Zwerg
Hallo Björn

Das Ganze geht viel einfacher.
Du kannst über "Daten"->"Externe Daten importieren"->"Neue Webabfrage" (Excel2003)
die Daten direkt in das Dokument Importieren.(z.B. nach Tabelle3.A5)(wie die Menüeinträge in neueren Versionen heißen Weis ich nicht.)
Mit einem Rechtsklick auf die importierten Daten und anschließendem Klick auf "Datenbereichseigenschaften" kannst du
einstellen, wann die Daten Aktualisiert werden.

Im wurzelmanager mache ich das ganze über Makros:
Vereinfacht sieht das für Server46 so aus:
eingefügt wird ab Tabelle3.Range("D3")
Code:
Sub InternetabfrageServer46()
Application.ScreenUpdating = False
Dim ServerURL, ServerURL2 As String
Dim a, s, nServer, nVar As Integer
Dim oRange As Object
Dim oSheet As Object
'Die Tabelle, wo eingefügt werden soll
oSheet = Tabelle3
'Der Bereich,wo eingefügt werden soll
oRange = oSheet.Range("D3")
'Adressezu Preisliste von Server46
  ServerURL = "https://docs.google.com/spreadsheet/pub?key=0AvqJa4V4oi0YdDJNSUZ2UXQwdjdDN0NsOFhTZlloaEE&gid=2"
 ServerURL2 = "URL;" + ServerURL
'Alle abfragen auf Tabelle3 Löschen
   s = oSheet.QueryTables().Count
    While s > 0
    oSheet.QueryTables(1).Delete
    s = oSheet.QueryTables().Count
    Wend

   
    On Error GoTo Zeile1
'Neue Abfrage einfügen bei: oRange
    With oSheet.QueryTables.Add(Connection:= _
        ServerURL2 _
        , Destination:=oRange)
        .Name = "ServerURL"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """tblMain""" 'die Haupttabelle von der Seite.
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .RefreshOnFileOpen = True
    End With
Application.ScreenUpdating = True
Zeile1:
    MsgBox "Es ist ein Fehler aufgetreten.", 0, "Fehler"
End Sub



Gruß Wurzelmanager

_________________
Kontakt: wurzelmanager@googlemail.com
Meine Seite: http://wurzelmanager.blogger.de/


Nach oben
 Profil  
 
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 7 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.

Suche nach:
Gehe zu:  
cron
Powered by phpBB® Forum Software © phpBB Group
Deutsche Übersetzung durch phpBB.de

Impressum