定义电脑桌面路径

1 Sub 日记账数据更新()
2 
3     Dim rjzrow As Long, R1 As Long, wshshell As Object, strDesktop
4         Set wshshell = CreateObject("wscript.shell")
5               strDesktop = wshshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop")
6     
7      Application.ScreenUpdating = False
8        
9      Workbooks.Open "" & strDesktop & "\费控申请单全口径.xls"