Hi Chris
hier schon mal der Einstieg
*************************************
part_number = InputBox("Plese enter the part number", "Get Data")
i = GoExcel.FindRow("C:\LSE Vault\Data\iProperties_new.xlsx", "Sheet1", "PART NUMBER", "=", part_number)
part_description = GoExcel.CurrentRowValue("DESCRIPTION")
part_project = GoExcel.CurrentRowValue("PROJECT")
part_title = GoExcel.CurrentRowValue("TITLE")
iProperties.Value("Project", "Part Number") = part_number
iProperties.Value("Project", "Description") = part_description
iProperties.Value("Project", "Project") = part_project
iProperties.Value("Summary", "Title") = part_title
MessageBox.Show("All properties have been applied to " & part_number, "Success")
------------------
************************************

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP