masaüstüne klasör oluşturup resmi çıkartma

[kemaluz16]

Merhaba,

aşağıdaki komutlar ile userform foto çekip excel sayfasına yapıştırıyorum sonrasında masaüstüne satış klasörü açtırıp günün tarihini vererek exceldeki resmi çıkartmak istiyorum tabiki exceldeki resmi sonrasında silecek.Yardımlarınız için şimdiden teşekkürler.

Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1
Sub cek()
On Error Resume Next
DoEvents
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
ActiveSheet.Range("A1").Select
ActiveSheet.Paste

end sub

 

[kemaluz16]

Yardımcı olurmusunuz hocam