(defun c:2 ( / linkname filepath range )
;; VARIABLES
(setq linkname "SystemDescription") ; Name of your data link
(setq newPath (getfiled "Select new Excel file" "" "xlsx" 0)) ; Full path to Excel file
(setq range "EXPORTTOCAD!B2:I16") ; Sheet name and range
;;MODIFYDATA LINK
(prompt (strcat "\n🔄 Modifying data link: " linkname))
(vl-cmdf "_-DATALINK" "Edit" linkname "Path" filepath "Format" "Range" range "")
;;REFRESH TABLES
(prompt "\n🔄 Refreshing linked tables...")
(command "_DATALINKUPDATE" "All" "K") ; "K" keeps formatting
(prompt "\n✅ Excel link modified and tables updated.")
(princ)
)