Код |
---|
Selection.Copy ChDir "C:\Users\Oleg\Desktop" Workbooks.Open Filename:="label.xlsx" Range("D2").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats ActiveWorkbook.Save ActiveWorkbook.Close |
Нужно чтобы работало на разных компьютерах, а там разные имена пользователей. А файл должен быть именно на рабочем столе.
В идеале файл должен искаться в ChDir "C:\Users\Oleg\Desktop", если его там нету,
то в ChDir "C:\Users\Igor\Desktop" а если и там нету , то сообщение MessageBox об отсутствии