Hallo Zusammen
Habe ein VB Script das mir Werte aus Catia in Excel schreibt.
Alles in eine Tabelle funktioniert.
Ich möchte aber die Werte auf verschiedene Tabellen in der geöffneten Excel Datei verteilen.
Wie spreche ich die Tabellen (Tabell1 , Tabell2 , Tabell3 u.s.w.) an?
Hier der Auszug aus meinen Script
FileName = "C:\Temp\ABMESSUNG.xlsx"
Dim EXCEL As Object
Set EXCEL = CreateObject("Excel.Application")
EXCEL.Workbooks.Open FileName
EXCEL.Application.Visible = True
EXCEL.Parent.Windows(1).Visible = True
'_____________Aufteilen auf Tabelle ________________________
Dim Tabelle As String
If PosNr >= "000-009,010-099,100" Then
Tabelle = "Tabelle1"
End If
If PosNr >= "200" Then
Tabelle = "Tabelle2"
End If
If PosNr >= "300" Then
Tabelle = "Tabelle3"
End If
If PosNr >= "400" Then
Tabelle = "Tabelle4"
End If
If PosNr >= "500" Then
Tabelle = "Tabelle5"
End If
'______________Schreiben nach EXCEL___________________
EXCEL.Application.Cells((N), 3) = EXCELAbmasse
EXCEL.Application.Cells((N), 1) = PosNr
EXCEL.Application.Cells((N), 2) = Bezeichnung
Danke schon mal für die Hilfe.
Gruß
Ralf
------------------
KOBUE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP