ich habe ein kleines problem. ich lese per VB einige angaben aus Excelfiles aus und lasse mir diese in texboxen anzeigen. unter anderem auch die anzahl der gefüllten zellen in spalte A. Die excelfiles werden mir einer filelistbox angezeigt, die einfach nur anklicken brauche, und geht's mit dem auslesen los.
Das mit den Zellen funktioniert aber leider nicht si richtig. mir wird nur beim ersten mal der korrekte wert angezeigt. klicke ich ein weiteres file an, bekomme ich eine 1 zurück. (?)
was mach' ich verkehrt ?
heir mal der code :
'Code in der Filelistbox
Private Sub fle_Delivery_Orig_Click()
Dim appXl As Object
Dim CurrentPrint As Integer
Set appXl = CreateObject("Excel.Application")
appXl.Workbooks.Open (fle_Delivery_Orig.Path & "\" & fle_Delivery_Orig.FileName)
FileName = appXl.ActiveWorkbook.Name
UScorePos = InStr(1, FileName, "_")
Dealpartner = Left(FileName, UScorePos - 1)
DotPos = InStr(1, FileName, ".")
FileNo = Mid(FileName, DotPos - 4, 4)
'Auslesen des Datums aus der Zelle O2
Filedate = appXl.Cells(2, 15).Value
Fileday = Left(Filedate, 2)
Filemonth = Mid(Filedate, 4, 2)
Fileyear = Mid(Filedate, 7, 4)
'Anzahl der Datensätze in Spalte A incl. Kopfzeile ermitteln
DataRecord = appXl.Application.CountA([a:a])
txt_FileName.Text = FileName
txt_FileDate.Text = Filedate
txt_FileNumber.Text = FileNo
txt_NewFileName.Text = NewFilename
txt_DataRecord.Text = DataRecord
Vielen dank für eure tipps