INFO: Dieses Forum nutzt Cookies...
Cookies sind für den Betrieb des Forums unverzichtbar. Mit der Nutzung des Forums erklärst Du dich damit einverstanden, dass wir Cookies verwenden.

Es wird in jedem Fall ein Cookie gesetzt um diesen Hinweis nicht mehr zu erhalten. Desweiteren setzen wir Google Adsense und Google Analytics ein.




Unsere Partner:

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner






Stellenangebote:
AMG Entwicklungsingenieur eDrive (m/w)
Affalterbach

Inbetriebnehmer (m/w) für Visualisierungssysteme
Bietigheim-Bissingen

Projektmanager Visualisierung (m/w)
München, Fulda

Programmierer/in Bereich SPS und Roboter-Steuerungen
Bühl

Big Data Scientist / Analyst (m/w) Messdatenmanagement
Ingolstadt





.
 
Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5

Excelimport Datum und Uhrzeit
17.04.2016, 08:11,
#1
DIAdem-Version: 2014
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: -
Excelimport Datum und Uhrzeit

Hallo,
ich habe eine Excelblatt, aus dem ich Daten importieren möchte.
In diesem Blatt wurden Datum und Uhrzeit in Spalten aufgeteilt.
In Spalte "A" steht das Jahr, in Spalte "B" der Monat, in Spalte "C" der Tag usw.
Es werden ca. zwischen 300 und 400 Zeilen aufgezeichnet.
Diese Daten würde ich gerne in einem Kanal zusammenfassen.
Leider habe ich im Netz noch nicht das Richtige dazu gefunden.
Ist das mit DIAdem möglich ? Vielleicht mit einem Plugin ?
Kann jemand helfen ?

Viele Grüße
Raik

Antworten
12.05.2016, 13:22,
#2
DIAdem-Version: 2017 Beta2 / seit 4.0 dabei
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1996
RE: Excelimport Datum und Uhrzeit

Hallo Raik,

hab ein Bisschen die DIAdem-Hilfe zur Grundlage genommen und das draus gebastelt:

Code:
If Not ItemInfoGet("sPathDocuments") Then
  Call GlobalDim("sPathDocuments")
End If
sPathDocuments = CurrentScriptPath
Dim oMyChnGrp: Set oMyChnGrp = Data.Root.ChannelGroups(1)
If oMyChnGrp.Channels.Exists("Datum") Then
  Call oMyChnGrp.Channels.Remove("Datum")
End If
Call oMyChnGrp.Channels.Add("Datum", DataTypeDate)
On Error Resume Next

Dim oMyExcelTab: Set oMyExcelTab = GetObject(, "Excel.Application")
If Err.Number = 0 Then
  Call MsgBox("Excel is running")
Else
  Err.Clear()
  Call MsgBox("Excel is not running. Excel will be started.")
  Set oMyExcelTab = GetObject("","Excel.Application")
End If
On Error Goto 0
Dim oExcelTab: Set oExcelTab = oMyExcelTab.Workbooks.Open(sPathDocuments & "test_datum.xlsx")
Dim oJahr, oMonat, oTag, oDatum
oJahr = oExcelTab.Sheets(1).Range("A2").Value
oMonat = oExcelTab.Sheets(1).Range("B2").Value
oTag = oExcelTab.Sheets(1).Range("C2").Value
Data.Root.ActiveChannelGroup.Channels("Datum").Values(1) = oJahr &"/"& oMonat &"/"& oTag

Mit "test_datum.xlsx" als Exceldatei, mit folgendem Aufbau:
__________________
Jahr  | Monat | Tag
------------------------
2015 |   05    |  12
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Über die Zeilen und Spalten, je nachdem, wie Dein Excel-Sheet aussieht, kannst Du Dir eine Schleife legen.

Gruß
Yeti

Antworten


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  DataPlagin trennt Datum und Zeit fappel 10 12.400 22.11.2012, 15:32
Letzter Beitrag: bandika
  CSV Datei mit Datum/Uhrzeit einlesen Markus 1 7.446 09.02.2011, 09:23
Letzter Beitrag: Bruno

Gehe zu: