PDA

Vollständige Version anzeigen : EXCEL- Tabellen


WalterS
04.11.2001, 19:59
HI!
Kennt jemand einen Weg um aus einer Excelarbeitsmappe die Namen sämtlichen Tabellen auszulesen.

Hintergrund. In eine bestimmte EXCEL-Arbeitsmappe werden fallweise neue Tabellen eingefügt und ich möchte diese, durch Vergleich mit den von mir bereits erfassten Tabellen, erkennen und einlesen.

m.f.G.

Scorefun
04.11.2001, 20:35
Hi Walter,

sinngemaess muesste es wie folgt laufen:


Sub getExcelNames()

Dim x As New Excel.Application
Dim xls As New Excel.Workbook
Dim i As Integer, z as integer

Set xls = x.Workbooks.Open("c:\mappe1.xls")

i = xls.Worksheets.Count

For z = 1 To i
MsgBox xls.Worksheets(i).Name
Next z

x.Quit

End Sub



Excel-Verweis muss eingebunden sein...

WalterS
05.11.2001, 20:15
Super!!!

Danke es funkt mit

MsgBox xls.Worksheets(z).Name
statt
MsgBox xls.Worksheets(i).Name

PS: Man(n) ist nie zu alt um etwas Neus zu lernen..... ( abgesehen von der neuen Rechts-schreibung)

Scorefun
06.11.2001, 00:14
Hi Walter,

sorry - war'n Tippfehler im Code...
aber hauptsache es funzt...