Zobrazit plnou verzi příspěvku: Výběr z Excelu - možnost nenalezení

Lukáš Záruba
18.08.2020, 08:47
Zdravím, mám pravidlo které hledá v exelu a přiřazuje zpátky hodnoty. '2020_08_17 - PŘIŘAZENÍ SKLADOVKY PODLE POLOTOVARU
Dim MyArrayList As New ArrayList
MyArrayList = GoExcel.CellValues("C:\Users\Public\Documents\Autodesk\Inventor 2015\Templates-BH\BH\OSTATN�\MATERIAL.xls", "POLOTOVAR", "A4", "A60")

Dim SN As String
SN = iProperties.Value("Project", "Description")

For MyRow = 4 To 60
If SN = (GoExcel.CellValue("A" & MyRow)) Then
oProp1 = GoExcel.CellValue("B" & MyRow )
Exit For
End If
Next
Try
iProperties.Value("Project", "Stock Number") = oProp1
Catch
End TryPotřebuji všek toto pravidlo doplnit o možnost:1) řádek nenajde 2) řádek najde ale sloupec B je prázdnýv těchto obo případě zapsat do oProp1 ="Není" - líbila by se mi i možnost že by mezi případy uměl rozlišit :1 ) řádek nenejde (v tomto případě zapsat do oProp1 ="Záznam neexistuje" )2) řádek najde ale sloupec B je prázdný (v tomto případě zapsat do oProp1 ="doplň skladovku do excelu" )- Ps pokud je toto pravidlo kostrbaté, rád sinechám poradit jak to učesat. Pravidlo vzniklo z jiného "přidání virtuální součásti z excellu".Předem děkuji

Vladimír Michl
18.08.2020, 17:17
Zkuste se podívat na FindRowStart. Jinak chybový výsledek z CellValue je vracen jako hodnota Nothing.