title image


Smiley Anstatt einer konstanten Adresse den Inhalt einer Variablen zuweisen?
Hallo zusammen,



hab mal wieder ein Problemchen. Ich öffne mittels des unten gezeigten Quellcodes einen Excelsheet. Jetzt möchte ich wie bereits in der Pfadangebe geschehen die Werte der einzelnen Zellen nicht über die absolute Adresse "2006-05-10" übergeben sondern über meine TextBox1. wie stelle ich das an? Tausen dank an alle Hiulfswilligen!!



Dim oApp As Object

Dim rs As DAO.Recordset, i As Long, xlWs As Object, xlWb As Object

Dim aktZeile As Long

Dim x As Variant



Dim X1 As Variant

Dim X2 As Variant

Dim X3 As Variant

Dim X4 As Variant

Set oApp = CreateObject("Excel.Application")

Set xlWb = oApp.Workbooks.Open("g:\Wartung\" & TextBox1 & ".xls")

Set xlWs = xlWb.Worksheets("2006-05-10")

oApp.Visible = True

xlWs.Select





x = oApp.Worksheets("2006-05-10").Cells(1, 1)

X1 = Left(x, 20)

oApp.Worksheets("2006-05-10").Cells(1, 6) = X1

X2 = Mid(x, 28, 1)

oApp.Worksheets("2006-05-10").Cells(1, 7) = X2

X3 = CDate(Mid(x, 30, 10))

oApp.Worksheets("2006-05-10").Cells(1, 8) = X3

X4 = Mid(x, 41, 8)

oApp.Worksheets("2006-05-10").Cells(1, 9) = X4





Gruß

Trabbi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: