yada GBelgeAdi5 = "D:\" & "MEDİKAL_MALZEME" & ".xls" buradaki D: yerine

yol = CurrentProject.Path



Set fso = CreateObject("Scripting.FileSystemObject")

    Set fld = fso.GetFolder(yol)

  GBelgeAdi5 =fld.Drive & "\" & "MEDİKAL_MALZEME" & ".xls"

yazılabilir böylece uygulamanın olduğu kök dizine kaydedilir