-> Hier kostenlos registrieren
Hallo liebe Community,
ich muss ein Progamm basteln das es mir ermöglicht:
Wert aus einer CSV (Ich hab zum üben mal eine Exceltabelle genommen) zu lesen.
Dann möchte ich ihn in die SPS bzw in die internen Variablen der HMI verarbeiten und dann später in eine SQL Datenbank übergeben.
Ich hab leider nur ganz groben einblich in VB und bin da total auf eure Zusammenarbeit angewiesen. (Ihr sollt es mir nicht schreiben aber mir sagen wann mein Fuß aufm Schlauch steht.) =)
Ich hab mich in Forum mal erkundigt und in einem Beitrag schon gelesen wie man eine Excel ausliest.
Ich hab sie erstellt mit einem Wert 10 in der Zeile A1
jetzt wollte ich diesen Wert mit einem Bit in die internen HMI Variablen laden.
Allerdings erstmal erfolglos. Gebt mir mal BITTE einen Anstoß wie ich das hinkriege
Liebe Grüße
ich muss ein Progamm basteln das es mir ermöglicht:
Wert aus einer CSV (Ich hab zum üben mal eine Exceltabelle genommen) zu lesen.
Dann möchte ich ihn in die SPS bzw in die internen Variablen der HMI verarbeiten und dann später in eine SQL Datenbank übergeben.
Ich hab leider nur ganz groben einblich in VB und bin da total auf eure Zusammenarbeit angewiesen. (Ihr sollt es mir nicht schreiben aber mir sagen wann mein Fuß aufm Schlauch steht.) =)
Ich hab mich in Forum mal erkundigt und in einem Beitrag schon gelesen wie man eine Excel ausliest.
Ich hab sie erstellt mit einem Wert 10 in der Zeile A1
jetzt wollte ich diesen Wert mit einem Bit in die internen HMI Variablen laden.
Allerdings erstmal erfolglos. Gebt mir mal BITTE einen Anstoß wie ich das hinkriege
Code:
On Error Resume Next
Dim appExcel , fs , wbExcel , wsExcel
Dim Verzeichnis , Datei
Dim Zeile
'------------------------------------------------------------------------------
' Pointer auf Tabelle laden
Set appExcel = CreateObject ("EXCEL.Application")
Set fs = CreateObject ("Scripting.FileSystemObject")
' Objekte erzeugen
' prüfe ob datei existiert. wenn nicht erzeugen.
If Not fs.FileExists (Verzeichnis + Datei) Then
appExcel.Workbooks.Add
appExcel.ActiveWorkbook.SaveAs(Verzeichnis + Datei)
End If
Set wbExcel = appExcel.Workbooks.Open (Verzeichnis + Datei)
Set wsExcel = wbExcel.Worksheets("Tabelle1")
' Variablen-Zuweisungen ...
Verzeichnis = "C:\PROJ\Wehn\Spielwiese\Excel"
Datei = "10.xls"
' Zelle lesen und um 1 erhöhen
Zeile = wsExcel.Range("A1")
If SmartTags("Auslesen") = True Then
SmartTags("Excel_A1") = Zeile
End If
'------------------------------------------------------------------------------
' verwendeten Speicher wieder freigeben
Set wsExcel = Nothing
Set wbExcel = Nothing
Set fs = Nothing
Set appExcel = Nothing
Set Verzeichnis = Nothing
Set Datei = Nothing