---

Hallo ich möchte Daten aus einem Excel file in ein Worksheet einfügen.

Daten aus Excel in einem Array gespeichert hier nun der Ansatz um die Daten im Worksheet zu speichern.

  Dim oWorksheet As Worksheet
  Dim oRoot As ObjectItem
  Dim sCondition As String
  Dim sText As String

  ' start the worksheet on the active selected node in EngineeringBase
  Set oRoot = Application.Selection(1)

  ' open worksheet with name "Devices"
  ' (this worksheet configuration name must be located under   Templates->Worksheets node)
  Set oWorksheet = oRoot.OpenWorksheet("Devices")

Danke schonmal für die Hilfe

[Diese Nachricht wurde von Stolhofer am 31. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok das was ich machen wollte kann ich hiermit auch realisieren.

Dim oObject As ObjectItem
       
    Set oObject = Application.Selection(1)
    Set oDevice = oObject.NewChild(aucObjDevice, aucDevCustomDevice) 'Determine the type
   
    With oDevice.Attributes
        .ItemByID(aucAttrDesignation) = MyArray(1, 0)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP