UserFormda Buton İle Excel Dosyası kayıt yeri seçmek

[ikikan]

Private Sub cmdmusyerikaydet_Click()
Dim i As Integer
Dim Dosya
On Error GoTo line1

ChDir "D:\PCari\PKart\"

Application.SheetsInNewWorkbook = 1

Workbooks.Add

ActiveWorkbook.SaveAs txtadi.Value
End Sub

bu koda Rağmen oluşturulan dosya C: Belgelerime kayıt oluyor sebebi nedi ?
yardımcı olursanız sevinirim

 

[hımmmmmmmm]

ActiveWorkbook.SaveAs
den sonra gelen isme klasör adresi vererek çalıştır

 

[hımmmmmmmm]

ActiveWorkbook.SaveAs "D:\PCari\PKart\"+ txtadi.Value